Contraseña Access
Hola
Nuevamente solicitando su ayuda
Estoy intentando poner contraseñas a una base access, y he encontrado varia respuestas que parecen muy buenas pero en la mayoría usan el mismo procedimiento el cual no funciona para Mi,
El procedimiento o código el cual se inserta an la acción Click de un botón...
Dim Base As DataBase
Dim pass As Recordset
Set Base = CurrentDb
set Pass = Base.openRecordset("select * from pass where Usuario = '" & Usuario & "' and password = '" & Contrasena & "'"
If pass.RecordCount = 0 Then
MsgBox "Contraseña incorrecta"
Exit Sub
End If
DoCmd.OpenForm pass!Formulario
DoCmd.Close acForm, "Inicio"
El error que me manda al dar click en el botón es...
Error de Compilación:
No se ha definido el tipo definido por el usuario
Aceptar ayuda
Ojala alguien sepa que me hace falta.
De anteano les agradezco mucho, hasta pronto
Nuevamente solicitando su ayuda
Estoy intentando poner contraseñas a una base access, y he encontrado varia respuestas que parecen muy buenas pero en la mayoría usan el mismo procedimiento el cual no funciona para Mi,
El procedimiento o código el cual se inserta an la acción Click de un botón...
Dim Base As DataBase
Dim pass As Recordset
Set Base = CurrentDb
set Pass = Base.openRecordset("select * from pass where Usuario = '" & Usuario & "' and password = '" & Contrasena & "'"
If pass.RecordCount = 0 Then
MsgBox "Contraseña incorrecta"
Exit Sub
End If
DoCmd.OpenForm pass!Formulario
DoCmd.Close acForm, "Inicio"
El error que me manda al dar click en el botón es...
Error de Compilación:
No se ha definido el tipo definido por el usuario
Aceptar ayuda
Ojala alguien sepa que me hace falta.
De anteano les agradezco mucho, hasta pronto
1 respuesta
Respuesta
1
En vez de:
If pass.RecordCount = 0 Then
prueba con:
If pass.Eof Then
es decir, si se ha alcanzado el final del fichero....
también lo puedes hacer con:
If IsNull(pass!Usuario)=True
es decir, si el recordset no devuelve registros...
En la página: http://angelessebas.es/
En supuestos y soluciones ---> formularios ---> Validar Usuario y Password. Sí es correcto abrir un formulario y que nos muestre el nombre del usuario
Tienes un ejemplo que te puede ayudar.
If pass.RecordCount = 0 Then
prueba con:
If pass.Eof Then
es decir, si se ha alcanzado el final del fichero....
también lo puedes hacer con:
If IsNull(pass!Usuario)=True
es decir, si el recordset no devuelve registros...
En la página: http://angelessebas.es/
En supuestos y soluciones ---> formularios ---> Validar Usuario y Password. Sí es correcto abrir un formulario y que nos muestre el nombre del usuario
Tienes un ejemplo que te puede ayudar.