Botón Click, abrir formulario con CONTRASEÑA.

Primero seria ver que si tu declaración de mypass y tupas son cuadros de texto o que son, y si tienes una base de datos a donde guardas el nombre de tus usuarios o si el nombre de usuario lo escribirás en el código como lo de "clave secreta" por que si lo escribes dentro del mismo código yo aria algo así.
private sub command52_load ()
dim s as string
if mypass.text <> tupass.text  o  la clave que tu asignes  then
s = msgbox ("clave incorrecta" , vbcritical, "error")
else
infovan.show
end if
end sub
Ya que el código que tu usas esta complicado claro solo si me dices porque la necesidad de hacer tantas variable y el que te doy es más simple bueno falta que me indiques lo de tupas mypass que son

Buenas Mani10!
Nuevo pregunta... ya que se que tu dominas VB... estoy intentando aventurarme...
Después de navegar TODA LA TARDE, por la página de TodoExpertos, y realizar decenas de pruebas...
Necesito 1 botón, que al hacer clic, me pida una contraseña, si es OK, me abre el formulario "INFOVAN", si NO es OK, pues que diga, Clave incorrecta.
Creo el botón, en sus propiedasdes, EVENTOS / AL hacer clic, genero el siguiente código:
Option Compare Database
Private Sub Comando52_Click()
Dim MyPass As String
Dim TuPass As String
MyPass = "clavesecreta"
TuPass = InputBox("Clave de Acceso", "Introduce la clave", "")
If TuPass <> MyPass Then
MsgBox "Clave incorrecta"
Cancel = -1
End If
End Sub
Lo que me faltaría es decirle que FORMULARIO tiene que abrir, en mi caso "INFOVAN", pero no se el código que tengo que introducir, ni en que linea agregarla.. ni si tengo que poner Then... ¿o algo por el estilo NO?
Docmd.Openform "INFOVAN"
Else:
End If
¿Podrías echarme un cable? ¿Cómo sería en código correcto para que funcione?
Muchísimas gracias de antemano por tu interés y ayuda.
Saludos,

HOla Mani!
Gracias por tu rápida ayuda, Tu código funciona OK! Gracias,
Como te comentaba ayer estuve por todoexpertos navegando y fue un código que encontré, el cual funcionaba correctamente, ya que le clicas al botón, y te sale un cuadro de mensaje pidiéndote la contraseña.
El único problema es que, no te abre el FORMULARIO, le falta algo en el código... que le diga.. si es = a "clavesecreta" abrir el formulario "INFOVAN" y si es FALSO, que continué con el código, y devuelva la ventada de error.
El Mypass Tupas.. tampoco entiendo bien de donde procede...
Te invito, a que pegues el código que te envíe, en un generador de eventos, y veas el comportamiento tu mismo, veras que sale todo correcto, excepto, que si la clave es correcta, NO abre el formulario.
Tu código funciona, ¿pero sabes como podría solucionarlo para poder hacerlo de ese modo? Que se te habrá el "inputbox", ¿cuadro de pregunta de contraseña?
Así mismo, aprovecho la pregunta abierta, cuando escriba en el cuadro de CONTRASEÑA del inputbox, como hacer para que aparezca como ****... ¿creo qué es mucho pedir no?
Si es posible, te lo agradecería muchísimo, en caso contrario, dímelo, cierro la pregunta y tirare con el código que ya me has facilitado, ya que funciona también. ( lo otro es ya perfeccionar...)
Gracias de nuevo y saludos,

Gracias a tu ayuda, he conseguido realizar lo que necesitaba.
NO ES REALMENTE LO QUE QUERÍA, pero es al 100% funcional como necesitaba.
Finalmente he generado una macro para cerrar el formulario de solicitud de contraseña, + cerrar el formulario "privado", y al cerrarlos a la vez, automáticamente se limpian los datos.
Muchísimas gracias de verdad!
Saludos,

Adjunto lo que podría ser el código de un botón que comprueba el valor de un campo llamado password, con un valor concreto.
Tienes los condicionales If ... Then ... y la apertura de Formulario
Private Sub Administrador_Click()
On Error GoTo Err_Administrador_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "MenuPermitido"
    If (password = "CONTRASEÑASECRETA") Then
          DoCmd.OpenForm stDocName, , , stLinkCriteria
    End If
Exit_Administrador_Click:
    Exit Sub
Err_Administrador_Click:
    MsgBox "Acceso Denegado. Su usuario no dispone de los permisos necesarios"
    Resume Exit_Administrador_Click
End Sub

Hola Qweke,
En primer lugar muchísimas gracias por tu rapidísima ayuda,
Tu código funciona estupendamente, muchísimas gracias.
Solo una cuestión, como lo puedo hacer, para que al salir del formulario, el campo que he creado password, se borre... es decir que se quede de nuevo en blanco, ¿para cuándo alguien entre en el formulario tenga que escribir de nuevo la contraseña?
Gracias de nuevo
Saludos,

Puedes crear un evento en el formulario, para que al abrir o recibir el enfoque el formulario, asigne valor vacío a ese campo.
password = "" ó password = "Introduzca la contraseña"

QUE VELOCIDAD, Muchísimas Gracias,
QUE MALO QUE SOY... NO te puedes NI imaginar... lo que significa la ayuda que me estas dando...
Tengo el siguiente código:
Option Compare Database
Private Sub Comando14_Click()
On Error GoTo Err_Comando14_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "INFOVAN"
    If (Usuario = "1234") Then
          DoCmd.OpenForm stDocName, , , stLinkCriteria
    End If
Exit_Comando14_Click:
    Exit Sub
Err_Comando14_Click:
    MsgBox "Acceso Denegado. Su usuario no dispone de los permisos necesarios"
    Resume Exit_Comando14_Click
End Sub
Private Sub Usuario_GotFocus()
(usuario = "" ó usuario = "Introduzca la contraseña")
End Sub
Me aparece en ROJO:
(usuario = "" ó usuario = "Introduzca la contraseña")
El resto me funciona correcto, el problema es el que te comentaba anteriormente, cuando vuelvo al formulario de contraseña (para mi usuario), me sigue apareciendo la información en el cuadro de texto USUARIO... no se borra... el evento lo estoy haciendo en el cuadro de texto... pero no funciona... ¿qué puedo hacer mal?
GRACIAS, mil gracias, estoy planteándome estudiar VB, tiene un gran potencial... y creo que es necesario para manejarse con access... si no estas medio muerto...

La verdad es que no trabajo nada con Visual. De todas maneras, buscaré por mi cuenta haber si encuentro alguna "cosa" al respecto.
Siento no poder ser de más ayuda (de momento).