If Acchelp_StrDataIsExist("tbl_tpj", "xh", Me.xh) = True Then
       MsgBox "该产品编码已存在！", vbCritical, "提示"
       Me.xh.SetFocus
        Exit Sub
    End If

发现如果表名:tbl_tpj是dbo_tbl_tpj就不能实现这个函数的功能,望各位如果用企业版开发的,一定要注意链接表的名字前面的  dbo_    一定要去掉