vba - reto - formulario de consulta en excel

Crear una consulta de forma dinámica a través del código en MSAccess 2003

Question

Hola, necesito crear una consulta en MSAccess 2003 a través del código (también conocido como VB). ¿Cómo puedo lograr esto?

Answer 1

Gracias por esta respuesta y el pequeño fragmento de código. Si alguien necesita definir los tipos de datos para las variables utilizadas, use esto:

    Dim strsql As Variant
    Dim qdf As QueryDef

Answer 2

Dim strSql As String ''as already in example
Dim qdf As QueryDef ''as already in example

strSql = "SELECT * FROM tblT WHERE ID =" & Forms!Form1!txtID ''as already in example

On Error Resume Next
''Delete the query if it already exists
DoCmd.DeleteObject acQuery, "NewQuery"

Set qdf = CurrentDb.CreateQueryDef("NewQuery", strSql) ''as already in example
DoCmd.OpenQuery qdf.Name ''as already in example

''release memory
qdf.Close ''i changed qdef to qdf here and below
Set qdf = Nothing

Answer 3

Una respuesta vaga para una pregunta vaga :)

strSQL="SELECT * FROM tblT WHERE ID =" & Forms!Form1!txtID 

Set qdf=CurrentDB.CreateQueryDef("NewQuery",strSQL)
DoCmd.OpenQuery qdf.Name