如何处理文本框验证？

Question

Private Sub txtUserCode_Validate(Cancel As Boolean) 
    If RS!ID = txtUserCode.Text Then 
     SQL = "SELECT NAME,PRIVILEDGE FROM ADMIN WHERE CODE=" & txtUserCode.Text 
     Set RS = CN.Execute(SQL) 
     txtUserName.Text = RS!NAME 
    Else 
     MsgBox "ENTER VALID NO" 
     txtUserCode.Text = "" 
     Cancel = True 
    End If 
End Sub 

在这段代码我要执行这样的：

1. 如果我进入存在于表中的ID，然后它会显示信息，但它正在考虑第一个记录（RS!ID(0)）不仅没有下一个

2. 如果我输入不在表中的ID，那么它不应该抛出错误 3021- Requested operation requires current record但是转到其他部分。

请帮助

Answer 1

我假设RS是一个记录。

根据RS类型，你可以尝试Find记录是这样的：

RS.MoveFirst 
RS.Find("[CODE]=" & txtUserCode.Text) 
If Not RS.EOF Then 
    ' found! 
End If 

Link到ADO Find功能。