CODIGO ACCESS PARA APLICACION CON USUARIO Y PASSWORD V.2

CODIGO ACCESS PARA USO DE RESTRICCION CON USUARIO Y PASSWORD

·         ACCESS

·         PROBLEMA:

Se requiere restringir el acceso a los diferentes formularios, creando niveles de acceso y restricciones de usuario y password. Si el password y el usuario es correcto abrirá el formulario de nombre CONFIGURACION.

·         SOLUCION:

ü  Crear una Tabla de nombre USUARIO, con dos campos de nombre usuario y password.

ü  Crear un formulario de nombre CONFIGURACION

ü  Crear un formulario de nombre FORMULARIO 1, con un botón y dos cuadros de texto. Colocar dentro del botón propiedades al hacer click el siguiente código:

Dim ALGO As String

Dim DB As Database

Dim SQLINE As String

Dim RESULT As Object

‘LOS CUADROS DE TEXTO  QUE SE CREARON PUEDEN VARIAR DE NUMERO O NOMBRE VERIFICAR EN CASO DE DAR ERROR

                        ‘EN ESTE CASO LOS CUADROS DE TEXTO SE LLAMAN TEXTO16 Y TEXTO18

If Texto16 = "" Or Texto18 = "" Then

       ‘ SI LOS CUADROS DE TEXTO ESTAN VACIOS

                        ALGO = MsgBox ("COLOQUE PASSWORD Y USUARIO ", 16, "OMISION")

Else

        ‘ SI LOS CUADROS DE TEXTO ESTAN LLENOS

                                    

SQLline = "SELECT * FROM USUARIO WHERE Usuario = '" & Me.Texto16 & "' and PASSWORD = '" & Me.Texto18 & "';"

Set DB = CurrentDb()

Set RESULT = DB.OpenRecordset(SQLline)

   

                        If RESULT.EOF And RESULT.BOF Then

       

                                        ALGO = MsgBox ("El nombre de usuario o contraseña son incorrectos", 16, "Discrepancia")

   

                       Else

                                       USUARIO = Texto16                                          

‘ACA CIERRA EL FORMULARIO 1

DoCmd.Close

                                       ‘ ACA SE ABRE EL FORMULARIO CONFIGURACION

                                       DoCmd.OpenForm ("CONFIGURACION")

        

                                        End If

   

                       RESULT.Close

                       DB.Close

                       Set RESULT = Nothing

                        Set DB = Nothing

End If