各位大哥救急啊!!!!

Question

用change事件按文本框的内容的内容在数据库中查找，if  rst.eof then
msgbox "此记录重复"
end if

Answer 1

刚才少写了一个not 
if not  rst.eof then
msgbox "此记录重复"
end if

Answer 2

ｔｏ　　nylyj(与君)　：　"用change事件按文本框的内容的内容在数据库中查找"不可以这样，这样的话，每按一个按钮就要搜索一次数据库？？
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝根据　文本框的内容在数据库中查找　，这样就行了

Answer 3

griefforyou(为你伤心) 你真的是不知道什么意思？楼主表达的很清楚，只是你没时间解决这个问题，又想弄点分，所以第一个回答，才说“什么意思”。实际上这个问题不难，但回答起来很罗嗦，所以你就不回答了，但又想要分，卑鄙！

Answer 4

在提交按钮中添加代码查找是否与数据库中记录重复即可 
dim mrc as ADODB.recordset
Private Sub cmdok_Click()
     txtSQL = "select  * from tabelName  where aa  = '" & Trim(text1.Text) & "'"
     ……
     …… '执行查询
    If Not mrc.RecordCount = 0 Then
        msgbox "重复添加"
       
        Exit Sub
    End If 
End Sub

Answer 5

也可以通过按回车来确认
sub text1_keypress(keyascii as integer)
if keyascii=13 then     txtSQL = "select  * from tabelName  where aa  = '" & Trim(text1.Text) & "'"
     ……
     …… '执行查询
    If Not mrc.eof  Then
        msgbox "重复添加"
       
        Exit Sub
     end if
end ifend sub