[Resolvido]Erro de sintaxe

Bom dia

Como poderia fazer essa operação:

Me.cboDesenho.RowSource = "SELECT tblDesenho.Cod_Complemento, tblDesenho.Cod_Bomba,tblDesenho.Cod_Tubo,tblDesenho.Cod_Esquema,tblDesenho.Cod_Esquema,tblDesenho.Cod_Ligação,tblDesenho.ID_Desenho,tblDesenho.Cod_TipoBomba,tblBomba.Descrição FROM tblDesenho " & _
    " WHERE Cod_Complemento = " & Nz(Me.cboComplemento)&_
    " WHERE Cod_Bomba = " & Nz(Me.cboBomba)& _
    " WHERE Cod_Tubo = " & Nz(Me.cboSucção)& _
    " WHERE Cod_Esquema = " & Nz(Me.cboTipoSuc)& _
    " WHERE Cod_Painel = " & Nz(Me.cboPainel)& _
    " WHERE Cod_Ligação = " & Nz(Me.cboInstalação)& _
    " WHERE Cod_TipoBomba = " & Nz(Me.cboTipoMB)& _
    " ORDER BY Descrição"

Onde está dando o erro ?
Em qual linha dessa rotina ?
Em qual momento ocorre o erro ?


Procure dar um print screen da tela mostrando o tipo de erro que está a ocorrer !

Segue o print

Tem muito Where nessa SQL.
Quando fizer uma consulta seleção como essa, faça na consulta e então pegue o código SQL para colocar no VBA.

Me.cboDesenho.RowSource = "SELECT tblDesenho.Cod_Complemento, tblDesenho.Cod_Bomba,tblDesenho.Cod_Tubo,tblDesenho.Cod_Esquema,tblDesenho.Cod_Esquema,tblDesenho.Cod_Ligação,tblDesenho.ID_Desenho,tblDesenho.Cod_TipoBomba,tblBomba.Descrição FROM tblDesenho " & _
" WHERE Cod_Complemento = " & Nz(Me.cboComplemento)&_
" AND Cod_Bomba = " & Nz(Me.cboBomba)& _
" AND Cod_Tubo = " & Nz(Me.cboSucção)& _
" AND Cod_Esquema = " & Nz(Me.cboTipoSuc)& _
" AND Cod_Painel = " & Nz(Me.cboPainel)& _
" AND Cod_Ligação = " & Nz(Me.cboInstalação)& _
" ANDCod_TipoBomba = " & Nz(Me.cboTipoMB)& _
" ORDER BY Descrição"

Teu anexo está corrompido, não deu para abrir.
Veja Aqui embaixo, na minha assinatura como postar imagem direto no post.

[ ]'s

tblDesenho.Cod_Esquema está duplicado na instrução.

A instrução referencia um campo (Descrição) da tabela tblBomba que não aparece na cláusula FROM.

E cuidado com os espaços.

Me.cboDesenho.RowSource = "SELECT tblDesenho.Cod_Complemento, tblDesenho.Cod_Bomba,tblDesenho.Cod_Tubo,tblDesenho.Cod_Esquema,tblDesenho.Cod_Esquema,tblDesenho.Cod_Ligação,tblDesenho.ID_Desenho,tblDesenho.Cod_TipoBomba,tblBomba.Descrição FROM tblDesenho " & _
" WHERE Cod_Complemento = " & Nz(Me.cboComplemento) &_
" AND Cod_Bomba = " & Nz(Me.cboBomba) & _
" AND Cod_Tubo = " & Nz(Me.cboSucção) & _
" AND Cod_Esquema = " & Nz(Me.cboTipoSuc) & _
" AND Cod_Painel = " & Nz(Me.cboPainel) & _
" AND Cod_Ligação = " & Nz(Me.cboInstalação) & _
" AND Cod_TipoBomba = " & Nz(Me.cboTipoMB) & _
" ORDER BY Descrição"

Correto Claudio

Passou batido aqui

[ ]'s

Muito obrigado a todos pela colaboração.

Deu certo aqui, graças ao suporte dos feras.

Não tem nenhuma fera aqui.

Somente entusiastas do Access!

valeu pelo retorno

Boa sorte!