yo tengo uno hecho asi
tengo un formulario
un campo independiente que se llama ValPass en el origen del control =DBúsq("Password"."Login"."Password = Log") en donde la tabla se llama Login y el campo Password, ahora el Log es otro campo independiente que esta en el formulario en donde yo escribo la password y me valida de la sgte forma.
En el campo Log en el evento al salir lo sgte
Private Sub Log_Exit(Cancel As Integer)
Me.ValPass.Requery
If IsNull(Me.ValPass) Then
MsgBox "La Contraseña no es válida", vbCritical, "VALIDA CONTRASEÑA"
Me.Comando13.Enabled = False
Me.Imagen18.Visible = True
Me.Imagen17.Visible = False
DoCmd.Quit
Else
Me.Comando13.Enabled = True
Me.Imagen18.Visible = False
Me.Imagen17.Visible = True
Me.Comando13.SetFocus
End If
End Sub
Espero que te sirva
Andres...
