Contraseña Para Formulario En Access 2007-2013
Tengo una duda hice formularios e access y le puse contraseña a, si me pide la clave y si es incorrecta me lo dice pero si pongo la correcta no me lleva a la tabla se queda sin hacer nada les dejo una copia ayúdenme por favor es para mañana y estoy muy estresado ya, que le falta a mi programa
Option Compare Database
Private Sub Comando63_Click()
Dim MyPass As String
Dim TuPass As String
MyPass = "123" '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
End Sub
1 Respuesta
Respuesta de Frankeistein Igor