ACCESS FORMULARIO EN PANTALLA COMPLETA

CODIGO ACCESS PARA PRESENTAR UN FORMULARIO EN PANTALLA COMPLETA

Y SIN BOTONES DE DESPLAZAMIENTO

·         ACCESS
·         PROBLEMA:

Se requiere presentar los formularios en pantalla completa al momento de realizar una aplicación utilizando access, solo tiene que aparecer el formulario en pantalla.

·         SOLUCION

ü  Abrir formulario en modo diseño, propiedades de formulario, todas, emergente (si).

ü  Propiedades de formulario, Eventos, Al activar Registro, macro, acción (maximizar).

ü  Propiedades de formulario, Eventos, Al abrir,  introducir el código quedando asi:

Private Sub Form_Open(Cancel As Integer)

fSetAccessWindow (2)

End Sub

ü  Crear un modulo y colocar el siguiente código

Option Compare Database

Option Explicit

Global Const SW_HIDE = 0

Global Const SW_SHOWMINIMIZED = 2

Global Const SW_SHOWMAXIMIZED = 3

Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)

Dim iox As Long

Dim ioForm As Form

iox = apiShowWindow(hWndAccessApp, nCmdShow)

End Function

ü  Elimine la barra de desplazamiento de debajo de los formularios, propiedades de formulario, Formato, Botones de desplazamiento (no).

Se recomienda el uso de un panel de control para crear el efecto de aplicación, colocando un macro autoexec que señale la apertura de este, así logrará navegar entre los diferentes formularios.

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

CODIGO ACCESS PARA APLICACION CON USUARIO Y PASSWORD V.1

Código para colocar en un formulario usuario y password

• Access 

·         Problema: Queremos crear un formulario Entrada que valide el usuario y su password, si es correcto que nos abra otro formulario Inicio y en éste un cuadro de texto en el que nos salga el nombre del usuario 

·         Solución: Crear una Tabla Usuarios con los campos Usuario, Password y Nombre, en el campo contraseña en propiedades, mascara de entrada, tipo password. (Se aplica la máscara cuando no queremos que se vea lo que escribimos)

ü  Primero tendremos que crear una variable pública que llamaremos vNombre para poder pasar el nombre de un formulario a otro vamos a la pestaña módulos y abrimos uno nuevo, aquí declaramos la variable:

Public vNombre as string

Al declararla como pública la podremos utilizar en cualquier momento y lugar de la aplicación

Guardamos el módulo con el nombre que queramos (por ej. Modulo1)

ü  Creamos un formulario1 independiente (no ponemos nada en origen del registro) que llamaremos Inicio

ü  Luego crearemos un formulario 2, con dos cuadros de texto:

txtUsuario   

txtPassword (en txtPasword ---> Máscara de entrada ---> Password)

Un botón Entrar con el código siguiente:

Private Sub Entrar_Click()

Dim db As Database

Dim rs As Recordset

Set db = CurrentDb

Set rs = db.OpenRecordset("Select Usuario, Password, Nombre from Usuarios where Usuario='" & Form!txtUsuario.Value & "' and Password='" & Form!txtPassword.Value & "'")

If Not rs.EOF Then

vNombre = rs!Nombre

DoCmd.OpenForm "Inicio", acNormal

Else

MsgBox "Usuario o password no válidos"

End If

End Sub

ü  En el formulario Inicio, creamos  un cuadro de texto txtNombre, en la  propiedades del formulario, en la acción:

Al Cargar ---> Procedimiento de Evento ---> El código siguiente

Private Sub Form_Load()

Form!txtNombre.Value = vNombre

End Sub

NOTA: Fijarse en los nombres de los text, es posible que al nombrar textusuario, textpassword y textnombre. De error por lo que tendrá que cambiar el nombre por texto0, texto1 según sea el caso.