Tengo un problema con el dlookup

Estoy haciendo un control de usuarios y el código me arroja el siguiente error la expresión que ha especificado como parametro de la consulta produjo el error 'RBAPTISTE'

Rbaptiste es el usuario

Private Sub BT_INGRESAR_Click()

If TPASSWORD = DLookup("[PASSWORD]", "USUARIOS", "[USUARIO]=" & TUSUARIO) Then
MsgBox ("ESE ES EL US"), vbInformation, "CREDIUNO"
End If

End Sub

1 respuesta

Respuesta

Por lo que parece no estás utilizando campos, o controles, sino parámetros, lo cual me lleva a pensar que no estás realizando bien lo que quieres lograr.

Además la línea del msgbox tampoco es correcta.

Échale un vistazo a este ejemplo, donde está todo bien explicado: http://goo.gl/Y6xqE

Te ruego cierres la consulta.

muchas gracias por tu colaboración, ya lo logre realizar con el siguiente código

Private Sub BT_INGRESAR_Click()
Dim y As Integer
If Nz(Me.TUSUARIO.Value, "") = "" Then
MsgBox ("Ingrese Usuario"), vbInformation, "CREDIUNO"
Me.AS1.Visible = True
Me.TUSUARIO.SetFocus
Exit Sub
Else
If Nz(Me.TPASSWORD.Value, "") = "" Then
MsgBox ("Ingrese Contraseña"), vbInformation, "CREDIUNO"
Me.AS2.Visible = True
Me.TPASSWORD.SetFocus
Exit Sub
End If
End If
If TPASSWORD = DLookup("PASSWORD", "USUARIOS", "USUARIO=Form!TUSUARIO") Then
y = MsgBox("Desea Ingresar Como: " & DLookup("NOMBRES", "USUARIOS", "USUARIO=Form!TUSUARIO") & " " & DLookup("APELLIDOS", "USUARIOS", "USUARIO=Form!TUSUARIO") & vbCrLf & "Tipo De Usuario: " & DLookup("[TIPO DE USUARIO]", "USUARIOS", "USUARIO=Form!TUSUARIO"), vbYesNo, "CREDIUNO")
If y <> 6 Then
Exit Sub
End If
DoCmd.OpenForm "formulario2", acNormal
DoCmd.Close acForm, "ingreso"
Else
MsgBox ("Usuario/Contraseña Incorrecta"), vbInformation, "CREDIUNO"
End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Hola nuevamente, ojalá me puedas ayudar con un error en un código VB en access

El problema es que no me respetando el total de intentos al ingresar una contraseña errónea, automáticamente me saca a la primera, cuando lo debería hacer al tercer intento, aquí va el código y gracias: Option Compare Database Option Explicit Dim...
2 respuestas

Accesos usuarios

Tengo una rutina de accesos de usuarios, pero se concetarla con el formulario del menu de inicio. De envío la rutina completa. Option Compare Database Option Explicit Dim NumIntentos As Integer Private Sub CmdAcceder_Click() Dim auxContraseña As...
2 respuestas

Solución Cuentas de Usuario Access?

Soy nuevo aquí en el sitio y espero que alguien me pueda ayudar! Tengo la Siguiente linea que me funciona de maravilla para la administración de cuentas de usuario (Usuario y Administrador)... Pero deseo agregar un tercer sujeto (Usuario...
2 respuestas

Error en el uso de DLOOKUP access

Estoy utilizando DLOOKUP para obtener datos en base a la búsqueda de un ID (Expediente) y este me devuelve los datos personales de un usuario: Ejemplo: 'búsqueda de expediente Private Sub Expediente_AfterUpdate() Lugar = DLookup("[Lugar]",...
1 respuesta

Access 2007 trabajar con un usuario a la vez

Mi nombre es Luis, soy novato en access 2007, he visto varias preguntas que me han ayudado mucho en esta web. Espero me puedan ayudar con el problema que tengo: estoy generando una aplicación que lleve registro de presupuestos y ordenes de trabajo,...
2 respuestas

Mostrar usuario en un Lbl o TextBox

Quisiera hacerle una consulta sobre como mostrar en una etiqueta o caja de texto el nombre del usuario que entra a la base de datos no el usuario de windows. Tengo lo siguiente dos tablas usysusuario y usysacceso. Usysusuarios con los siguientes...
1 respuesta

Access cuadro de dialogo código ya existe

Tengo en un formulario un cuadro de texto en donde registro una serie de códigos manualmente los cuales no se pueden repetir, por ejemplo L001, L002, etc... Necesito que al momento del registro de un código que ya se encuentre en la BD de access me...
2 respuestas

Acceder a access con usuarios definidos a un formulario especifico según su grupo.

Bueno hace unos meses estoy desarrollando una aplicación en Access 2007 muy buena que me facilita cada vez mas mi trabajo, ya estoy en la etapa final y como cierre quiero parametrizar el acceso de los usuarios según sus funciones al sistema, con...
1 respuesta

Aplicación en access 2007 para el control de usuarios

Este es el código que utilizo para validar el ingreso de los usuarios, a la hora de ingresar necesito que me abra un formulario por cada usuario que tenga registrado en base de datos, ya que cuento con 30 usuarios y un administrador del sistema. Dim...
1 respuesta

Dbúsq como valor predeterminado o campo calculado en vista diseño

Uso access 2010 Llevo unas horas intentando resolver este problema que describo a continuación: Tengo una tabla Tb_reses con estos campos: "crotal res", "raza res" Otra tabla Tb_inseminaciones con estos campos: "crotal vaca", "raza vaca insemi" Los...
1 respuesta