1 
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. RS!ID(0)テーブルに存在するIDを入力すると、情報が表示されますが、最初のレコード（ ）のみが考慮され、次のレコードは考慮されません。

  2. テーブルに存在しないIDを入力すると、エラーはスローされません 3021- Requested operation requires current recordが、elsepartに移動します。

助けてください

4

1 に答える 1

0

私はRSレコードセットであると仮定しています。

タイプに応じて、次のような記録RSを試すことができます。Find

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

ADOFind関数にリンクします。

于 2013-02-21T16:36:38.137 に答える