ACCESS文本框数据更改后如何跳出提示

emgl　发表于：2011-01-16 13:41:49 　

复制

ACCESS窗体的文本框数据更改后如何跳出提示框

并有确定或取消功能，确定后保存，取消后文本框返回原来的数据。

Top

煮江品茶发表于：2011-01-16 14:18:03

在更新后事件中处理即可

Top

阿不都发表于：2011-06-04 00:22:58

很好的题目，但没人回答

Top

阿不都发表于：2011-06-04 00:23:29

事件中怎么写代码呀

Top

网行者发表于：2011-06-04 05:46:43

例：

Private Sub 姓名_AfterUpdate()
Dim q As Integer
q = MsgBox("数据已改变，点确定继续，点取消重新输入", vbOKCancel + vbQuestion, "提示")
If q = vbCancel Then
Me.姓名 = Null
Me.姓名.SetFocus
End If
End Sub

Top

网行者发表于：2011-06-04 05:54:16

上面答非所问，下面修改：

Private Sub 姓名_AfterUpdate()
Dim q As Integer
q = MsgBox("数据已改变，点确认继续，点取消重新输入", vbOKCancel + vbQuestion, "提示")
If q = vbCancel Then
Me.Undo
End If
End Sub

Top

一过客发表于：2011-06-04 19:35:45

Private Sub form_AfterUpdate()
If MsgBox("数据已改变，点确认保存，点取消重新输入", vbOKCancel + vbQuestion, "提示!!!") = vbOK Then
DoCmd.Save
Else

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
End If
End Sub

点击下载此附件

Top

zhcosin 发表于：2011-06-04 21:26:28

我觉得这个应该在更新前事件中处理，毕竟点击取消后要保持文本框恢复原来的值，更新后点击取消怕会丢失原来的值吧。

Top

一过客发表于：2011-06-06 00:11:27

以上代码，如果确认更改单击确定，如果不更改需要单击取消和确定。如果有更好的方法请让我学习学习。

Top

总记录：8篇页次：1/1 9 1 :

Access交流中心

ACCESS文本框数据更改后如何跳出提示