| 11/09/2014 | Este tutorial es la continuación del de CREAR UN USUARIO Y CONTRASEÑA EN ACCESS
aqui voy a describir como hacer un formulario para cambiar la contraseña de usuario.
Ahora creamos un formulario vacío con el nombre CAMBIOCONTRASEÑA y lo guardamos.
A continuación abrimos el formulario "VERIFICACIÓN" en vista diseño Poner el comando de botón dentro del formulario, cancelar el asistente, escribir en el botón Cambio de Contraseña, seleccionarlo, abrir la hoja de propiedades, pestaña "Otras" en Nombre escribir CmdCambioContraseña, en la pestaña "Evento" Al hacer clic
Private Sub CmdCambioContraseña_Click()
Escribimos:
On Error GoTo Err_CmdCambioContraseña_Click
If Nz(Me.txtLogin, "") = "" Then
MsgBox "Escriba su número de usuario para cambiar su contraseña", vbInformation, "ESCRIBA USUARIO"
Else
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "CAMBIOCONTRASEÑA"
stLinkCriteria = "[IdUsuario]=" & Me.txtLogin
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Exit_CmdCambioContraseña_Click:
Exit Sub
Err_CmdCambioContraseña_Click:
MsgBox Err.Description
Resume Exit_CmdCambioContraseña_Click
End Sub
Ahora abrimos el formulario CAMBIOCONTRASEÑA, clicamos en "Agregar campos existentes" abrimos la tabla Usuarios, seleccionamos los campos IdUsuario y Contraseña y los arrastramos dentro del formulario, abrimos sus hojas de propiedades y en la pestaña "Todas" en Visible le ponemos NO tanto en la etiqueta como el campo así cuando abramos el formulario en vista de formulario no los veremos en la pantalla.
En "Agregar campos existentes" de la tabla Usuarios seleccionamos el campo Usuarios lo arrastramos dentro del formulario, en la etiqueta escribimos "Usuario conectado".
Clicamos en "Cuadro de texto" y creamos un campo nuevo, en la etiqueta de texto escribimos "Escribir contraseña actual" en el campo abrimos propiedades en la pestaña "Otras" en Nombre escribimos txtContraseñaAntigua y cerramos propiedades.
Volvemos a clicar en "Cuadro de texto" y creamos un campo nuevo en la etiqueta de texto escribimos "Escribir contraseña nueva" en el campo abrimos propiedades en la pestaña "Otras" en Nombre escribimos txtContraseñaNueva y cerramos propiedades.
Ahora clicamos en el comando de botón y creamos el botón Aceptar nos saldrá el asistente que lo cancelaremos y escribimos en el botón Aceptar, lo seleccionamos abrimos propiedades, pestaña "Otras" en Nombre escribimos CmdAceptar, en la pestaña "Eventos" en Al hacer clic generamos un código de visual Basic
Private Sub CmdAceptar_Click()
Escribimos:
If Nz(Me.txtContraseñaAntigua, "") Me.Contraseña Then
If NumIntentos > 1 Then
NumIntentos = NumIntentos - 1
MsgBox "La contraseña introducida es incorrecta" & vbCrLf & _
"Le quedan " & NumIntentos & " intentos" & vbCrLf & vbCrLf & _
"Por favor, introduzca otra", vbExclamation, "INTRODUCCIÓN INCORRECTA"
Me.txtContraseñaAntigua.Value = ""
Me.txtContraseñaAntigua.SetFocus
Else
MsgBox "Ha superado el número de intentos", vbCritical, "ADIOS..."
DoCmd.Close acForm, Me.Name "y cerramos el de acceso
End If
Else
Me.Contraseña.Value = Me.txtContraseñaNueva.Value
MsgBox "La contraseña ha sido modificada", vbInformation, "ATENCION"
DoCmd.Close acForm, Me.Name "y cerramos el de acceso
End If
End Sub
Guardamos, Compilamos, cerramos visual Basic y cerramos propiedades
Ahora clicamos en el comando de botón y creamos el botón Cancelar nos saldrá el asistente que lo cancelaremos y escribimos en el botón Cancelar, lo seleccionamos abrimos propiedades, pestaña "Otras" en Nombre escribimos CmdCancelar, en la pestaña "Eventos" en Al hacer clic generamos un codigo de visual basic
Private Sub CmdCancelar_Click()
Escribimos:
On Error GoTo Err_CmdCancelar_Click
DoCmd.Close acForm, Me.Name
Exit_CmdCancelar_Click:
Exit Sub
Err_CmdCancelar_Click:
MsgBox Err.Description
Resume Exit_CmdCancelar_Click
End Sub
Guardamos, Compilamos, cerramos visual Basic, cerramos propiedades y guardamos el formulario.
Y ya tenemos el formulario para entrar como usuario con contraseña y la posibilidad de cambiar la contraseña, lo que resta por hacer es el diseño que cada uno lo haga a su gusto.
|
|
