Microsoft Access 2007 es el programa de base de datos de Windows con la interfaz gráfica de consulta. Ejecución de consultas en bases de datos de Access 2007 ofrece a los usuarios la posibilidad de recuperar y filtrar los datos , calcular totales de datos numéricos y automatizar los registros de la base de datos de actualización o eliminación. Las funciones de consulta de acceso se basan en el lenguaje de consulta SQL . El Visual Basic para Aplicaciones ( VBA) admite instrucciones SQL en las funciones de VBA . Permite a los usuarios ejecutar una consulta en la base de datos Access 2007 utilizando el control VBA. Instrucciones
1
Haga clic en el botón "Inicio " de Windows y seleccione la opción " Microsoft Office", "Visual Basic para Aplicaciones ( VBA) " .
2 Haga clic en el " Abrir " y seleccione el control VBA del informe en el que desea cambiar el criterio de ordenación
3
Agregue el código siguiente después de la . " línea CurrentDb.Execute strSQL " en la consulta VBA:
On Error GoTo err_handler
strSQL As String Dim
strSQL = "SELECT sbqryAdmitDeals.lt_name " & _
" sbqryAdmitDeals.FullName , sbqryAdmitDeals.RoleLeadFK "& CDate (Format ( Now ( ) , " Short Date " ) ) - [ RepRecd ] como días , 2 AS OrderID
" en " [Su nombre variable]
" FROM sbqryAdmitDeals "
" DONDE sbqryAdmitDeals.RoleLeadFK ) ="
DoCmd.SetWarnings falsas
DoCmd.RunSQL strSQL
DoCmd.SetWarnings verdadera
ExitMySubName :
Exit Sub
err_handler :
DoCmd.SetWarnings verdadera
MsgBox Err.Description , vbExclamation , " Error :" & Err.Number
Reanudar ExitMySubName
End Sub
4 Haga clic en el comando " Asistente para consultas " en la cinta de acceso.
5
Introduzca el después de consulta en el campo de texto:
SELECT sbqryAdmitDeals.lt_name CDate (Format ( Now ( ) , "Short Date" ) - [ RepRecd ] como días , 2 AS OrderID eN mtblFSRcvd
dE sbqryAdmitDeals
WHERE ( ( sbqryAdmitDeals.RoleLeadFK ) = [Formularios ] [ frmReports ] [ cboPrimaryContact ] ! !) ;
6
clic en el botón "Ejecutar" para ejecutar la consulta en el acceso base de datos de 2007 con VBA control.
