要阻止Access表单在关闭时输入记录,可以使用VBA编写以下代码示例:
Private Sub Form_Unload(Cancel As Integer)
If Me.NewRecord Then
Cancel = True
MsgBox "请先保存记录。"
End If
End Sub
上述代码将在表单关闭时触发Form_Unload
事件。在该事件中,使用Me.NewRecord
条件判断当前表单是否有新记录。如果有新记录,将设置Cancel
参数为True
,以取消表单的关闭操作。同时,使用MsgBox
函数弹出提示框提醒用户先保存记录。
将上述代码添加到需要阻止输入记录的表单的VBA模块中即可实现该功能。