ubiquitour.com

Cómo acceder a una consulta ejecución de VBA 2007

Cómo acceder a una consulta ejecución de VBA 2007

Microsoft Access 2007 es el programa de base de datos de Windows con la interfaz gráfica de la consulta. Ejecución de consultas contra bases de datos de Access 2007 da a usuarios la capacidad de recuperar y filtrar datos, calcular totales de datos numéricos y automatizar registros de base de datos de actualización o la eliminación. Las funciones de consulta de acceso se basan en el lenguaje de consulta SQL. Visual Basic para aplicaciones (VBA) soporta sentencias SQL en las funciones VBA. Permite a los usuarios ejecutar una consulta en la base de datos de Access 2007 mediante el control VBA.

Instrucciones

1 Haga clic en el botón "Inicio" de Windows y seleccione "Microsoft Office," "Visual Basic para aplicaciones (VBA)".

2 Haga clic en "Abrir" y seleccione el control VBA del informe en el que desea cambiar el orden.

3 Agregue el código siguiente después de la línea "strSQL CurrentDb.Execute" en la consulta VBA:

En Error GoTo err_handler

Dim strSQL As String

strSQL = "SELECT sbqryAdmitDeals.ltnombre" &

«sbqryAdmitDeals.FullName, sbqryAdmitDeals.RoleLeadFK» & CDate (formato (ahora (), "Fecha corta"))-[RepRecd] como días, 2 como IdPedido

"A" [nombre Variable]

"De sbqryAdmitDeals"

"Donde sbqryAdmitDeals.RoleLeadFK)="

DoCmd.SetWarnings False

DoCmd.RunSQL strSQL

DoCmd.SetWarnings True

ExitMySubName:

Salida Sub

err_handler:

DoCmd.SetWarnings True

MsgBox Err.Description, vbExclamation, "Error Number: " & Err.Number

Resume ExitMySubName

End Sub

4 Haga clic en el comando de "Asistente para consultas" en la cinta de acceso.

5 Escriba la consulta siguiente en el campo de texto:

Seleccione sbqryAdmitDeals.lt_name CDate (formato (ahora (), "Fecha corta")-[RepRecd] como días, 2 como ID en mtblFSRcvd

DE sbqryAdmitDeals

DONDE ((sbqryAdmitDeals.RoleLeadFK)=[Forms]! [ frmReports]! [cboPrimaryContact]);

6 Haga clic en el botón "Ejecutar" para ejecutar la consulta en la base de datos de Access 2007 usando VBA control.