Los datos expuestos en este blog, son solo de índole informativo. Por favor realiza siempre una copia de seguridad antes de realizar cualquier cambio en tu proyecto.
MS Access 2003: uso del comando OpenReport VBA para devolver solo los registros que contienen palabras clave
Este tutorial de MSAccess explica cómo usar el comando OpenReport VBA para devolver solo aquellos registros (con capturas de pantalla e instrucciones paso a paso) que contienen palabras clave en Access 2003.
Problema: en Microsoft Access 2003/XP/2000/97, deseo crear un informe que devuelva solo aquellos registros que contengan palabras específicas en el campo Partes reemplazadas. Esta palabra, como “monitor”, será seleccionada por el usuario al ejecutar el informe. Quiero construir una tabla con palabras que el usuario pueda usar.
¿Qué tengo que hacer?
R: Hemos creado una muestra de Access que puede descargar.
Descargar la versión de Access 2000
En este ejemplo, creamos una tabla en Access llamada Filter_Values con un campo llamado Valor. Este campo se completa con palabras clave utilizadas para filtrar los resultados del informe.
A continuación, creamos un formulario con un cuadro combinado llamado cboKeyword que muestra el valor de la tabla Filter_Value. En este ejemplo, el usuario debe seleccionar una de las palabras clave y hacer clic en el botón “Ejecutar informe”.
El código VBA detrás del botón “Ejecutar informe” es:
Private Sub cmdRunReport_Click()
'User must select a value from the combo box
If IsNull(cboKeyword) = True Then
MsgBox "You must select a keyword."
'Open report called rptEntries where the PartsReplaced field
' contains the value in the cboKeyword combo box
Else
DoCmd.OpenReport "rptEntries", acViewPreview, , "PartsReplaced like '*" & cboKeyword & "*'"
End If
End Sub
Lo que hace este código es filtrar los resultados informados por rptEntries para que solo aquellos registros cuyo campo PartsReplaced contenga el valor seleccionado en el cuadro combinado cboKeyword. Esto se logra con las siguientes líneas de código:
DoCmd.OpenReport "rptEntries", acViewPreview, , "PartsReplaced like '*" & cboKeyword & "*'"
La condición LIKE en el último parámetro del comando OpenReport filtra los resultados del informe para que solo se muestren los registros que contienen la palabra clave en el campo PartsReplaced.
En este ejemplo, hemos seleccionado “monitor” en el cuadro combinado, por lo que el informe solo mostrará los registros en los que el campo Piezas reemplazadas contenga la palabra “monitor”, así: