Formulario Seguridad
Publicado por Vicente (20 intervenciones) el 25/10/2007 16:36:17
Buenos dias. Estimad@s amig@s os escribo para solicitar ayuda con respecto a lo siguiente. Estoy haciendo un programita para el trabajo en el cual quiero que diferentes usuarios primero se validen mediante un formulario en el cual deben de escribir un usuario y una contraseña. El programita estara colgado en el servidor de la oficina y estos usuario tendran diferentes niveles empezando por el administrador (que sere yo) usuarios de entrada de datos y usuarios de consulta nada mas. Estuve leyendo lo del asistente de seguridad de usuarios pero no puedo hacerlo puesto que cada equipo de los diferentes usuarios lo pueden utilizar cualquier persona, entonces me gustari que me dijerais como debo de crear el codigo para que desde una tabla que esten dados de alta los usuarios dicho formulario acceda y busque su usuario y contraseña para que se valide. Hasta ahora lo he hecho con un solo usuario pero en cuanto introduzco dos o mas solo valida el primero que haya metido. Os envio el codigo por si me podeis ayudar.
On Error GoTo Err_Comando15_Click
Dim stDocName As String
Dim stLinkCriteria As String
If IsNull(Me.UsuarioTxt) Then
MsgBox "Usuario no puede estar en blanco", vbInformation, "Seguridad"
UsuarioTxt.SetFocus
Exit Sub
ElseIf IsNull(Me.ContraseñaTxt) Then
MsgBox "Contraseña no puede estar en blanco", vbInformation, "Seguridad"
ContraseñaTxt.SetFocus
Exit Sub
End If
If Me.UsuarioTxt = Me.Usuario And ContraseñaTxt = Me.Contraseña Then
stDocName = "Principal"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Form_Principal.SetFocus
stDocName = "CerrarFormularioSeguridad"
DoCmd.RunMacro stDocName
ElseIf Me.UsuarioTxt <> Me.Usuario Or ContraseñaTxt <> Me.Contraseña Then
MsgBox "Nombre de Usuario y/o Contraseña no coincide, por favor verifique", vbInformation, "Acceso"
Me.UsuarioTxt = ""
Me.ContraseñaTxt = ""
UsuarioTxt.SetFocus
End If
Exit_Comando15_Click:
Exit Sub
Err_Comando15_Click:
MsgBox Err.Description
Resume Exit_Comando15_Click
Muchisimas gracias de antemano a tod@s
Recibir un cordial saludo
On Error GoTo Err_Comando15_Click
Dim stDocName As String
Dim stLinkCriteria As String
If IsNull(Me.UsuarioTxt) Then
MsgBox "Usuario no puede estar en blanco", vbInformation, "Seguridad"
UsuarioTxt.SetFocus
Exit Sub
ElseIf IsNull(Me.ContraseñaTxt) Then
MsgBox "Contraseña no puede estar en blanco", vbInformation, "Seguridad"
ContraseñaTxt.SetFocus
Exit Sub
End If
If Me.UsuarioTxt = Me.Usuario And ContraseñaTxt = Me.Contraseña Then
stDocName = "Principal"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Form_Principal.SetFocus
stDocName = "CerrarFormularioSeguridad"
DoCmd.RunMacro stDocName
ElseIf Me.UsuarioTxt <> Me.Usuario Or ContraseñaTxt <> Me.Contraseña Then
MsgBox "Nombre de Usuario y/o Contraseña no coincide, por favor verifique", vbInformation, "Acceso"
Me.UsuarioTxt = ""
Me.ContraseñaTxt = ""
UsuarioTxt.SetFocus
End If
Exit_Comando15_Click:
Exit Sub
Err_Comando15_Click:
MsgBox Err.Description
Resume Exit_Comando15_Click
Muchisimas gracias de antemano a tod@s
Recibir un cordial saludo
Valora esta pregunta


0