Controles
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.
'*********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 roypasr
1
Quizás deberías de probar con un formulario en lugar de un inputbox. Lo digo porque con el inputbox es posible, pero quizás algo caro ya que hay que insertar un par de módulos bastante complejos para lograr los asteriscos.
Ya le echaras un vistazo a esta direccion, tienes un ejemplo de insercion de asteriscos que te sera muy util
http://accessvbafaq.mvps.org/item.asp?pagina=37
En cuanto a lo de que te mire en una tabla, añadele la funcion DLookup
If IsNull(DLookup("campodondebuscar", "nombretabla", "nombrecampo = '" & Forms!nombrecontrolformulario "'" )) = False
then abrir el formulario que interese
Fíjate que es a false el isnull, es decir eso seria si lo encuentra (vamos que no es nula la búsqueda, o sea que si que encuentra.
Suerte
Ya le echaras un vistazo a esta direccion, tienes un ejemplo de insercion de asteriscos que te sera muy util
http://accessvbafaq.mvps.org/item.asp?pagina=37
En cuanto a lo de que te mire en una tabla, añadele la funcion DLookup
If IsNull(DLookup("campodondebuscar", "nombretabla", "nombrecampo = '" & Forms!nombrecontrolformulario "'" )) = False
then abrir el formulario que interese
Fíjate que es a false el isnull, es decir eso seria si lo encuentra (vamos que no es nula la búsqueda, o sea que si que encuentra.
Suerte
