comparar un textbox con una base de datos
Publicado por Pedrito (16 intervenciones) el 30/04/2009 18:28:46
Hola a todos, necesito ayuda; os explico lo que quiero hacer y como lo tengo puesto, haber porque me falla.
Tengo abierto un formulario que introduzco el nombre de usuario y contraseña con Textbox, cuando le doy al botón de aceptar tienes que comprobar si es correcto el nombre de usuario y contraseña, y si no estuviera bien avisar que esta mal.
Esto es lo que he puesto en el botón al aceptar:
Dim stDocName As String
Dim stLinkCriteria As String
DoCmd.FindRecord Usuario, , True, , True, acAll
If Usuario = Texto3 Then
DoCmd.FindRecord Contraseña, , True, , True, acAll
If [Contraseña] = Texto5.Text Then
stDocName = "RULETA"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'End If
Else
MsgBox ("Nombre de usuario o contraseña erroneo, vuelva a intentarlo")
End If
Este el error que me sale:
Introdujo una expresión con un tipo de datos incorrecto para uno de los argumentos.
Un saludo,
Pedrito
P.D. Usuario y Contraseña esta puesto en la base de datos como Texto.
Tengo abierto un formulario que introduzco el nombre de usuario y contraseña con Textbox, cuando le doy al botón de aceptar tienes que comprobar si es correcto el nombre de usuario y contraseña, y si no estuviera bien avisar que esta mal.
Esto es lo que he puesto en el botón al aceptar:
Dim stDocName As String
Dim stLinkCriteria As String
DoCmd.FindRecord Usuario, , True, , True, acAll
If Usuario = Texto3 Then
DoCmd.FindRecord Contraseña, , True, , True, acAll
If [Contraseña] = Texto5.Text Then
stDocName = "RULETA"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'End If
Else
MsgBox ("Nombre de usuario o contraseña erroneo, vuelva a intentarlo")
End If
Este el error que me sale:
Introdujo una expresión con un tipo de datos incorrecto para uno de los argumentos.
Un saludo,
Pedrito
P.D. Usuario y Contraseña esta puesto en la base de datos como Texto.
Valora esta pregunta


0