Cómo utilizar variables en una consulta de Access VBA

Consultas son una herramienta poderosa en Microsoft Access para recuperar información de una tabla de base de datos y tener el conocimiento sobre el uso de las variables en las consultas pueden hacer su solicitud de acceso más dinámico. En VBA puede crear sentencias SQL que contienen variables como variables de cadena para recuperar datos. Una vez creada la instrucción SQL , puede utilizar el objeto Recordset para recuperar los resultados de la consulta . Las variables de usuario en lugar de gastar construcción muchas sentencias de SQL vez con criterios no modificables . Cosas que necesitará
Northwind base de datos
Ver Más instrucciones
1

Comience por crear un nuevo procedimiento sub usando el siguiente código : Private Sub

useVariablesInQuery ()
2

Escriba el siguiente código para crear las variables que va a utilizar en su consulta :

strSQL As String Dim

companyName As
secuencia

lastName dévil como secuencia

rst As Recordset

Dim dbs como base de datos

Set dbs = CurrentDb
3

escriba lo siguiente para definir los valores de las variables utilizadas en la consulta :

companyName = " Neptuno "

lastName = " Freehafer "
4

escriba el después de crear una consulta utilizando las variables en el paso anterior :

strSQL = " . . SELECT Employees.Company , Trabajadores [ Apellido ] , los empleados [ Nombre ] , "

strSQL = strSQL & " Los empleados . [ E - mail] "

strSQL = strSQL & " FROM Empleados "

strSQL = strSQL & " WHERE ( ( ( Employees.Company ) = '" & ( companyName ) & " ')"

strSQL = strSQL & " AND ( ( Employees. [ Apellido ] ) =" "y ( lastName ) &" " )); "
5 < p > Escriba el siguiente para abrir un conjunto de registros y mostrar los resultados de la consulta :

Set rst = dbs.OpenRecordset ( strSQL )

Debug.Print rst.Fields ( 0 ) Valor < . br>

Debug.Print rst.Fields ( 1 ) . Valor

Debug.Print rst.Fields ( 2 ) . Valor

Debug.Print rst.Fields ( 3 ) . Valor
6

Escriba lo siguiente para terminar su procedimiento sub :

rst.Close

dbs.Close

End sub ​​

7

Press "F5 " para ejecutar el código .