[Resolvido] Consulta em VBA Não Filtra

Olá,

Tenho a seguinte consulta em VBA,

Código:


Private Sub Rótulo14_Click()
Dim rst As Recordset
Dim banco As Database
Dim str As String
Dim Estado As String
Dim concelho As String

Set banco = CurrentDb
Set rst = banco.OpenRecordset("Clientes")

Estado = "Cortado"
concelho = "Arouca"

str = "SELECT Clientes.Instalação, Clientes.cNome, Clientes.Estado FROM Clientes"
str = str + " GROUP BY Clientes.Instalação, Clientes.cNome, Clientes.Estado, Clientes.Concelho"
str = str + " HAVING (((Clientes.Estado)=estado) AND ((Clientes.Concelho)=concelho));"

Me.Lista0.RowSource = str
Lista0.Requery
End Sub

Acontece que ao clicar no rótulo14 a Lista0 é preenchida no entanto os dados não são filtrados por Estado e Concelho, neste caso "Cortado" e "Arouca" respectivamente.

Se criar uma consulta no modo de estrutura e colocar este código SQL já funciona, mas eu queria via VBA.

Falta alguma coisa? Conseguem ajudar-me?

Olá Gajo!

tente assim:

str = "SELECT Clientes.Instalação, Clientes.cNome, Clientes.Estado FROM Clientes"
str = str & " GROUP BY Clientes.Instalação, Clientes.cNome, Clientes.Estado, Clientes.Concelho"
str = str & " HAVING Clientes.Estado='" & estado & "' AND Clientes.Concelho='" & concelho & "';"

Sucesso!

Aproveito para te convidar a assistir esta minha vídeo-aula sobre filtragens.

Tutorial com Vídeo-aula

Bom estudo!

Olá Avelino

Muito obrigado, já funciona.

Vou seguir a sua dica e ver a video-aula sobre filtragens.

Obrigado, mais uma vez.