Cómo acceder a una VBA Run Query 2007

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.