アクセスVBAでの作業メモ（20080515）

今、作っているACCESSでのツールの作業メモ。【heritage】

Me.refresh　及び　me.requery　で入力中のフォームのソース更新

Me.refresh　・・・　開いているレコード（フォーム）だけに関して、一旦ソースに更新処理
me.requery　・・・　ソース全体に更新処理

連番の処理が完了したから、来週以降は、個々の処理メニュー＆ボタン作成。


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Option Compare Database
Option Explicit
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Private Sub 完了報告送付_処理日_Click()
　　Forms!基本情報!手続完了日 = Forms!基本情報!完了報告送付_処理日

　　If Not IsNull(Forms!基本情報!手続完了日) Then
　　　　If IsNull(Forms!基本情報!連番) Then
　　　　　　Dim renban As String
　　　　　　renban = DMax("[連番]", "基本情報")
　　　　　　Forms!基本情報!連番 = renban + 1
　　　　End If
　　End If
　　Me.Refresh

End Sub
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Private Sub 顧客番号_Click()

　　On Error GoTo 100

　　Dim name As String
　　Dim adress As String
　　Dim yubin As String

　　name = DLookup("[氏名]", "宛名用住所DB準備", "[店番口座番号] = [顧客番号]")
　　adress = DLookup("[住所]", "宛名用住所DB準備", "[店番口座番号] = [顧客番号]")
　　yubin = DLookup("[郵便番号]", "宛名用住所DB準備", "[店番口座番号] = [顧客番号]")

　　If Not IsNull(name) Then
　　　　Forms!基本情報!契約者氏名 = name
　　End If

　　If Not IsNull(adress) Then
　　　　Forms!基本情報!住所 = adress
　　End If

　　If Not IsNull(yubin) Then
　　　　Forms!基本情報!郵便番号 = yubin
　　End If

　　name = ""
　　adress = ""
　　yubin = ""

　　Me.Refresh

　　Exit Sub

100

End Sub　　
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Private Sub 代表相続人と届出人が同一_Click()

　　If [代表相続人と届出人が同一] = 0 Then
　　　　Forms!基本情報!届出人_氏名 = ""
　　　　Forms!基本情報!届出人_続柄 = ""
　　　　Forms!基本情報!届出人_郵便番号 = ""
　　　　Forms!基本情報!届出人_住所 = ""
　　　　Forms!基本情報!届出人_連絡先電話番号 = ""
　　Else
　　　　Forms!基本情報!届出人_氏名 = Forms!基本情報!代表相続人_氏名
　　　　Forms!基本情報!届出人_続柄 = Forms!基本情報!代表相続人_続柄
　　　　Forms!基本情報!届出人_郵便番号 = Forms!基本情報!代表相続人_郵便番号
　　　　Forms!基本情報!届出人_住所 = Forms!基本情報!代表相続人_住所
　　　　Forms!基本情報!届出人_連絡先電話番号 = Forms!基本情報!代表相続人_連絡先電話番号
　　End If

　　Me.Refresh

End Sub
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Private Sub コンボ222_AfterUpdate()
　　' コントロールの値と一致するレコードを検索する
　　Dim rs As Object
　　Set rs = Me.Recordset.Clone
　　rs.FindFirst "[店番口座番号] = " & Str(Nz(Me![コンボ222], 0))
　　If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Private Sub コンボ224_AfterUpdate()
　　' コントロールの値と一致するレコードを検索する
　　Dim rs As Object
　　Set rs = Me.Recordset.Clone
　　rs.FindFirst "[店番口座番号] = " & Str(Nz(Me![コンボ224], 0))
　　If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Private Sub コンボ226_AfterUpdate()
　　' コントロールの値と一致するレコードを検索する
　　Dim rs As Object
　　Set rs = Me.Recordset.Clone
　　rs.FindFirst "[店番口座番号] = " & Str(Nz(Me![コンボ226], 0))
　　If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub