如何把主索引的提示换成我自己的提示

jlsxux

在窗体中的主索引字段，如输入重复值或为空时，程序

会自动出现提示，我的问题是如何将此提示换成我自己

的提示，请哪位朋友指点一下。

george

不要用主索引,完全使用VBA来实现

写更改前()事件完成.

dim a

dim b

a=me.文本1()

if isnull(a)=true then

    msgbox " is null, err"

    cancel=true

esle

     b=dlookup("id","表1","id like '" & a & "'")

     if isnull(b)=fasle then

          msgbox " 重复,err"

          cancel =true

     end if

end if

[此贴子已经被作者于2004-12-21 8:54:10编辑过]