FORMULARIO EN ACCESS CON USUARIO Y CONTRASEÑA

Hola a tod@s, me gustaria que alguien me hechara una mano. Necesito hacer un formulario de antrada en access y que me pida usuario y contraseña(pero algo sencillo) y que valide ese usuario y contrseña con una tabla dentro de la misma base de datos.

Un saludo y mil gracias

Hola, lo que tu buscas, si mo he entendido mal es algo que te limite la utilizacion de la base de datos a los usuarios permitidos.
El codigo que te envio, si no recuerdo mal, es del Buho, y se adapta a tus necesidades.
Te escribo como has de llamar a los objetos para que solo tengas que copiar el código. Si quieres puedes cambiar los nombres, pero recuerda que tambien has de cambiar el código que a ellos se refiere.
Primero, has de crear una tabla que se llamará usuarios, en la que tendras tres campos: uno autonumerico que se llamara ID, otro alfanumerico que se llamará Usuario y alfanumerico que se llamará contrasena (no con ñ, con n!!!!).

Creas un formulario que llamar "1clave", en el que habra un cmd llamado cmdValida, dos cuadros de texto independientes que llamaras : txtUsuario y txtclave.
Despues has de crear un modulo que con tenga la siguiente función:

'Comprobamos Usuario y contraseña de acceso
'*****************************************************
Function ExisteUsuario(StrUsuario As String, StrClave As String) As Boolean
Dim Rst As DAO.Recordset
Dim Sql As String
Sql = "SELECT * FROM Usuarios where Usuario='" & StrUsuario & "' and Contrasena='" & StrClave & "'"
Set Rst = CurrentDb.OpenRecordset(Sql)
If Rst.EOF And Rst.BOF Then
ExisteUsuario = False
Else
ExisteUsuario = True
End If
Rst.Close
Set Rst = Nothing
End Function

Por último, incluye en el formulario el siguiente código:

Private Sub CmdValida_Click()
On Error GoTo Err_CmdValida_Click
If IsNull(Me.TxtClave) Or IsNull(Me.TxtUsuario) Then
MsgBox "Por favor Introduzca Nombre de usuario y contraseña", vbCritical, "AVISO"
Exit Sub
End If
If ExisteUsuario(Me.TxtUsuario, Me.TxtClave) = False Then
MsgBox "Usuario y contraseña incorrectos. Se cierra la aplicacion.", vbCritical, "Usuario no Autorizado"
DoCmd.Quit
End If

'cierro este formulario
DoCmd.Close acForm, "Clave"
'Abro cualquier formulario de la aplicacion puede llamarse frmInicial
DoCmd.OpenForm "frminicial"


Exit_CmdValida_Click:
Exit Sub

Err_CmdValida_Click:

MsgBox "Número de error que se ha producido: " & Err.Number & Chr(13) _
& Err.Description, vbCritical + vbOKOnly, "Error"
Resume Next
Resume Exit_CmdValida_Click

End Sub

Con esto creo que solucionamos tu problema,.

Una cosa más, ten en cuenta que la longitud de las lineas en el foro es limitada, por lo que si copias directamente el código en el editor de VBA, puede salirte algun error, pero creo que lo podras solucionar, si no es así, cuelga otro mensaje.

Espero que te sirva.

un favor podrias mandarme bien las instrucciones por este corres x fas. ya que soy novato.

me marca error se a detectado un nombre ambigui Existenteusuario
te loa gradezco

HOLA, HAGO EL CODIGO QUE ESPECIFICAS Y ME FUNCIONA...CIERRO LA BASE DE DATOS Y CUANDO LA VUELVO ABRIR Y METO LA CLAVE NO FUNIONA... A Q PUEDE SER DEBIDO

Hola un excelente ejemplo que he puesto en práctica y funciona correctamente. Lo que a mi me gustaría es que cuando se pone mal la contraseña no se cierre la base de datos si no que salga un msg que diga que es incorrecto y vuelva al formulario 1clave para que lo sigan intentado y al tercer fallo si que se cierre la base de datos. Gracias

Muy buen aporte

Se me olvido decirte, que los nombres de usuario y contraseña has de introducirlos en la tabla previamente, bien directamente, o puedes crear un formulario a tal efecto.

Hola:

Tenía el mismo problema, y utilicé el código que mencionaste.. y de maravilla!!!...
el problema es que necesito guardar temporalmente el usuario y la contraseña para poder restringir el uso de los formularios o bloquear ciertos comandos, pero no sé como hacerlo... espero me puedas ayudar !!!...por favor!.

Gracias de todas maneras!...

Sldos,

Claudia

Te paso un ejemplo con nivel de restriscciones a tu mail.

Saludos

Rodolfo

Hola, he seguido con interes los datos que se iban enviando me parecen de mucha utilida pero si fuera mucha molesti me podris enviar ese ejemplo con restriciones a mi corrreo
Gracias Karl

Disculpa seri mucha la molestia que me enviaras a mi tambien ese ejemplo

Estimado, me podrias enviar a mi correo el ejemplo de restricciones
gracias...

Disculpa vi estos mensajes y tengo algo parecido del problema q dicen me podrias explicar mejor como hago el modulo y implenentar el codigo muchas gracias , necesito desabilitar botones pero no se como hacerlo

Hola,

un favor podrias mandarme bien las instrucciones por este corres x fas. ya que soy novato.;

y si se puede enviame tambien el de las restricciones

saludos y gracias

te han contestado... yo lo hago y me funciona, pero cuando cierro la bd y vuelvo a entrar ya no...

que tal amigo estoy en búsqueda de información respecto a como limitar a los usuarios en access en relación a permisos y que solo puedan ver parte de información según el usuario, gracias por el apoyo.

Me puedes por favor compartir el ejemplo de restricciones a mi mail.

Gracias

me ayudas y me puedes pasar la ayudad con lo de el formulario de inicio hermano te lo agradeceria porfa.

Hola, necesito por favor me envíes el ejemplo de crear usuarios y contraseñas con diferentes accesos a ciertos formularios

por ejemplo

quiero que el usuario "administrador" pueda ver todo
el usuario "ventas" vea solo los formularios establecidos para su área
el usuario "contabilidad" vea solo los formularios de contabilidad

espero me puedas ayudar

Que buen aporte, muchas gracias. Me sirvió bastante. Quisiera agregar que la función que aparece primero se escribe en un módulo a nivel Global y que "Usuario" se debe llamar en este caso la tabla donde guardamos los datos.

hola saludos a toda la comunidad. yo deseo crear los usuarios y contraseñas aparte de tener el control de los formularios como administrador tembien que los formularios, tablas, consultas e infomes en la vista como usuario (NO ADMINISTRADOR) no puedan realizar ningun tipo de cambios o modificacion en ninguna tabla, consulta, formulario e informes generados en modo de diseño. solo consultar datos en un formulario especifico y crear o modificar datos en ese formulario solamente. Lo que quiero saber si con ese usuario y clave de administrador y usuario, el usuario no puede modificar mi diseño por ejemplo cambiar un nombre, comando o boton, y solo realizarlo como administrador. y si los codigos de arriba que publicaron son suficientes para conservar mi trabajo. Gracias. Espero que alguien pueda ayudarme saludos dejo visible mi correo electronico...