Crear/Eliminar Consulta con VBA-Access

 

 

 

Un regalito para los asiduos a Access VBA, cuesta conseguir este codigo pero al final nos damos cuenta que no es nada complicado. Al presionar un boton nos crea una consulta utilizando los parametros que le demos en la variable strQSL, pero primero cerciora que la consulta no este creada, si lo esta lo borra. Cualquier duda o comentario….

‘———————————
Private Sub cmdConsulta_Click()
On Error GoTo Err_cmdConsulta_Click

Dim qdfNew As DAO.QueryDef
Dim strSQL As String

If Len(Nz(DLookup(“Name”, “msysobjects”, _
“type=5 and Name= ‘MiConsulta’”), “”)) <> 0 Then
DoCmd.DeleteObject acQuery, “MiConsulta”
End If

strSQL = “SELECT codigo,nombre,direccion,telefono ” & _
“FROM dbo_Integrantes ” & _
“WHERE codigo>= 76306;”

Set qdfNew = CurrentDb.CreateQueryDef(“MiConsulta”, strSQL)
DoCmd.OpenQuery “MiConsulta”, acNormal, acEdit

Set MiConsulta = Nothing

Exit_cmdConsulta_Click:
Exit Sub

Err_cmdConsulta_Click:
MsgBox Err.Description
Resume Exit_cmdConsulta_Click

End Sub
‘———————————

Mi consulta era mas complicada, esta es basica para que de alli vayan ampliando la estructura de la misma, pueden ver la que use en: http://pastebin.com/cie6ciyZ