Contraseña en Formulario

Hola expertos
Como puedo hacer para que al darle un click a un botón para abrir un formulario, que no se abra si no es con contraseña, osea que antes me pida el password.
Gracias
1

1 respuesta

Respuesta
1
En el evento al abrir puedes poner el siguiente código
Dim MyPass As String
Dim TuPass As String
MyPass="clavesecreta" 'Clave que deseas para el formulario
TuPass=InputBox("Clave de Acceso","Introduce la clave","")
If TuPass<>MyPass Then
MsgBox "La clave de acceso al formulario no es valida"
Cancel=-1
End If
Espero te sirva
Saludos
Gracias JuanMiguel, funciona bien, pero se puede poner mascara (******) para que lo que teclees no te lo puedan ver, si no se puede me lo dices y cierro la pregunta, pues con cuidado también sirve... Gracias
Hay 2 soluciones, la primera es hacerlo por medio de un formulario con un cuadro de texto con la mascara de entrada 'Password' y la segunda muy buena (excelente diria yo) es la del maestro 'happy' que tiene infinidad de codigo muy bueno en su pagina http://www.mvp-access.com/accessvbafaq y en esta direccion en especifico http://www.mvp-access.com/accessvbafaq/item.asp?pagina=37 esta lo que tu buscas
Si tienes más dudas o deseas aprender cosas muy interesantes sobre Access te puedo recomendar el Foro del Búho que se encuentra en la siguiente dirección
http://www.mvp-access.com/foro
Seguro te va a gustar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas del tema Microsoft Access o hacer tu propia pregunta: