Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » problema con End If

Access - problema con End If

Volver
Nuevo Tema
<<>>
 
Vista:

problema con End If

Publicado por juan pimentel (1 intervención) el 03/06/2021 21:34:11
HOLA ESPERO QUE ME PUEDAN AYUDAR, SOY NOVATO EN ACCES Y ESTOY DESARROLLANDO UNA APLICACION, COPIE UNA APLICACION PARA DAR ACCESO A USUARIOS, PERO ME MARCA UN ERROR DE BLOQUE DE End If SIN If, LES COMPARTO LA APLICACION Y OJALA Y ME PUEDAN AYUDAR Y ME INDIQUEN DONDE VA EL End If, NO TENGO NI IDEA DONDE SE UBICA.
SALUDOS Y GACIAS POR SU APOYO

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
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
If 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 al sistema", , "Administrador"
                DoCmd.OpenForm "FormPrincipal"
            Else
                DoCmd.Close
                DoCmd.OpenForm "FormRegistrarUser"
           End If
      End If
    End If
    End Sub
Private Sub Form_Current()
 
End If
End Sub
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

problema con End If

Publicado por Anonimo (3397 intervenciones) el 03/06/2021 22:55:31
Verifica si borrando esto se evita ese error:

Private Sub Form_Current()

End If
End Sub

Sospecho que es un resto de algún experimento anterior (y se adapta como un guante al mensaje de Access)
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