2017-10-12 108 views
0

我有一个窗体显示一个记录(大约40个字段)。在需要稍作改动的情况下(例如A541AB变为A541AC),我有一个按钮来复制记录。我在interwebs上看到了几个解决方案的实例,但我找不到适用于此UI操作的解决方案。是否可以创建确认框,询问他们是否确定要复制记录?目前,该按钮是使用宏设计的,因为我对Access VBA不太了解。我可以添加UI操作确认吗?

回答

0

你需要通过设置一个标志来处理自动更新为此在VBA。点击该按钮询问用户,如果答案为是,则保存。

'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 
+0

我能够在没有“取消自动更新”部分的情况下使用您的代码。使用该功能禁用了我保存记录的功能。再次感谢您的帮助。 – Lando

相关问题