Control
Controles (07/12/05)
Saludos y gracias por ayudarme; trato de controlar el aceso de formas elaborando cleave cuando la forma se habré atraver de un evento, el evento es el siguiente:
'*********Password Control*****************
Dim strInput As String, strMsg As String
strMsg = "Login Administration >>>>Enter Your PASSWORD<<<<"
strInput = InputBox(Prompt:=strMsg, _
Title:="User Info", XPos:=2000, YPos:=2000)
If strInput = "tration" Then
'Remarks Open Menu
Else
MsgBox "Wrong Password **Invalid** >>>>Unauthorized User<<<<"
Cancel = True ' Cancel Open event.
End If
'******************************************
Esto me trabaja excelente lo único es que necesito hacer dos coasa el cual no tengo experiencia,
1. Que al entrar la clave secreta no se vea, osea que aparezcan asteriscos.
2. Que cuando entre la clave cheque una tabla que se llama claves si esta la clave en dicha tabla entonces que prosiga, de lo contrario que no habrá la forma.
Entiendo que la rutina esta echa la cual es esta para controlar pero no se como poner el campo a que solo se vea en asteriscos, y lo de buscar en la tabla de claves. Gracias nuevamente.
Saludos y gracias por ayudarme; trato de controlar el aceso de formas elaborando cleave cuando la forma se habré atraver de un evento, el evento es el siguiente:
'*********Password Control*****************
Dim strInput As String, strMsg As String
strMsg = "Login Administration >>>>Enter Your PASSWORD<<<<"
strInput = InputBox(Prompt:=strMsg, _
Title:="User Info", XPos:=2000, YPos:=2000)
If strInput = "tration" Then
'Remarks Open Menu
Else
MsgBox "Wrong Password **Invalid** >>>>Unauthorized User<<<<"
Cancel = True ' Cancel Open event.
End If
'******************************************
Esto me trabaja excelente lo único es que necesito hacer dos coasa el cual no tengo experiencia,
1. Que al entrar la clave secreta no se vea, osea que aparezcan asteriscos.
2. Que cuando entre la clave cheque una tabla que se llama claves si esta la clave en dicha tabla entonces que prosiga, de lo contrario que no habrá la forma.
Entiendo que la rutina esta echa la cual es esta para controlar pero no se como poner el campo a que solo se vea en asteriscos, y lo de buscar en la tabla de claves. Gracias nuevamente.
1 Respuesta
Respuesta de hen9
1
En propiedades del campo donde se ingresa el campo, vas a Datos y allí seleccionas formato y mascara de entrada y pones que sean asteriscos y listo.
Para lo del passwd contra la tabla, debes de crear una tabla de usuarios y con la función dbúsq() buscas que lo que se introdujo este en la tabla.
Para lo del passwd contra la tabla, debes de crear una tabla de usuarios y con la función dbúsq() buscas que lo que se introdujo este en la tabla.
