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.
Microsoft Access VBA
-Todos- Bucles (3) TableDefs (1) Excel (1) Fechas (4) FileSystem (2) Forms (6) Informes (1) MDB (3) DAO (1) Office (1) Recordset (3) SQL (1) Strings (10) email (1) System (3) Teoría (1) URL (4) IE Object (1)Buscar un registro en Access 2003 - Buscar valor en celda - Campos calculados en informes - Comandos de menú de Access - Como crear un hipervínculo en un formulario - Cómo obtener el nombre del ordenador o PC - Convención Reddick para nombres de elementos - Convertir minutos a formato Fecha (Date) - Convertir un MDB de Access a Texto - Desplegable en Access combinando dos campos, uno de ellos nulo - Documentar elementos de Microsoft Access - DoEvents en bucles - Eliminar caracteres especiales de una cadena - Equivalencias PHP - Visual Basic - Excel desde Access - Extensión de un archivo - Extraer el dominio de una URL - Extraer emails de un texto - Filtro y orden de registros de un formulario - ID de un nuevo registro - Ir al final de un campo - Leer archivos grandes con VBA - Leer el contenido de una URL con Visual Basic - Len: Contar caracteres en una cadena - Listar los campos de una tabla - Microsoft Flexgrid en Access 365 con Windows 10 - Minutos a formato HH:NN string - Obtener ID despues de Addnew - Primer y último día de la semana - Propiedad ControlSource en un Formulario Access - Quitar el último carácter de una cadena - Reemplazar string en una cadena - Rellenar con ceros a la izquierda - Rellenar un campo Hyperlink - Scraping con VBA - Seleccionar un archivo - Split - SQL con apóstrofe - Todos los iconos de Access - Vibración de letras en formularios de Microsoft Access -
Buscar un registro en Access 2003 Este código de VBA en Access 2003 combina la función de buscar un registro en función de un campo de fecha de un formulario y en que caso de no encuentre el dato que vaya a nuevo registro.... | ||||||||||||||||
Buscar valor en celda Bucle para buscar el valor de una celda dentro de una fila... | ||||||||||||||||
Campos calculados en informes Control de campos calculados en informes de Access... | ||||||||||||||||
Comandos de menú de Access Código VBA para ver todos los comandos de las barras de menú de Access 2003. Este código puede ser útil cuando queremos personalizar las barras de menú.... | ||||||||||||||||
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.... | ||||||||||||||||
Cómo obtener el nombre del ordenador o PC Permite saber el nombre del PC donde está funcionando la base de datos Access... | ||||||||||||||||
Convención Reddick para nombres de elementos Son un conjunto de normas que te serán de mucha utilidad a la hora de definir todos los elementos de una aplicación desarrollada con Microsoft Access. Ver fuente | ||||||||||||||||
Convertir minutos a formato Fecha (Date) Una sencilla función para convertir minutos a formato hh:nn y así poderlo guardar en un campo cuyo tipo de datos es Date en una tabla de Access. ... | ||||||||||||||||
Convertir un MDB de Access a Texto Esta es una pequeña utilidad desarrollada con Visual Basic que permite convertir a un fichero de texto una base de datos de Microsoft Access. El proceso crea una subcarpeta donde están las bases de datos y en la misma crea un fichero por cada una de la tablas del MDB. En principio se crean en formato csv pero modificando el parámetro de esta instrucción es posible obtener la información en otros formatos como acFormatActiveXServer, acFormatHTML, acFormatIIS, acFormatRTF, acFormatTXT, acFormatXLS:... | ||||||||||||||||
Desplegable en Access combinando dos campos, uno de ellos nulo Típico caso en Microsoft Access en el que tenemos que poner una desplegable para personas con el código oculto y visualizando nombre apellidos o apellidos, nombre el problema con el sistema normal es que si uno de los dos campos es nulo no se muestra nada.... | ||||||||||||||||
Documentar elementos de Microsoft Access Los elementos de una base de datos Tablas, Formularios, etc. se denominan Documents y se agrupa en Containers. Si te interesa tener en una tabla a todos ellos para hacer tus propios menús, búsquedas o utilidades esta función te lo hace.... | ||||||||||||||||
DoEvents en bucles Mantener el control de un bucle con DoEvents evita que se bloquee Access en bucles largos y podamos recuperar el control del sistema.... | ||||||||||||||||
Eliminar caracteres especiales de una cadena Función que elimina todos los caracteres especiales de una cadena.... | ||||||||||||||||
Equivalencias PHP - Visual Basic Un par de ejemplos de algunas equivalencias entre ambos lenguajes para tratar cadenas.... | ||||||||||||||||
| ACCESS | PHP |
| Obtener un fragmento de una Cadena (String) | |
Dim MyString As String MyString = "This is string example" MsgBox Mid(MyString, 5, 10) |
$MyString = "This is string example"; echo substr($MyString,5,10); |
| Fragmentar una cadena en función de un carácter | |
Dim MyString As String MyString = "Data1;Data2" matString = Split(MyString,"") debug.print matString(0) ' da Data1 debug.print matString(1) ' da Data2 |
$MyString = "Data1;Data2";
$matString = explode(";",$MyString);
echo matString[0] // da Data1
echo matString[1] // da Data2
|
Excel desde Access 
Manejo básico de un libro de Excel desde una base de datos de Microsoft Access...Es necesario antes marcar la referencia a la biblioteca de Excel.
Sub Ejemplo()
On Error GoTo ErrorSub
Dim app As Excel.Application
Dim wkb As Excel.Workbook
Dim wks As Excel.Worksheet
Dim row As Excel.Range
Dim cel As Excel.Range
Set app = New Excel.Application
Set wkb = app.Workbooks.Open("D:\alexborras\Downloads\Municipales_201905_1\04_201905_1.xlsx")
' Ver todas las hojas del libro abierto (el index empieza en 1)
For Each wks In wkb.Sheets
Debug.Print wks.Index & "." & wks.Name
Next
' Seleccionar una hoja
Set wks = wkb.Sheets(1)
For Each row In wks.Rows
Debug.Print wks.Name & ":" & wks.Rows.CountLarge
For Each cel In row.Cells
Debug.Print cel.Column & ":" & cel.Value
Next
Next
Debug.Print wks.Name
Set wks = Nothing
Set wkb = Nothing
Set app = Nothing
Exit Sub
ErrorSub:
MsgBox Err.Description
End Sub
Extensión de un archivo
Como saber la extensión de un archivo....Esta instrucción tiene en cuenta que en el nombre del archivo pueda haber mas de un punto y que la extensión pueda ser un numero variable de caracteres. Se facilita en formato de Function pero puede ser convertida a una sola instrucción
Function ExtensionArchivo(Archivo As String, Optional Caracter As String = ".") As String
On Error Resume Next
ExtensionArchivo = Right(Archivo, Len(Archivo) - InStrRev(Archivo, Caracter))
End Function
Extraer el dominio de una URL
...
Public Function ExtraerURL(URL As String) As String
'quita la última barra
If Right(URL, 1) = "/" Then
ExtraerURL = Mid(URL, 1, Len(URL) - 1)
Else
ExtraerURL = URL
End If
ExtraerURL = Replace(ExtraerURL, "https://", "")
ExtraerURL = Replace(ExtraerURL, "http://", "")
End Function
Un ejemplo de uso sería
debug.print ExtraerURL("https://alexborras.com/")[/vb]
Devuelve el valor www.alexborras.com
Jugando con las sustituciones también podríamos eliminar las primeras www si queremos solo el dominio raíz.Extraer emails de un texto
Con esta función puedes extraer cuentas de correo electrónico de un texto o campo tipo string....Esta es una función que suelo utilizar para extraer emails de texto. Es la versión simplificada para encontrar un solo email ya que con una modificación en el Gosub puede capturar un número indeterminado de emails y almacenarlos en una colección de objetos.
La función también sirve de ejemplo para la utilización de varias sentencias de manejo de strings en Visual Basic: Instr, Len, Mid y Asc
Public Function CapturarEmailTexto(Texto) As String
Dim indPos As Long
Dim indDesde As Long
Dim indHasta As Long
Dim strEmail As String
Dim strInt As String
On Error GoTo ErrorSub
CapturarEmailTexto = ""
strEmail = ""
If InStr(1, Texto, "@") = 0 Then Exit Function
For indPos = 1 To Len(Texto)
If Mid(Texto, indPos, 1) = "@" Then
GoSub Captura
Exit For
End If
Next
CapturarEmailTexto = strEmail
Exit Function
Captura:
indDesde = 0
indHasta = 0
' Buscar Inicio de Email
For indDesde = indPos - 1 To 0 Step -1
If indDesde = 0 Then Exit For
strInt = Mid(Texto, indDesde, 1)
If strInt = " " Then Exit For
If strInt = ":" Then Exit For
If strInt = "(" Then Exit For
If strInt = ")" Then Exit For
If strInt = "[" Then Exit For
If strInt = "]" Then Exit For
If strInt = "<" Then Exit For If strInt = ">" Then Exit For
If strInt = """" Then Exit For
If strInt = "'" Then Exit For
If Asc(strInt) = 13 Then Exit For ' Control de Return
If Asc(strInt) = 10 Then Exit For ' Control de Return
Next
' Buscar Final de Email
For indHasta = indPos + 1 To Len(Texto)
strInt = Mid(Texto, indHasta, 1)
If strInt = " " Then Exit For
If strInt = ":" Then Exit For
If strInt = "(" Then Exit For
If strInt = ")" Then Exit For
If strInt = "[" Then Exit For
If strInt = "]" Then Exit For
If strInt = "<" Then Exit For If strInt = ">" Then Exit For
If strInt = """" Then Exit For
If strInt = "'" Then Exit For
If Asc(strInt) = 13 Then Exit For ' Control de Return
If Asc(strInt) = 10 Then Exit For ' Control de Return
Next
' Determinar Mail
strEmail = Mid(Texto, indDesde + 1, indHasta - indDesde - 1)
' Eliminar Caracteres Finales incorrectos
If Right(strEmail, 1) = "." Then strEmail = Mid(strEmail, 1, Len(strEmail) - 1)
If Right(strEmail, 1) = "," Then strEmail = Mid(strEmail, 1, Len(strEmail) - 1)
Return
ErrorSub:
MsgBox Err.Number & ": " & Err.Description
End Function
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
ID de un nuevo registro
Cómo saber el ID de un autonumérico recién creado en una tabla. También se busca cómo: Obtener el ultimo id del ultimo registro insertado y obtener ID de la última fila....Si creamos un nuevo registro en una tabla cuyo índice es un campo autonumérico es posible que necesitemos saber la ID del registro recién creado. Para ello podemos utilizar las siguientes instrucciones:
' Cómo obtener el último valor autonumérico de una clave rst.Move 0, rst.LastModified lngID = rst!ID
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
Leer archivos grandes con VBA
Un ejemplo de lectura de archivos grandes sin que se bloquee el PC por falta de recursos. Probado con un archivo de 4 GB...Rutina de lectura:
Public Sub ImportV2()
Dim strReg As String
Dim strFile As String
Dim fso As FileSystemObject
Dim fil As Object
strFile = "C:\Users\username\Downloads\file.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.OpenTextFile(strFile, 1)
Do Until fil.AtEndOfStream
strReg = fil.ReadLine
Loop
fil.Close
End Sub
Leer el contenido de una URL con Visual Basic
Podemos acceder al contenido de una dirección URL usando el objeto Document....Podemos acceder al contenido de una dirección URL con las siguientes instrucciones. Pongo dos ejemplos, uno donde se obtiene el título de la página con una propiedad directa del objeto y otra donde se captura el contenido HTML completo del cuerpo de la URL usando el objeto Document.
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Visible = False
.Navigate URLtxt
Do While .ReadyState <> 4: DoEvents: Loop
Debug.Print = .LocationName ' Título de la página
Debug.Print = .Document.Body.InnerHtml ' Contenido HTML de la página
.Quit
End With
Set objIE = Nothing
Len: Contar caracteres en una cadena
La función Len que permite contar las apariciones de una cadena dentro de otra....Esta es una función manual que puede permitir manipular los caracteres de la cadena
Public Function CuentaPalabras(Texto As String, Palabra As String) As Long
Dim wptr As Long
Dim count As Long
wptr = InStr(Texto, Palabra)
Do Until wptr = 0
count = count + 1
wptr = InStr(wptr + 1, Texto, Palabra)
Loop
CuentaPalabras = count
End Function
Listar los campos de una tabla
Un bucle For Each para listar los campos de una tabla de Access...Modo resumido
Sub CamposDeTabla()
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Set dbs = OpenDatabase("i:intex winbol2000E999car.mdb")
Set tdf = dbs.TableDefs("CART0001")
For Each fld In tdf.Fields
Debug.Print fld.Name
Next
Set fld = Nothing
Set tdf = Nothing
dbs.Close
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
Minutos a formato HH:NN string
En programas de gestión de tareas nos podemos encontrar con que tenemos que ofrecer un total de minutos que es superior a las 24 horas. Con esta función devolvemos un string con las horas acumuladas y minutos...Function HorasMinutosString(Minutos As Integer) As String
Dim intHor As Integer
Dim intMin As Integer
intHor = Int(Minutos / 60)
intMin = Minutos - (intHor * 60)
HorasMinutosString = Format(intHor, "#00") + ":" + Format(intMin, "00")
End Function
Obtener ID despues de Addnew
Cómo obtener el último valor autonumérico después de un addnew en una tabla....Si hacemos un Addnew de un registro mediante código VBA de Microsoft Access 2003 y la tabla tiene una clave formado por un ID autonumérico es posible que necesitemos saber cual es el valor que se le ha asignado a ese registro.
Las instrucciones para saberlo son las siguientes (remarcadas en azul), suponemos que el campo autonumérico de la tabla se llama ID
Dim rstProyectosTareas As DAO.Recordset
Dim lngID As Long
Set rstProyectosTareas = CurrentDb.OpenRecordset("ProyectosTareas")
rstProyectosTareas.AddNew
rstProyectosTareas![...] = ...
rstProyectosTareas![...] = ...
rstProyectosTareas.Update
' Como obtener el último valor autonumérico de una clave
rstProyectosTareas.Move 0, rstProyectosTareas.LastModified
lngID = rstProyectosTareas!ID
' Fin de como obtener
rstProyectosTareas.Close
Primer y último día de la semana
Como determinar el primer y el último día de la semana en VBA...El caso es el siguiente, tenemos un formulario de Microsoft Access 2003 con dos campos de fecha Desde/Hasta. Queremos que cuando se abra el formulario automáticamente se visualicen en los campos Desde y Hasta el primer y último día de la semana o del mes según la fecha en que lo hacemos para poder obtener informes en curso.
Deberíamos poner el siguiente código en el evento Form_Load()
txtDesdeFecha = Date - Weekday(Date, vbUseSystemDayOfWeek) + 1 txtHastaFecha = Date - Weekday(Date, vbUseSystemDayOfWeek) + 7
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")
Quitar el último carácter de una cadena
Cómo eliminar el último carácter de una cadena.
...dim Texto as string Texto = "Hola1"; Texto = Left(Texto, Len(Texto) - 1)La variable Texto valdrá "Hola"
Reemplazar string en una cadena
La función Replace de Visual Basic reemplaza un string formado por uno o varios caracteres en una cadena por otro string formado por uno o varios caracteres.
Su sintaxis es simple no necesita ejemplos, con la ayuda es suficiente. Rellenar con ceros a la izquierda
Para rellenar un número con ceros no significativos a la izquierda se puede usar la instrucción Format. Por ejemplo, queremos que en un informe se vea 001 para un campo numérico que tiene el valor 1Ejemplo para campo de formulario: =Format([NumeroFactura];"000")
Ejemplo para código Visual Basic 6: txtNumeroFactura = Format(NumeroFactura,"000")
Para otros relleno solo hace falta variar el número de ceros.
Rellenar un campo Hyperlink
Para rellenar un campo del tipo Hyperlink cuando hacemos un add o edit de un resitro se hace de la siguiente forma:
rst!CampoHyperlink = "Texto#URL#" Scraping con VBA
Cómo obtener el código HTML de una URL mediante VBA.
...En noviembre de 2021 me dejó de funcionar la lectura del HTML mediante el uso de CreateObject("InternetExplorer.Application"). Windows siempre abre ya Microsoft Edge por defecto y el objeto llamado no tiene las propiedades del InternetExplorer.Application.
La alternativa es usar la biblioteca MSXML2 que podemos añadir a nuestro VBA como referencia.
Os dejo un ejemplo del uso que le estoy dando, el contenido del HTML en formato texto está en la propiedad responseText.
Dim oXMLHTTP As Object
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
With oXMLHTTP
.Open "GET", URLtxt, False
.send
Titulo = absTags(.responseText, "<H1", "</H1>")
End With
Set oXMLHTTP = Nothing
Seleccionar un archivo
Cómo seleccionar un archivo desde un formulario de Microsoft Access usando VBA....Recordar que se requiere una referencia a la librería: Microsoft Office 16.0 Object Library.
Public Function SelectFileSample() As String
' Requires reference to Microsoft Office 16.0 Object Library.
Dim fDialog As Office.FileDialog
Dim varFile As Variant
Dim fso As FileSystemObject
' Set up the File Dialog.
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
'.InitialFileName = strCarpeta ' Default folder
' Allow user to make multiple selections in dialog box
.AllowMultiSelect = False
' Set the title of the dialog box.
.Title = "Seleccionar un fichero"
' Clear out the current filters, and add our own.
.Filters.Clear
' Sample for filters
'.Filters.Add "Image JPG", "*.JPG"
'.Filters.Add "Image PNG", "*.PNG"
.Filters.Add "Todos los archivos", "*.*"
' Show the dialog box. If the .Show method returns True, the
' user picked at least one file. If the .Show method returns
' False, the user clicked Cancel.
If .Show = True Then
'Loop through each file selected and add it to our list box.
For Each varFile In .SelectedItems
'Me.FileList.AddItem varFile
SelectFileSample = varFile
Next
Else
MsgBox "No saleccionado ningún fichero", vbInformation, "Select File"
End If
End With
End Function
Split
Separa un string en varias cadenas dentro de una matriz en función del carácter definido.
...Ejemplo de la función Split:
Dim matStrings() As String txtstrings = "Uno,Dos,Tres" matStrings = Split(txtStrings, ",")Obtenemos una matriz de Strings con cada uno de los elementos: matstrings(1) = "Uno" matstrings(2) = "Dos" matstrings(3) = "Tres"
SQL con apóstrofe
Cuando la sentencia SQL incluye apóstrofes tendremos problemas si no hacemos de una forma especial. Te lo enseño en este ejemplo....Por ejemplo con la palabra Ho'oponopono
strSQL = "SELECT * FROM Keywords WHERE KeywordTXT=" & """" & Texto & """"
Todos los iconos de Access
Cómo ver todos los iconos de Microsoft Access...Con esta secuencia creamos una barras de menús para ver todos los iconos que lleva incorporados Access y desde personalizar podemos copiar y pegar.
Comprobado en Access 2000 y 2003
Sub EnumerarIconosAccess()
Dim cb As CommandBar
Dim cb1 As CommandBar
Dim cbc As CommandBarControl
Dim cbc1 As CommandBarControl
Dim cbc2 As CommandBarButton
Dim cbb As CommandBarButton
Dim cbx As CommandBarComboBox
Dim cbp As CommandBarPopup
Dim cbp1 As CommandBarPopup
Dim ind1 As Integer
Dim ind2 As Integer
For ind1 = 1 To 4
Set cb = Application.CommandBars.Add("Botones" + Str(ind1))
For ind2 = ((ind1 - 1) * 1000) + 1 To (ind1 * 1000)
Set cbc2 = cb.Controls.Add(msoControlButton)
cbc2.Style = msoButtonIcon
cbc2.FaceId = ind2
cbc2.Caption = ind2
cbc2.Tag = ind2
Next ind2
Next ind1
MsgBox "Barra Creada"
End Sub
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.
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.
Saludos.
¿Como hacer un instalador de programas ? Algo que grabe algunos archivos predeterminados en algún lugar del disco duro de manera discreta.
Para aplicaciones con Access y VBA usé durante muchos años Wise Installation System y me iba perfecto. Aún se puede descargar de Softonic: WISE Installation System para Windows