Name: VBA Access 2016 Programar en Access
Rating: 2.5 (2 reviews)

1. Contexto

El departamento Desarrollo Comercial de una empresa desea revisar la situación de las empresas clientes, así como de los clientes potenciales (prospects) a los que sigue. Para poder gestionar el conjunto formado por las diferentes empresas, el equipo desea implementar una base de datos de Access.

2. Objetivos

La base de datos de Access que se debe poner en marcha debe permitir introducir información de las empresas, así como de sus contactos. Una herramienta de búsqueda debe permitir filtrar las empresas, así como exportar listas en Excel.

3. Arquitectura básica

La información Empresa se almacena en la tabla ENI_EMPRESA_SOC. En ella tenemos:

el ID de la empresa;
el nombre;
la dirección;
el código postal;
la ciudad;
el país;
el estado.

Los posibles estados de la empresa se almacenan en la tabla dedicada ENI_ESTADO_EST.

Los diferentes contactos de las empresas se almacenan en la tabla ENI_CONTACTO_CON, relacionada con la tabla ENI_EMPRESA_EMP a través del campo ID de la empresa.

Los diferentes formularios que se utilizarán en la aplicación se mostrarán por nombre y etiqueta (F_Inicio e Inicio, por ejemplo), en la tabla ENI_FORMULARIOS.

4. Formulario Inicio

Todos los formularios tienen un tamaño automático de 15 cm de lado y no tienen selector.

a. Interfaz

Los elementos visibles son los siguientes:

Control	Descripción
List_Forms	Zona de lista que representa los formularios accesibles, cuya lista se sitúa en la tabla ENI_FORMULARIOS.
Btn_Salir	Botón que permite salir de la aplicación.

b. Código VBA

El siguiente código permite abrir el formulario haciendo doble clic en su nombre en la zona de lista:


Private Sub Form_Load() 
    DoCmd.SetWarnings False 
    'dimensiones del formulario 
    Me.InsideWidth = CInt(14.996 * 567) 
    Me.InsideHeight = CInt(14.996 * 567) 
End Sub 
 
Private Sub List_Forms_DblClick(Cancel As Integer) 
If Not IsNull(Me.List_Forms) Then 
    'apertura del formulario en modo diálogo    DoCmd.OpenForm 
 Me.List_Forms.Value, acNormal, , , acFormEdit, acDialog 
End If 
End Sub