Question

我有一个显示记录的表单（大约40个字段）。我有一个按钮可以在需要稍微改变的情况下复制记录（即A541AB变为A541AC）。我已经在互联网上看到了几个解决方案实例，但我找不到适用于此UI操作的实例。是否可以创建一个确认框，询问他们是否确定要复制记录？目前，该按钮是使用宏设计的，因为我对Access VBA不太满意。

Answer 1

您需要在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

我可以添加UI动作确认吗？

1 个答案: