Utilizamos Cookies de terceros para generar estadísticas de audiencia y mostrar publicidad personalizada analizando tu navegación. Si sigues navegando estarás aceptando su uso. Más información X
PortadaForo AyudaTutoriales

Crear un formulario para cambiar la contraseña en Access

NOVELJAN
Todos sus contenidos
0 Seguidores
9 Envíos
918 Puntos
291 Posts
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.

Opiniones:OPINIONES: 1

Opinión 1.

Re: Crear un formulario para cambiar la contraseña en Access - Fecha: 15-07-2016 00:21:02.
Buenas tardes, he querido utilizar tu tutorial y creando todo a como dices me da un error: If Nz(Me.txtContraseñaAntigua, \'\') Me.Contraseña Then
esto se pone en rojo. puedes decirme a que se debe?
Gracias de antemano.

Autores: Esta sección es realizada sólo y exclusivamente por Usuarios de ConfigurarEquipos.com, el mérito corresponde a los usuarios que envían estos contenidos.
InicioBlog
^ SubirAviso legal
Política Privacidad
Configurarequipos12 Diciembre 2019