Contraseña de entrada
Hola expertos
Dispongo de una base en access´97, el formulario de inicio tiene varios cmdboton y en uno de ellos deseo que le pida una contraseña para que pueda ejecutar la acción..
¿Podéis ayudarme?
Gracias
Dispongo de una base en access´97, el formulario de inicio tiene varios cmdboton y en uno de ellos deseo que le pida una contraseña para que pueda ejecutar la acción..
¿Podéis ayudarme?
Gracias
Respuesta de roypasr
1
Create un botón y le pones el siguiente código:
Dim strEntrada As String, strMensaje As String
strMensaje = "Escriba contraseña."
strEntrada = InputBox(Prompt:=strMensaje, Title:="Solicitud de contraseña", XPos:=2000, YPos:=2000)
If strEntrada = "claudio" Then
MsgBox "coincide"
'DoCmd.OpenForm "NOMBRE DEL FORMULARIO QUE QUIERAS ABRIR"
Else:
MsgBox "no coincide contraseña"
End If
Si deseas que la contraseña sea otra, cambia claudio por la contraseña que desees
Dim strEntrada As String, strMensaje As String
strMensaje = "Escriba contraseña."
strEntrada = InputBox(Prompt:=strMensaje, Title:="Solicitud de contraseña", XPos:=2000, YPos:=2000)
If strEntrada = "claudio" Then
MsgBox "coincide"
'DoCmd.OpenForm "NOMBRE DEL FORMULARIO QUE QUIERAS ABRIR"
Else:
MsgBox "no coincide contraseña"
End If
Si deseas que la contraseña sea otra, cambia claudio por la contraseña que desees
