再数据库里设置 唯一索引,不用判断,只要在程序里加上 出错陷阱,专门对数据更新作出错处理,就可以了如:on error goto lineERR
update aaa set abc=123 where cde=555exit sub
lineERR:
err.clear
msgbox "数据重复..................."
end sub
update aaa set abc=123 where cde=555exit sub
lineERR:
err.clear
msgbox "数据重复..................."
end sub
update aaa set abc=123 where cde=555exit sub
lineERR:
If Err.Number = -2147217906 Then
err.clear
msgbox "数据重复..................."
endif
end sub