ubiquitour.com

Cómo evitar un inicio de sesión de usuario a la base de datos de MS Access 2007 después de tres intentos

Cómo evitar un inicio de sesión de usuario a la base de datos de MS Access 2007 después de tres intentos

Una de las características de gran alcance detrás de Microsoft Access 2007 es que usted puede hacer una base de datos con su propia aplicación autónoma. Esto resulta útil cuando la base de datos a múltiples usuarios en un servidor de distribución. Hacer otras medidas de seguridad, tales como formas de inicio de sesión, para asegurar la protección de sus datos de usuarios no autorizados. Para promover la fuerza de seguridad, usted puede limitar el acceso si hay tres o más intentos de inicio de sesión. Esta manera, usuarios no autorizados no pueden utilizar programas de software de craqueo de contraseñas hackear en su base de datos.

Instrucciones

1 Abra la base de datos en Access 2007 y agregar una nueva tabla llamada "tblFailedAttempts." Esta tabla tendrá el número de intentos de inicio de sesión que alguien tiene en el actual período de sesiones. Haga clic en la ficha "Crear" y luego "tabla". Crear la tabla en la vista Diseño. Dar a los campos de la tabla tres: "AttemptID" como un tipo de datos "Autonumérico", "login" con un tipo de datos "Texto" y "attempt_time" como dato "Fecha" de tipo. Guarde y cierre la tabla.

2 Ir al formulario de inicio de sesión está utilizando actualmente y ver el código para el formulario. Haga clic en la pestaña "Herramientas de base de datos" y luego haga clic en "Visual Basic". Haga doble clic en el nombre del formulario en la lista de objetos en la parte izquierda del editor de Visual Basic.

3 Agregue este código al código de Visual Basic ya presente en el formulario. El código se abre la tabla "tblFailedAttempts" y ver cuántos intentos que la persona ya ha hecho. También aumentará el número de intentos, cada vez que la persona intenta iniciar sesión. Finalmente, el código se bloquee a la persona y cerrar la base de datos después su tercer intento.

"Set rst1 = db. OpenRecordset ("tblFailedAttempts", dbOpenDynaset)

With rst1

.AddNew

![computer_login] = Me.txtUser_hidden

.Update

End With

MsgBox "You entered the wrong User Name or Password." & Chr(13) & _

"Please enter the correct User Name and Password or " & Chr(13) & _

"contact the Database Adminstrator for assistance.", vbOKOnly + vbCritical, "Logon Denied"

'This counts how many times a user has typed in the wrong UserID/Password combo. After three attempts the user is

'suspended from the DB, and cannot get access until their account is reset by the Admin

cnt = cnt + 1 'increment counter if wrong password entered

If cnt = 3 Then 'Set up number of tries

'Display Message Box

MsgBox "Access Violation Program Will Now Close", , "Violation Detected"

DoCmd.OpenForm "frmPWChangeCheck", , , , , acHidden

'change frmPWChangeCheck to the name of your login form

[Forms]![frmPWChangeCheck]![Active] = False

DoCmd.Quit 'quit application and close Access

End If"4

Haga clic en el icono "Guardar" en el editor de Visual Basic para guardar los cambios al código y a continuación, cierre el editor. Haga clic en "Guardar" en la ventana principal de Access, en la "Casa" ficha, para guardar los cambios a la base de datos.