bueno, de nuevo acá.
pude solucionar el problema así:
Código:
On Error Resume Next
With Usuario
.ActiveConnection = Data
.Open ("SELECT * FROM Users WHERE User like'" & Text1 & "'")
End With
If Check1.Value = 1 Then
Data.Execute "UPDATE Users SET Recordar=False"
Data.Execute ("UPDATE Users Set Recordar=True WHERE User like'" & Text1 & "'")
Else
Data.Execute "UPDATE Users SET Recordar=False"
End If
If (Usuario.BOF = True) And (Usuario.EOF = True) Then
MsgBox "Usuario Inexistente"
Else
If Usuario!Clave = Passwd Then
MsgBox "Contraseña Correcta!"
Else
MsgBox "Contraseña Incorrecta"
End If
End If
Usuario.Close
agregue ese "On Error Resume Next Arriba del todo"
funciona perfecto. y me di cuenta de una cosa... eso error solo lo tira cuando se quiere "leer" uno de los campos del recordset. en otra parte lo use solo para saber si existia un registro con x condicion, y como no puse en nigun momento RECORDSER!CAMPO no me tira error...
bueno, y ahora me trabe en otra parte... :P pongo esto
Código:
If cambio = True Then
With nuevoU
.ActiveConnection = Data
.Open ("Select * from users where user like'" & Usuar & "'")
End With
If (nuevoU.EOF = True) And (nuevoU.BOF = True) Then
If Contr = Contr2 Then
Data.Execute ("Insert Into Users ('User', 'Clave', 'Recordar') VALUES ('" & Usuar & "', '" & Contr & "', 'False')")
Else
MsgBox "Las Contraseñas no coinciden"
End If
Else
MsgBox "Ya existe el usuario"
End If
Else
MsgBox "Debes introduir un nuevo usuario y contraseña"
End If
y cuando pruebo de crear un nuevo usuario me tira el siguiente error: "Run-Time error '-2147217900 (8004e14)':
La instruccion INSERT INTO contiene el siguiento nombre de campo desconicido: "User"."
pero ese campo existe!!! y en la tabla donde yo puse!
alguna idea de que puede ser? :S