¿Como cambiar el procedimiento de evento de un botón?
Tengo una base de datos en la cual estoy poniendo diferentes usuarios con contraseña. El problema es el siguiente:
Cuando un usuario que no es el administrador entra la ventana de login no se cierra y queda ahí. Lo que necesito es que esta ventana se cierre y y permita pasar los registros de un solo formulario sin poder modificarlo.
Este es el código que tengo:
Option Compare Database
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!!!", , "Administrador"
Else
DoCmd.OpenForm "Agregar_Productos"
End If
End If
End If
End Sub