UIアクション確認を追加できますか？

Question

レコードを表示するフォームがあります（約40フィールド）。わずかな変更が必要な場合（つまり、A541ABがA541ACになる）にレコードを複製するボタンがあります。私は、interwebsのソリューションのいくつかのインスタンスを見てきましたが、私はこのUIアクションのために働くものを見つけることができませんでした。レコードを複製したいと確信しているかどうかを確認する確認ボックスを作成することは可能ですか？現在のところ、ボタンはマクロを使用して設計されているため、私はAccess VBAにはあまりよくありません。

Answer 1

VBAでは、自動更新を処理するフラグを設定する必要があります。ボタンをクリックすると、ユーザーに尋ねて、答えがYesであるかどうかを確認します。

'Set a flag for manual update 
Private mIsUserUpdate As Boolean 'Flag 

'Cancel auto-update 
Private Sub Form_BeforeUpdate(Cancel As Integer) 
    If Not mIsUserUpdate Then Cancel = True 
End Sub 

'Save Button - Change 'YourButtonName' 
Private Sub YourButtonName_Click() 
    If MsgBox("Are you sure you want to duplicate the record?", vbYesNo + vbQuestion, "Confirm") = vbYes Then 
     mIsUserUpdate = True 'flag ON 
     DoCmd.RunCommand acCmdSaveRecord 
    End If 
    mIsUserUpdate = False 'flag OFF again 
End Sub