[Resolvido]Converter SQL para SQL/VBA contendo expressão Dlookup

Boa tarde Amigos... Estou tendo dificuldades de converter esta SQL para SQL/VBA...

SELECT tblAlunos.ID_Aluno, tblAlunos.CpNome, tblBimestre.ID_Avaliacao, tblBimestre.Turma_ID, DLookUp("CpCurso","tblCursos1","Id_Curso = " & [Turma_ID] & "") AS Turma, tblBimestre.Disciplina_ID, tblBimestre.Aluno_ID_Bimestre, tblDisciplina.ID_Disciplina, tblDisciplina.CpDisciplina, tblBimestre.Cp1Bimestre, tblBimestre.Cp2Bimestre, tblBimestre.Cp3Bimestre, tblBimestre.Cp4Bimestre, DLookUp("CpAnoRef","tblCursos1","Id_Curso = " & [Turma_ID] & "") AS AnoRef
FROM tblDisciplina RIGHT JOIN (tblAlunos LEFT JOIN tblBimestre ON tblAlunos.ID_Aluno = tblBimestre.Aluno_ID_Bimestre) ON tblDisciplina.ID_Disciplina = tblBimestre.Disciplina_ID
WHERE (((tblBimestre.ID_Avaliacao) Is Not Null));



Se puderem ajudar fico grato.

Cumprimentos.

Bem amigos.. eu já havia tentado.. mas estava dando erro.. E como a cabeça estava a mil não percebi o erro na declaração do Recordset...

Eu erroneamente havia declarado

Dim Rs as DAO.Database.... não percebi e a janela do VBA autocompletou e não prestei atenção...

O correto é RS as Dao.Recordeset... então de todas as formar que eu tentava dava erro.

Foi pura falta de atenção, perdoem-me

Código correto:

Dim Rs As DAO.Recordset
Dim Db As DAO.Database
Dim strSql As String

strSql = "SELECT tblAlunos.ID_Aluno, tblAlunos.CpNome, tblBimestre.ID_Avaliacao, tblBimestre.Turma_ID, DLookUp(""CpCurso"",""tblCursos1"",""Id_Curso = "" & [Turma_ID] & """") AS Turma, tblBimestre.Disciplina_ID, tblBimestre.Aluno_ID_Bimestre, tblDisciplina.ID_Disciplina, tblDisciplina.CpDisciplina, tblBimestre.Cp1Bimestre, tblBimestre.Cp2Bimestre, tblBimestre.Cp3Bimestre, tblBimestre.Cp4Bimestre, DLookUp(""CpAnoRef"",""tblCursos1"",""Id_Curso = "" & [Turma_ID] & """") AS AnoRef " & vbCrLf & _
"FROM tblDisciplina RIGHT JOIN (tblAlunos LEFT JOIN tblBimestre ON tblAlunos.ID_Aluno = tblBimestre.Aluno_ID_Bimestre) ON tblDisciplina.ID_Disciplina = tblBimestre.Disciplina_ID " & vbCrLf & _
"WHERE (((tblBimestre.ID_Avaliacao) Is Not Null));"

Set Rs = CurrentDb.OpenRecordset(strSql)

Rs.Close
Set Rs = Nothing


Cumprimentos.

Só uma dúvida: por que declarou um Database sendo que ele não foi usado no código? Eu particularmente gosto de declarar apenas o Recordset e passar tudo nele:

Código:

Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("SELECT tblAlunos.ID_Aluno, tblAlunos.CpNome, tblBimestre.ID_Avaliacao, tblBimestre.Turma_ID, DLookUp(""CpCurso"",""tblCursos1"",""Id_Curso = "" & [Turma_ID] & """") AS Turma, tblBimestre.Disciplina_ID, tblBimestre.Aluno_ID_Bimestre, tblDisciplina.ID_Disciplina, tblDisciplina.CpDisciplina, tblBimestre.Cp1Bimestre, tblBimestre.Cp2Bimestre, tblBimestre.Cp3Bimestre, tblBimestre.Cp4Bimestre, DLookUp(""CpAnoRef"",""tblCursos1"",""Id_Curso = "" & [Turma_ID] & """") AS AnoRef " & vbCrLf & _
"FROM tblDisciplina RIGHT JOIN (tblAlunos LEFT JOIN tblBimestre ON tblAlunos.ID_Aluno = tblBimestre.Aluno_ID_Bimestre) ON tblDisciplina.ID_Disciplina = tblBimestre.Disciplina_ID " & vbCrLf & _
"WHERE (((tblBimestre.ID_Avaliacao) Is Not Null));")

Essa parte vai do gosto de cada um, hehehe. Só mesmo o Database que foi declarado e não utilizado

Sim tens razão, eu já havia retirado ... Havia colocado o mesmo quando ainda executava testes... Apenas me esqueci de retirar do post.

Abraços Mestre.