Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » MsgBox con Nombre de Usuario Logado, Access

Access - MsgBox con Nombre de Usuario Logado, Access

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil
Val: 9
Ha aumentado su posición en 5 puestos en Access (en relación al último mes)
Gráfica de Access

MsgBox con Nombre de Usuario Logado, Access

Publicado por David (5 intervenciones) el 05/03/2021 01:26:39
Buenas Noches,

Estoy creando un Formulario de Login para mi BD en Access y me gustaría que cuando accedan aparezca un MsgBox con el nombre del usuario que se a logado ejemplo: "Bienvenido: David (Nombre de Usuario)

Estoy Intentando con el siguiente código

MsgBox "Bienvenido: & Usuario !!!", vbOKOnly, "SuperAdmin" - Pero me aparece "Bienvenido: & Usuario.

Podéis echarme una mano. Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Joan
Val: 414
Bronce
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

MsgBox con Nombre de Usuario Logado, Access

Publicado por Joan (150 intervenciones) el 05/03/2021 12:21:25
1
MsgBox "Bienvenido: " & usuario & " !!!", vbOKOnly, "SuperAdmin"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 9
Ha aumentado su posición en 5 puestos en Access (en relación al último mes)
Gráfica de Access

MsgBox con Nombre de Usuario Logado, Access

Publicado por David (5 intervenciones) el 05/03/2021 21:05:25
Me aparece vacio, Solo me Devuelve, "Bienvenido: "

Les dejo mi codigo.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub Comando1_Click()
Dim UserLevel As Integer
 
If IsNull(Me.txtUsuario) Then
        MsgBox "Por favor, escriba su Usuario", vbInformation, "Usuario requerido"
        Me.txtUsuario.SetFocus
    ElseIf IsNull(Me.txtpass) Then
        MsgBox "Por favor, ingrese su Contraseña", vbInformation, "Contraseña requerida"
        Me.txtpass.SetFocus
    Else
        If (IsNull(DLookup("[Usuario]", "Usuarios", "[Usuario] ='" & Me.txtUsuario.Value & _
        "' And Pass = '" & Me.txtpass.Value & "'"))) Then
            MsgBox "Usuario y/o Contraseña incorrectos"
        Else
 
            UserLevel = DLookup("Nivel_Seguridad", "Usuarios", "Usuario = '" & Me.txtUsuario.Value & "'")
 
            If UserLevel = 1 Then
 
                DoCmd.Close
            MsgBox "Bienvenido: " & Usuario & " !!!", vbOKOnly, "SuperAdmin"
            ElseIf UserLevel = 2 Then
 
                DoCmd.Close
                MsgBox "Bienvenido!!!", vbOKOnly, "Administrador"
            Else
 
                DoCmd.Close
                MsgBox "Bienvenido!!!!", vbOKOnly, "User"
 
 
 
 
            End If
    End If
    End If
 
 
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Joan
Val: 414
Bronce
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

MsgBox con Nombre de Usuario Logado, Access

Publicado por Joan (150 intervenciones) el 05/03/2021 23:54:59
Necesitas guardar en algún sitio el nombre del usuario. Si no cierras el formulario de login te aparecerá, pero si lo cierras con el DoCmd.Close no sabe de dónde a de capturar el usuario.

1
MsgBox "Bienvenido: " & me.txtusuario & " !!!", vbOKOnly, "SuperAdmin"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 9
Ha aumentado su posición en 5 puestos en Access (en relación al último mes)
Gráfica de Access

MsgBox con Nombre de Usuario Logado, Access

Publicado por Dav (5 intervenciones) el 06/03/2021 21:28:25
Ya esta Solucionado.
Finalmente lo que hice fue cambiar el orden de ejecución de los eventos.

Quedando Primero el msgBox y Luego el Comando de cierre.

Muchas Gracias!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar