Trucos y ejemplos de VBA para Microsoft Access

En esta página encontrarán algunos ejemplo de trucos de VBA (Visual Basic for Applications) que puedes utilizar en aplicaciones desarrolladas con la base de datos Microsoft Access. También puedes descargar los formularios, informes y códigos de ejemplo de Microsoft Access que encontrarás en esta página y disponer de ellos como quieras, ya sea para uso personal o profesional.

Empecé a desarrollar aplicaciones con Microsoft Access en 1995 con la primera versión Access 2.0 y hasta el día de hoy, es decir 27 años. Recuerdo que fue fascinantes pasar de COBOL a Access como herramienta por la cantidad de cosas que se simplificaban.

Dado que siempre he sido autodidacta, tanto en Basic como en PHP hay dos cosas que siempre me han ido muy bien, ejemplos de las funciones y un libro de referencia. Os dejo una recomendación que os puede ser útil.

Contenidos de Forms

-Todos- Forms (6)
Como crear un hipervínculo en un formulario - Filtro y orden de registros de un formulario - Ir al final de un campo - Microsoft Flexgrid en Access 365 con Windows 10 - Propiedad ControlSource en un Formulario Access - Vibración de letras en formularios de Microsoft Access -

Como crear un hipervínculo en un formulario

Hay varias formas de crear un hipervínculo en un formulario de Visual Basic y abrir una página Web que te explico en este contenido....
Una muy sencilla es la siguiente:
  • Crear una label en el formulario y en el Caption poner el texto que queramos, la dirección o el nombre de la página que queremos abrir.
  • Cambiar la propiedad Font poniendo la característica de subrayado
  • Cambiar la propiedad ForeColor y ponerle Azul
  • Cambiar la propiedad MouseIcon y buscar un icono típico de Hipervínculo por ejemplo en: C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Cursors
  • Cambiar la propiedad MousePointer a 99 (personalizado)
Crear en el formulario el Evento Click y poner una llamada a la API ShellExecute pasando como parámetro la URL que queremos abrir.


Filtro y orden de registros de un formulario

Cómo hacer un filtro por un campo y ordenar los registros del formulario...
Form_frmPersonasTareasLista.Filter = "[codigo estado]='PDTE'"
Form_frmPersonasTareasLista.FilterOn = True
Form_frmPersonasTareasLista.OrderBy = "FechaAlta DESC"
Form_frmPersonasTareasLista.OrderByOn = True


Ir al final de un campo

Como entrar en un TextBox de Access y que se ponga al final del campo sin seleccionar todo el texto....
Private Sub Observaciones_Click()
    Observaciones.SelLength = 0
    Observaciones.SelStart = Len(Observaciones)
End Sub


Microsoft Flexgrid en Access 365 con Windows 10

El control OCX Microsoft FlexGrid lo he usado con mucha frecuencia en mis aplicaciones con Access. Es un excelente control que con un gran número de opciones que permite utilizarlo para muchas funciones. Sin embargo las sucesivas versiones de Windows y Office hicieron que diera error. Ahora en septiembre de 2020 se ha estabilizado y es el momento de saber como funciona correctamente....
Cuando está en un formulario los datos son:
  • Clase OLE: MSFlexGrid
  • Clase: MSFlexGridLib.MSFlexGrid.1


Propiedad ControlSource en un Formulario Access

Ejemplo de la Propiedad ControlSource en un campo de un Formulario Access....
Ver código:
NombreDelCampo1 
=[NombreDelCampo1]*2 
=[NombreDelCampo1]*[NombreDelCampo2] 
=[NombreDelCampo1]*[NombreDelCampo2].[Column](1) 
=IIf([NombreDelCampo1]>0, "Valor Verdadero", "Valor Falso")


Vibración de letras en formularios de Microsoft Access

Las letras de la aplicación Microsoft Access vibran continuamente. No pasa en otras aplicaciones ni de Office ni otros programas. Buscando las soluciones habituales para Windows 10 tampoco daban resultado. La solución era muy curiosa....
Resulta que el molesto parpadeo de las letras de la pantalla se debía a la fuente utilizada en el formulario de Microsoft Access. Solo pasaba con la tipografía MS Sans Serif, al cambiar a Calibri u otras desparece inmediatamente. Espero que este tip os sea de ayuda.



Desarrollado con el plugin AB Dictionary para WordPress

Descargas de ejemplos de Microsoft Access

Historia Clínica

Es una base de datos sencilla para gestionar la historia clínica de una persona. Encontraras conceptos básicos como formularios, botones e informes. No se usan módulos VBA excepto el de los forms. Para nivel básico. Descargar HistoriaClinica en formato ZIP.

Acerca de Microsoft Access

Microsoft Access, una parte integral de la suite de Microsoft Office, es un sistema de gestión de bases de datos introducido por primera vez en 1992. Diseñado para usuarios de Windows, Access se creó para satisfacer la necesidad de un programa que pudiera manejar la gestión de datos y el desarrollo de aplicaciones de una manera más accesible que los sistemas de bases de datos más complejos y costosos de la época.

Desde su lanzamiento, Access se destacó por permitir a los usuarios no solo almacenar y gestionar grandes cantidades de información de manera eficiente, sino también por facilitar la creación de interfaces de usuario personalizadas y aplicaciones de bases de datos a través de su entorno de desarrollo integrado. Esto lo hizo especialmente popular entre las pequeñas y medianas empresas, así como entre los departamentos dentro de organizaciones más grandes, que necesitaban soluciones de bases de datos personalizadas sin la inversión significativa que requerían otros sistemas.

A lo largo de los años, Microsoft ha lanzado varias versiones de Access, cada una añadiendo nuevas funcionalidades, mejorando la interfaz de usuario y aumentando la integración con otros productos de Microsoft Office. Estas mejoras han permitido a Access mantenerse relevante en un mercado en constante cambio, adaptándose a las necesidades de los usuarios modernos y a las tendencias tecnológicas.

A pesar de enfrentar la competencia de otras soluciones de bases de datos y de la creciente popularidad de las soluciones basadas en la nube, Microsoft Access ha mantenido un núcleo leal de usuarios. Su capacidad para combinar una gestión de datos robusta con herramientas de desarrollo de aplicaciones relativamente fáciles de usar ha asegurado su lugar como una herramienta valiosa para la gestión de datos personal y empresarial.

Con el paso del tiempo, Microsoft Access ha evolucionado desde sus inicios como una herramienta de base de datos para pequeñas empresas hasta convertirse en una solución de gestión de datos completa, demostrando su durabilidad y adaptabilidad en el ámbito tecnológico.

6 comentarios en “Trucos y ejemplos de VBA para Microsoft Access”

  1. Saludos.
    ¿Como hacer un instalador de programas ? Algo que grabe algunos archivos predeterminados en algún lugar del disco duro de manera discreta.

  2. s@lu2
    tengo una bd de un Almacen , en un formulario de salida de productos quiciera poder limitar la cantidad a «salir» de acuerdo al inventario existente para cada articulo.

    gracias

  3. hola no soy experta ni mucho menos, hice un formulario que manda llamar información de una base vinculada, pero no me extrae varios campos, no se por que razón, haber si alguién pueda orientarme gracias.
    On Error GoTo Button_TratamientoErrores
    ‘mySql = «SELECT calendariobpm .institucio, calendariobpm .examen, calendariobpm .fec_ini, calendariobpm .aplicados, calendariobpm .registrado, calendariobpm .for_env, calendariobpm .desc_cal, calendariobpm .ent_arccal, curcalenbpm.requerimie FROM calendariobpm INNER JOIN curcalenbpm ON calendariobpm.num_aplic=curcalenbpm.num_aplic WHERE num_aplic = ‘» & Me.Aplicación & «‘»
    On Error GoTo Button_TratamientoErrores
    mySql = «SELECT institucio, examen, fec_ini, aplicados, registrado, for_env, desc_cal, ent_arccal, desc_exa, Requerimie FROM curcalenbpm»
    mySql = mySql & » WHERE num_aplic = ‘» & Me.Aplicación & «‘»
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset(mySql, dbOpenSnapshot)

    Me.Institución.Value = rst.Fields(0)
    Me.Examen.Value = rst.Fields(1)
    Me.Fecha_de_aplicación.Value = rst.Fields(2)
    Me.Aplicados.Value = rst.Fields(3)
    Me.Registrados.Value = rst.Fields(4)
    Me.Entrega_resultados.Value = rst.Fields(5)
    Me.des_exa.Value = rst.Fields(6)
    Me.Requerimientos.Value = rst.Fields(7)

    rst.Close
    dbs.Close
    Set rst = Nothing
    Set dbs = Nothing
    nota los campos que si jala son
    Me.Institución.Value = rst.Fields(0)
    Me.Examen.Value = rst.Fields(1)
    Me.Fecha_de_aplicación.Value = rst.Fields(2)
    y los que no acepta son:
    Me.Aplicados.Value = rst.Fields(3)
    Me.Registrados.Value = rst.Fields(4)
    Me.Entrega_resultados.Value = rst.Fields(5)
    Me.des_exa.Value = rst.Fields(6)
    Me.Requerimientos.Value = rst.Fields(7)

  4. Si pudieras enviar un mdb de ejemplo solo con un formulario, la tabla con datos de ejemplo y el código te lo puedo mirar

  5. Eso es bastante sencillo de hacer, pero se debería usar código VBA en el momento de validar los datos.

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Uso de cookies

Este sitio web utiliza cookies para que usted tenga la mejor experiencia de usuario. Si continúa navegando está dando su consentimiento para la aceptación de las mencionadas cookies y la aceptación de nuestra política de cookies, pinche el enlace para mayor información.plugin cookies

ACEPTAR
Aviso de cookies