Seguridad!
Publicado por Manuel (22 intervenciones) el 28/10/2003 13:53:24
Hola...
Estoy utilizando un boton para restringir el uso de uno de mis formularios y utilice esto:
Dim strEntrada As String, strMensaje As String
strMensaje = "Ingrese Contraseña"
strEntrada = InputBox(Prompt:=strMensaje, Title:="Solicitud de contraseña", XPos:=2000, YPos:=2000)
If strEntrada = "claudio" Then
DoCmd.OpenForm "Menu Inicio"
Else:
MsgBox "Contraseña Incorrecta"
End If
Esto funciona correctamente cuando la contraseña es correcta, pero cuando existe algún error digamos que de "transcripción", sale el msj de contraseña incorrecta, pero de igual forma abre el formulario...
Quisiera saber que le puedo agregar a esta SQL para que al momento de que la clave sea incorrecta o no se le coloque clave pues no abra el formulario...
Gracias a quien pueda ayudarme...!
Manuel!
Estoy utilizando un boton para restringir el uso de uno de mis formularios y utilice esto:
Dim strEntrada As String, strMensaje As String
strMensaje = "Ingrese Contraseña"
strEntrada = InputBox(Prompt:=strMensaje, Title:="Solicitud de contraseña", XPos:=2000, YPos:=2000)
If strEntrada = "claudio" Then
DoCmd.OpenForm "Menu Inicio"
Else:
MsgBox "Contraseña Incorrecta"
End If
Esto funciona correctamente cuando la contraseña es correcta, pero cuando existe algún error digamos que de "transcripción", sale el msj de contraseña incorrecta, pero de igual forma abre el formulario...
Quisiera saber que le puedo agregar a esta SQL para que al momento de que la clave sea incorrecta o no se le coloque clave pues no abra el formulario...
Gracias a quien pueda ayudarme...!
Manuel!
Valora esta pregunta
0