Access - problema con End If

 
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 (3136 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