lo he puesto de la sig. manera al ingresar contraseña correcta me dice que es incorrecta y despues de los tres intentos me da error (la parte roja)
aclaro mi tabla se llama usuario, el campo de contraseña se llama ClaveUsr y el campo de usuario
se llama LoginUsr
Código:
Option Compare Database
Dim Conn As ADODB.Connection
Dim rsCliente As ADODB.Recordset
Private Sub aceptar_click()
'MsgBox ("nombre" & nombre.Value)
Dim txtbusca, SQL, txtpass
txtbusca = login.Value
txtpass = pass.Value
SQL = "select ClaveUsr from Usuario where NivelUsr=0"
rsCliente.Source = SQL
rsCliente.Open , Conn, adOpenDynamic, adLockBatchOptimistic
If (Not rsCliente.EOF) Then
MsgBox ("Login y password correctos. Bienvenido " & rsCliente.Fields.Item(0).Value)
DoCmd.Close acForm, "Ingreso", acSaveNo
DoCmd.OpenForm "Panel de control"
Else
MsgBox ("El login y/o password son incorrectos")
intento = intento + 1
If intento >= 3 Then End
rsCliente.Close
End If
End Sub
Private Sub cancelar_Click()
Form_Unload (1)
End Sub
Private Sub Comando5_Click()
End Sub
Private Sub Detalle_Click()
End Sub
Private Sub Form_Load()
'MsgBox ("ANTES declarar nada")
Set Conn = New ADODB.Connection
Set rsCliente = New ADODB.Recordset
'MsgBox ("ANTES CONECTAR PROVIDER")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
'MsgBox ("ANTES CREAR DATASOURCE")
Conn.ConnectionString = CurrentDb.Name
'MsgBox (CurrentDb.Name)
'MsgBox Conn.State
Conn.Open
'Conn.Open
End Sub
Private Sub Form_Unload(Cancel As Integer)
Form.Visible = False
Conn.Close
'MsgBox "Hasta la próxima"
End Sub