Almacenar un valor para usarlo luego en una tabla
Publicado por Alberto (2 intervenciones) el 23/07/2007 18:57:25
TENGO EL SIGUIENTE CODIGO EN UN FORMULARIO:
Private Sub txtContraseña_Exit(Cancel As Integer)
Dim xBusca As Variant
Static NumeroIntentos As Integer
Dim Saludo As String
NumeroIntentos = NumeroIntentos + 1
xBusca = DLookup("[Pass]", "Usuarios", "[Pass] = '" & txtContraseña & "' and [Usuario] ='" & txtUsuario & "'")
If IsNull(xBusca) Then
Cancel = True
Call Error("Error", "La contraseña no es valida, intento." & NumeroIntentos, _
"si no recuerdas tu contraseña puedes recuperarla pulsando en la opcion ""Recuperar mi Contraseña."" ")
Else
NumeroIntentos = 0
xBusca = DLookup("[sexo]", "Usuarios", "[Usuario] ='" & txtUsuario & "'")
If xBusca = "M" Then
Saludo = " se bienvenida "
Else
Saludo = " se bienvenido "
End If
xBusca = DLookup("[Nivel]", "Usuarios", "[Usuario] ='" & txtUsuario & "'")
lblMensajes.Caption = "Hola " & txtUsuario & Saludo & ". Tu nivel de acceso es " & xBusca
DoCmd.OpenForm "INICIO"
End If
If NumeroIntentos = 3 Then DoCmd.Quit
End Sub
LO QUE NECESITO ES RECUPERAR EL VALOR DE txtUsuario PARA AGREGARLO A UNA TABLA Y PODER LIMITAR EL ACCESO A OTROS FORMULARIOS, PERO NO SE COMO. OJALA ALGUIEN PUEDA ECHARME UNA MANO CON ESTO, DE ANTEMANO GRACIAS
Private Sub txtContraseña_Exit(Cancel As Integer)
Dim xBusca As Variant
Static NumeroIntentos As Integer
Dim Saludo As String
NumeroIntentos = NumeroIntentos + 1
xBusca = DLookup("[Pass]", "Usuarios", "[Pass] = '" & txtContraseña & "' and [Usuario] ='" & txtUsuario & "'")
If IsNull(xBusca) Then
Cancel = True
Call Error("Error", "La contraseña no es valida, intento." & NumeroIntentos, _
"si no recuerdas tu contraseña puedes recuperarla pulsando en la opcion ""Recuperar mi Contraseña."" ")
Else
NumeroIntentos = 0
xBusca = DLookup("[sexo]", "Usuarios", "[Usuario] ='" & txtUsuario & "'")
If xBusca = "M" Then
Saludo = " se bienvenida "
Else
Saludo = " se bienvenido "
End If
xBusca = DLookup("[Nivel]", "Usuarios", "[Usuario] ='" & txtUsuario & "'")
lblMensajes.Caption = "Hola " & txtUsuario & Saludo & ". Tu nivel de acceso es " & xBusca
DoCmd.OpenForm "INICIO"
End If
If NumeroIntentos = 3 Then DoCmd.Quit
End Sub
LO QUE NECESITO ES RECUPERAR EL VALOR DE txtUsuario PARA AGREGARLO A UNA TABLA Y PODER LIMITAR EL ACCESO A OTROS FORMULARIOS, PERO NO SE COMO. OJALA ALGUIEN PUEDA ECHARME UNA MANO CON ESTO, DE ANTEMANO GRACIAS
Valora esta pregunta
0