Los objetos y colecciones en VBA

1. Propiedades

El objeto es una entidad que podemos distinguir gracias a sus propiedades (su color o dimensiones, por ejemplo). Si tomamos como ejemplo un libro, este se caracteriza por sus propiedades: número de páginas, título, número de capítulos, editor, contenido, etc. Cada una de sus propiedades se puede especificar en cada libro, pero todos los libros tienen fundamentalmente las mismas propiedades. Algunas propiedades de los objetos se pueden modificar (velocidad de un coche, por ejemplo) y otras no (una marca de coche).

En programación con VBA, la sintaxis general de acceso a las propiedades de un objeto es la siguiente:

UnObjeto.SuPropiedad 

Aquí se accede a la propiedad SuPropiedad del objeto UnObjeto. La combinación UnObjeto.SuPropiedad tendrá el mismo comportamiento que una variable clásica, que puede tomar un valor o devolver un valor con el uso del operador =.

Por ejemplo, es posible leer el contenido SQL de una consulta de Access y visualizarla con el siguiente código:...

1. El objeto Application

El objeto Application corresponde a la aplicación Microsoft Access activa.

1. Instrucción Set

Al contrario que la asignación de un valor a una variable de tipo sencillo (numérico, booleano, fecha, etc.), la asignación de un valor a una variable cuyo tipo es un objeto se realiza con la palabra clave Set.

La sintaxis general es la siguiente:

Set UnObjeto = [New] InstrucciónGeneraElObjeto 

La palabra clave New permite crear una nueva instancia de un objeto. Si el objeto ya existe, no es necesario utilizar esta palabra clave. InstrucciónGeneraElObjeto puede corresponder al nombre de un objeto o a una variable de objeto del mismo tipo.

Por ejemplo aquí, si se desea asignar a la variable tbl la tabla ENI_CONTRATO CON, el código sería el siguiente:

Dim tbl As TableDef  
Set tbl = CurrentDb.TableDefs("ENI_CONTRATO CON") 

Reinstanciación de la variable objeto

Es posible instanciar de nuevo una variable objeto, gracias a la siguiente instrucción:

Set UnObjeto = Nothing 

2. Instrucción With/End With

A la hora de modificar las diferentes propiedades de un objeto, puede ser largo y pesado para el programador repetir la ruta de acceso a este objeto, para cada propiedad que se desea modificar.

Por ejemplo, con las líneas de operación de un formulario:

'El formulario F_EMPLEADO_Detalle está abierto 
Forms("F_EMPLEADO_DETALLE").Caption = "Nueva ficha" 
Forms("F_EMPLEADO_DETALLE").Controls("EMP_INICIO_TRABAJO").Value=Fecha ...

1. Los módulos de clases

Para manipular los objetos que el desarrollador creará, se podrán utilizar los módulos de clases.

Los módulos de clases se definen de la siguiente manera:

Una vez que se definen estos elementos en un módulo de clase, podemos crear un nuevo objeto correspondiente a esta definición. La sintaxis general para conseguirlo es la siguiente:

Dim NombreObjeto As New NombreDeClasePersonalizada 

La llamada a los módulos de clase sigue estando restringida solo a los desarrolladores más experimentados.

En los siguientes ejemplos, se define una clase que representa un contrato.

Empezamos con una clase llamada clsContrato. En el menú Insertar, se selecciona Módulo de clase.

En la zona Propiedades, se modifica el nombre de la clase como clsContrato.

2. Las propiedades

Las propiedades se corresponden con las instrucciones que permiten leer y definir las características de un objeto.

La creación de una propiedad se desarrolla en dos etapas: se define una variable privada dentro de la clase y después se definen, los bloques de propiedades Property Get y Property Let. La lectura de la propiedad se hace por medio de Property Get, y su escritura con Property Let.

En la interfaz de VBE, se activa el módulo de clase y seleccione el menú Insertar - Procedimiento:

Podemos crear la propiedad IDCliente indicándolo en la interfaz, como se muestra a continuación:

Adaptando el código, al final se tienen las propiedades IDCliente, FechaContrato y Etiqueta definidas como sigue:

'Declaración de las variables privadas  
Private pIDCliente As Long  
Private pFechaContrato As Date  
Private pEtiqueta As String  
 
'El identificador ID del contrato 
Public Property Get ID() As Long  
    ID = pID  
End Property  
 
Public Property Let ID(newID As Long)  
    pID = newID  
End Property  
 
'El identificador ID de Cliente  
Public Property Get IDCliente() As  
    IDCliente = pIDCliente  
End Property  
 
Public Property Let IDCliente(newIDCliente As Long)  
    If newIDCliente > 0 Then  
        pIDCliente = newIDCliente  
    Else  
        Err.Raise Number :=vbObjectError...