Controlar las modificaciones en los campos con una contraseña...
Necesito que cuando un usuario modifique algún dato del formulario, el sistema le pida una contraseña y le permita hacer el cambio, de lo contrario que los valores anteriores regresen. Ya tengo una pequeña rutina pero no funciona como quiero y no estoy seguro en que evento ponerla. Tengo:
Private Sub Nombre_Paciente_AfterUpdate()
Expediente = Nombre_Paciente.Column(0)
Dim strInput As String
Dim xEmpleado As String
Set Db = DBEngine(0)(0)
strInput = InputBoxDK("Ingrese su Clave ...")
xEmpleado = Nombre_Usuario(strInput)
If xEmpleado = "La Contraseña No Coincide" Then
MsgBox xEmpleado
Nombre_Paciente = Nombre_Paciente.OldValue
Expediente = Expediente.OldValue
Else
Registrado_Por = xEmpleado
End If
End Sub
1 Respuesta
Ya casi lo tienes. Debe ser algo como esto:
Dim strInput As String
Dim xEmpleado As String
Set Db = DBEngine(0)(0)
strInput = InputBoxDK("Ingrese su Clave ...")
xEmpleado = Nombre_Usuario(strInput)
If xEmpleado = "Contraseña No Registrada" Then
MsgBox xEmpleado
Hora_Inicio_Cita = Hora_Inicio_Cita.OldValue
DoCmd.GoToControl "Hora_Fin_Cita"
Else
Registrado_Por = xEmpleado
Hora_Inicio_Cita.Requery
End If
Y lo debes poner en cada campo que quieras verificar en el evento "En datos no guardados"
