[Resolvido]SQL para VBA

Senhores,

Estou numa dúvida como proceder.

Código:

SELECT Criterios.Chave, OperadoresFeixe.Operador, OperadoresFeixe.Principal, Supervisor.Supervisor, Coordenador.ChaveCoord, Criterios.Demais_Pausas, Criterios.Disp_Prod, Criterios.Falado, Criterios.Logados, Criterios.NR17, Criterios.TMO, Criterios.Total_Pausas, Criterios.Dia
FROM Supervisor INNER JOIN (Coordenador INNER JOIN (OperadoresFeixe INNER JOIN Criterios ON OperadoresFeixe.Chave = Criterios.Chave) ON Coordenador.ChaveCoord = OperadoresFeixe.Coordenador) ON Supervisor.ChaveSup = OperadoresFeixe.Supervisor
WHERE (((Coordenador.ChaveCoord)=[Formulários]![FrmConsulta]![txtCoord]) AND ((Criterios.Dia)=[Formulários]![FrmConsulta]![Datatxt])) OR (((Supervisor.Supervisor)=[Formulários]![FrmConsulta]![txtSuper]) AND ((Criterios.Dia)=[Formulários]![FrmConsulta]![Datatxt]))
ORDER BY Supervisor.Supervisor, Criterios.Demais_Pausas DESC , Criterios.Disp_Prod, Criterios.Falado, Criterios.Logados, Criterios.NR17 DESC , Criterios.TMO DESC , Criterios.Total_Pausas DESC;


Este código é de uma consulta criada e funcional a partir do assistente de consulta do próprio access.
Porém o que desejo e não sei como começar...
Quero um comando onde, ao apertar o botão faça select para aparecer numa caixa de listagem já criada esta consulta.

Pelo que entendi é simples;

1º Use este meu banco, para converter o seu SQL para VBA.

Download

2º Cole a instrução VBA, toda no VBA do seu botão e envie para a sua lista;

Código:

Private Sub SeuBotão_Click()
Dim strSql$

'cole aqui instrução convertida.

Me.SuaLista.RowSource = strSql

End Sub

Serviu ?

O retorno é importante para que outros usuários o saibam.

Ajudou, mas mudei a estrutura do banco de dados. De qualquer modo, agradeço a atenção!

Entao nao se esqueça que o retorno é sempre importante.