access数据库中判断数据的唯一性

Question

strSql="Select * from tablename where f_field='" & txtValue & "'"
rs.open strSql
if not rs.eof then
  msgbox "数据重复，请重新输入"
end if

Answer 1

If gintTmode = 1 Then
        txtSQL = "select * from 表名 where 字段名='" & Trim(text1)& "'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        If mrc.EOF = False Then
            MsgBox "已经存在此记录！", vbOKOnly + vbExclamation, "警告"
            text1.SetFocus
            Exit Sub
        End If
        mrc.Close
    End If我的窗体为mid窗体

Answer 2

最好的办法就是设置主键，然后在保存数据时用on error捕捉主键的冲突错误。