Contraseña para abrir formulario de access 2007

Quisiera saber como puedo hacer que al abrir un formulario en access 2007 me pida una contraseña. Por mi parte hice esta programación:
En el evento abrir del formulario el cual necesito abrir con contraseña en el generador de código hice esta algoritmia:
Private Sub Form_Open(Cancel As Integer)
Dim PassOk As String
Dim PassTyped As String
PassOk = "agente007"
PassTyped = InputBox("CLAVE DE ACCESSO", "Introduce la clave requerida para acceder a orientacion asistencia", "")
If PassTyped <> PassOk Then
MsgBox "La clave de acceso no es valido"
DoCmd.Quit
Else
Plataformapsicoorientacion. Show (esta parte no entiendo como debo programarla, puesto que no se como invocar para abrir el formulario)
Cancel = -1
End If
End Sub
Por favor ayudame es que no se ya como programar esta vaina. Ya lo he intentado de varias formas y no he podido.
Respuesta
1
Lo primero es que este tipo de restricciones es mejor colocarlas en un evento anterior al de la propia apertura, ya allí estás ya abriendo el formulario.
Lo ideal es que tengas un botón en un formulario base que sea para abrir el formulario protegido y en el evento "Al hacer click" escribas algo como esto, tomado de tu propio código:
Private Sub Form_Open(Cancel As Integer)
Dim PassOk As String
Dim PassTyped As String
PassOk = "agente007"
PassTyped = InputBox("CLAVE DE ACCESSO", "Introduce la clave requerida para acceder a orientacion asistencia", "")
If PassTyped <> PassOk Then
       MsgBox "La clave de acceso no es valido"
       Exit sub
Else
      Docmd. OpenForm "Plataformapsicoorientacion"
End If
End Sub
Muchas gracias, que ayuda tan grande, y quisiera ademas saber como dentro de esta programación puedo hacer que se cierra automáticamente la ventana del formulario donde esta el botón de la clave cuando este se digite correctamente, ya que en Propiedades - Otros - Emergente - Si para que me salga como una ventana emergente, este me cierre como te digo automáticamente.
Gracias
OK,
Suponiendo que el formulario donde tienes el botón se llame FPRINCIPAL (tu le pones el nombre real. El código quedaría así:
Private Sub Form_Open(Cancel As Integer)
Dim PassOk As String
Dim PassTyped As String
PassOk = "agente007"
PassTyped = InputBox("CLAVE DE ACCESSO", "Introduce la clave requerida para acceder a orientacion asistencia", "")
If PassTyped <> PassOk Then
       MsgBox "La clave de acceso no es valido"
       Exit sub
Else
      Docmd. OpenForm "Plataformapsicoorientacion"
      DoCmd.Close acForm, "FFPRINCIPAL"
End If
End Sub

1 respuesta más de otro experto

Respuesta
1
A primera vista, debes de sacar el Cancel= -1, puesto que asignas que verdadero la cancelación de la orden anterior.
Por otra parte, supongo que si abres el formulario de acceso en modo modal, no te dejará abrir el siguiente, por lo que yo pondría:
If PassTyped <> PassOk Then
MsgBox "La clave de acceso no es valido"
DoCmd.Quit
Else
me.visible=false
Plataformapsicoorientacion.show 1
End If
Pruébalo y me comentas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Clave de acceso en formulario access

Tengo un formulario de access denominaco PANTALLA PRINCIPAL, de este se accede mediante dos botones a dos formularios distintos: DEPARTAMENTO COMERCIAL o bien DEPARTAMENTO ADMINISTRATIVO. Cuando se accede al formulario del DEPARTAMENTO COMERCIAL...
1 respuesta

Abrir dos formularios con un solo botón

Quisiera saber cono acer para poder abrir dos formularios al mismo tiempo al darle clic a un solo botón. Si alguien sabe como y es tan amable de responder se lo agradecería.
1 respuesta

Abrir formulario con contraseña

Soy novato, realice un formulario y con un botón deseo ingresar y al hacerlo me solicite una contraseña el dodigo que le pongo al botón es el siguiente: Private Sub Form_Load() Dim MyPass As String Dim TuPass As String MyPass = "almavall" TuPass =...
1 respuesta

¿Línea de Código Cerrar Formulario?

Tengo este código. Private Sub Form_Open(Cancel As Integer) Dim C As Variant C = InputBox("Indique la Contraseña para poder ingresar.") If C = Me.Contraseña_Autorizaciones.Value Then 'Contraseña Correcta, sique sin problemas Else MsgBox "Contraseña...
2 respuestas

Cambiar formato contraseña

Tengo una base de Datos en la que hay un formulario que hay que abrir mediante una contraseña que le puse en su día. El problema es que cuando pongo la contraseña todo el mundo puede verla. Me gustaría que saliera por ejemplo ******** y no la...
1 respuesta

Borrar valor contraseña formulario

Tengo un formulario protegido por contraseña y todo funciona perfecto pero cuando salgo de formulario y vuelvo a entrar no me pide contraseña, como hago pera que a cada vez que entre en ese formulario me vuelva a pedir la contraseña (si salgo de...
1 respuesta

Evento NotInList

En Access, un Formulario de PEDIDOS, en un Subformulario PEDIDOS_CLIENTES, un combo presenta una lista de clientes (pero presenta apellido y teléfono, ocultando su clave ID), quiero que al no encontrar el nombre que busco me lo añada a la tabla...
1 respuesta

Ayuda. Expresión en Msgbox con botón aceptar y cancelar

Alguien me puede decir como se escribe para que un MsgBox hiciera la función de aceptar y cancelar. Me encuentro que tanto uno como el otro me hacen la misma función.
1 respuesta

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

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....
4 respuestas

Dudas con OpenForm en Access

Tengo un problemilla al abrir un formulario pasándole un argumento. Lo que quiero es que se me habrá dicho formulario exactamente por el registro que le estoy pasando. Hasta ahora se me abre el formulario que quiero pero por el primer registro no por...
1 respuesta