access开发平台--如何实现修改时，弹出提示修改记录不能重复数据的窗口

时　间:2008-11-26 10:40:46
作　者:褚玉春   ID：11  城市：上海  QQ：3002789054
摘　要:Access开发平台点击"修改"按钮时候如何弹出修改记录不能重复的窗口
正　文:

(Q)此示例适合学习access开发平台的学员使用,很多学员在用平台做修改窗体时候,会遇到这种情况,即是修改了数据后点了"关闭"按钮了,数据是修改了,但是会出现与前面记录重复数据,现想做一个修改的提示框!

 
(A)Access2003环境下方法如下:(以报销教程里面的员工姓名修改为例)

第一:首先退出程序,打开后台数据库,进入表中将该字段属性里面的索引改成"有(无重复)"

 
第二:进入修改窗体的设计状态→该文本框属性→事件→更新后→选择[事件过程]→单击右面的"…"

  
第三:点击进入了VBA编辑界面,在鼠标光标处输入以下红色部分代码:
         If Acchelp_StrDataIsExist("tblCodeyg", "ygxm", Me.ygxm) = True Then
              MsgBox "你输入的数据已经存在，请重新输入", vbCritical, "警告"
              Me.ygxm.SetFocus
              Me.Undo
              Exit Sub
         End If
第四:保存并运行试试效果.

另: 如果是Access2007版的,请将上述代码复制到你的"确定"或者"保存"按钮的事件过程里面.

注:大家在开发自己软件过程中,也可以加以应用的,只需将代码中绿色部分改为自己的表名与字段名即可

相关:

修改弹出提示窗口     修改不能为"空"