如何处理文本框验证？

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函数。