Contraseñas en botones de comando
Buen dia; estoy creando una contarseña a un botón de comando, el cual al hacer click me pida la contraseña, si es verdadera necesito que me abra el formulario al cual se encuentra relacionado, de lo contrario no me abra el formulario, me conseguí el siguiente comando pero cuando le doy cancelar o una clave errada, me abre el formulario sin ningún problema. Te agradezco me ayudaras con este tema
Private Sub crear___modificar_Click()
crear___modificar.Enabled = True
Dim Password
Password = InputBox("Digite la Contraseña")
If Pasword = 12345 Then
Password.enable = False
End If
stDocName = "modificar planos estandar"
DoCmd.OpenForm stDocName
Exit_crear___modificar_Click:
Exit Sub
Err_crear___modificar_Click:
MsgBox Err.Description
Resume Exit_crear___modificar_Click
End Sub
Private Sub crear___modificar_Click()
crear___modificar.Enabled = True
Dim Password
Password = InputBox("Digite la Contraseña")
If Pasword = 12345 Then
Password.enable = False
End If
stDocName = "modificar planos estandar"
DoCmd.OpenForm stDocName
Exit_crear___modificar_Click:
Exit Sub
Err_crear___modificar_Click:
MsgBox Err.Description
Resume Exit_crear___modificar_Click
End Sub
1 Respuesta
Respuesta de azarleonardo
1
A ver...
Probá con algo así:
Private Sub crear___modificar_Click()
Dim Password
Password = InputBox("Por favor digite la Contraseña", "Control de acceso")
If Password = "12345" Then
DoCmd.OpenForm "modificar planos estandar"
Else
If Password = "" Then
Else
MsgBox "Contraseña incorrecta", vbCritical, "Error"
End If
End If
End Sub
Probá con algo así:
Private Sub crear___modificar_Click()
Dim Password
Password = InputBox("Por favor digite la Contraseña", "Control de acceso")
If Password = "12345" Then
DoCmd.OpenForm "modificar planos estandar"
Else
If Password = "" Then
Else
MsgBox "Contraseña incorrecta", vbCritical, "Error"
End If
End If
End Sub
