可通过在菜单所在的窗体加载事件中写入以下类似的代码来实现:......
Msgbox "没有符合条件的记录,请重新输入!",,"提示框"
Me.日期.SetFocus
Else
Me.姓名.SetFocusMe.姓名.SelStart = Me.姓名.SelLength
End If
DoCmd.RunSQL "Update 总表 Set 打印标记 = False"
就OKEY.......