[Access VBA] RequeryとRefreshの使い分けデモ　「単票フォームの編集」編

 1
 2'******************************************************************************************
 3'*機能      ：編集モード開始ボタン押下
 4'*引数      ：
 5'*戻り値    ：True > 正常終了、False > 異常終了
 6'******************************************************************************************
 7Private Sub btn_edit_Click()
 8
 9    '定数
10    Const FUNC_NAME As String = "btn_edit_Click"
11    
12    '変数
13    
14    On Error GoTo ErrorHandler
15
16    '//編集モード開始
17    If Me.txt_productName.Locked Then
18        '//可視性
19        Me.lbl_product.Visible = False
20        Me.cmb_product.Visible = False
21        Me.lbl_onEdit.Visible = True
22        '//ロック
23        Me.txt_productName.Locked = False
24        Me.txt_productCode.Locked = False
25        Me.txt_nouhinDay.Locked = False
26        '//ラベル
27        Me.btn_edit.Caption = "編集完了"
28    '//編集完了
29    Else
30        '//可視性
31        Me.lbl_product.Visible = True
32        Me.cmb_product.Visible = True
33        Me.lbl_onEdit.Visible = False
34        '//ロック
35        Me.txt_productName.Locked = True
36        Me.txt_productCode.Locked = True
37        Me.txt_nouhinDay.Locked = True
38        '//ラベル
39        Me.btn_edit.Caption = "編集モード開始"
40        
41        '****************************************************
42        '//編集完了後の挙動フレームの選択値によって処理を分岐
43        Select Case Nz(Me.frm_finishEdition.Value, 1)
44        '////フォームに対してRequery実行
45        Case 2
46            Me.Requery
47        '////フォームに対してRefresh実行
48        Case 3
49            Me.Refresh
50        '////商品名選択コンボボックスに対してRequery実行
51        Case 4
52            Me.cmb_product.Requery
53        End Select
54        '****************************************************
55        
56    End If
57
58
59
60ExitHandler:
61
62    Exit Sub
63    
64ErrorHandler:
65
66    MsgBox "エラーが発生したため、マクロを終了します。" & _
67           vbLf & _
68           "関数名：" & FUNC_NAME & _
69           vbLf & _
70           "クラス名：" & SOURCE_NAME & _
71           vbLf & _
72           "エラー番号：" & Err.Number & vbNewLine & _
73           Err.Description, vbCritical, "cut-sheet-requery-refresh"
74        
75    GoTo ExitHandler
76        
77End Sub
78

1
2SELECT PRODUCT_TABLE.ID,
3    PRODUCT_TABLE.商品名
4FROM PRODUCT_TABLE
5ORDER BY PRODUCT_TABLE.ID;
6