Access - clave formulario no visible

   
Vista:

clave formulario no visible

Publicado por j.leal (14 intervenciones) el 06/12/2009 09:50:08
Hola a todos y gracias por adelantado.
Tengo un formulario protegido por contraseña. Pero podría en el msgBox que me aparece que al escribir la contraseña no pudiera leerla, sino que me apreciera **** en vez de1234, ya que así verían los números que introduzco.

Este es el evento:

Private Sub Form_Open(Cancel As Integer)
Dim MyPass As String
Dim TuPass As String
MyPass = "1234" 'Clave que deseas para el formulario
TuPass = InputBox("CLAVE DE ACCESO A FACTURACIÓN", "Introduce la CLAVE", "")
If TuPass <> MyPass Then
MsgBox "La clave de acceso al formulario no es valida"
Cancel = -1
End If
End Sub

Gracias y un saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:clave formulario no visible

Publicado por QUIQUE (293 intervenciones) el 06/12/2009 12:46:43
EN LAS PROPIEDADES DEL CUADRO DE TEXTO DONDE ESCRIBIS EL PASS, DEBES PONER EN MASCARA DE ENTRADA , CONTRASEÑA o PASSWORD, Y VERAS LOS ASTERISCOS.

SALU2

QUIQUE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:clave formulario no visible

Publicado por Jefferson (22 intervenciones) el 07/12/2009 01:44:47
Hola j.leal

Lamentablemente la funcion Inputbox no permite enmascarar los caracteres con *** al menos no con el codigo nativo de access. Se puede hacer utilizando o creando un codigo en un modulo para tal efecto.

Hace tiempo hice un ejemplo como el que solicitas....
Puedes descargarlo desde http://sites.google.com/site/jjjt1973/ejemplos-access
Ejemplo 48) Control de Acceso a los Form Mediante Claves de Usuario

Desde Venezuela
Jefferson
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar