数据表中添加新纪录如何弹出提示框？

pwj2009

在数据表窗体中添加新纪录如何弹出提示框？
例如我更新一条数据，鼠标还没用离开哪行记录，表示还没用编辑完。鼠标移去其他地方就自动保存了。
我想在保存前搞个提示框，是就保存，否就取消！（数据表窗体设置是指可以新增，不可以修改删除）

ysh5858

学习了{:soso_e182:}

pwj2009

zhuyiwen 发表于 2011-10-21 10:33

谢谢zhuyiwen的帮助。。。！

xie62

'在窗体的字段的“属性”“事件”“更新后”的右边输入“=NoAllowSave()”，
'在窗体的“打开”事件中代码“allowSave = False”
'定义模块
Option Compare Database
Option Explicit
Public allowSave As Boolean
Public Function NoAllowSave()
    allowSave = True
End Function
“退出”按钮的单击事件代码
If allowSave = True Then
   If MsgBox("当前数据已经被修改，是否保存？", vbYesNo + vbQuestion, "请选择...") = vbYes Then
   Else
      Me.Undo
   End If
End If
DoCmd.Close

pwj2009

我是在数据表窗体上操作。没有退出键，只有关闭，，按你的方法做一更新就提示是说找不到宏 NoAllowSave().
数据表窗体只可以增加，。不可以删除，修改的
我传个附件

zhuyiwen

1. Private Sub Form_BeforeUpdate(Cancel As Integer)
   
2.     If Me.Dirty Then
   
3.         If MsgBox("记录未保存，保存吗？", vbInformation + vbYesNo, Me.Caption) <> vbYes Then
   
4.             DoCmd.RunCommand acCmdUndo
   
5.         End If
   
6.     End If
   
7. End Sub

复制代码

ljp518

{:soso_e163:}