[Resolvido]Erro em SQL, alguém me pode ajudar ?

Boas tardes,


Retirei do repositório uma BD que desde já muito agradeço ao APJesus pois tem permitido evoluir na minha aprendizagem.

Na mesma existe um form com uma caixa de busca que funciona na perfeição com o código:

Dim strSQL As String

strSQL = "SELECT ID_Funcionario as Cartão, Nome_Funcionario as Nome, Firma," _
& "Nome_Funcionario FROM Tab_Funcionarios WHERE Nome_Funcionario Like '*" & Me.txtBusca.Text & "*'"
Me.Lista46.RowSource = strSQL
Me.SelecionaReg
If Me.Lista46.Column(1) = Me.txtBusca.Text Then
Me.TimerInterval = 1000
Else
Me.TimerInterval = 0
End If


Agora gostaria de colocar a mesma a funcionar com campos de duas tabelas, cheguei ao código abaixo, mas não consigo que o mesmo funcione. Será podem dar uma vista de olhos ver o que está errado ?

strSQL = "SELECT SELECT Tab_Funcionarios.ID_Funcionario, Tab_Funcionarios.Nome_Funcionario, Tab_Setor.Desc_Setor, Tab_EmpresaFornecedor.Desc_EmpresaFornecedor FROM (Tab_Setor INNER JOIN Tab_Funcionarios ON Tab_Setor.ID_Setor = Tab_Funcionarios.ID_Setor) INNER JOIN Tab_EmpresaFornecedor ON Tab_Funcionarios.Firma = Tab_EmpresaFornecedor.ID_EmpresaFornec ORDER BY Tab_Funcionarios.ID_Funcionario," _
& "Nome_Funcionario FROM Tab_Funcionarios WHERE Nome_Funcionario Like '*" & Me.txtBusca.Text & "*'"


O meu obrigado desde já

Duas vezes SELECT dá erro mesmo;

strSQL = "SELECT SELECT Tab_Funcionarios.ID_Funcionario, Tab_Funcionarios.Nome_Funcionario, Tab_Setor.Desc_Setor, Tab_EmpresaFornecedor.Desc_EmpresaFornecedor FROM (Tab_Setor INNER JOIN Tab_Funcionarios ON Tab_Setor.ID_Setor = Tab_Funcionarios.ID_Setor) INNER JOIN Tab_EmpresaFornecedor ON Tab_Funcionarios.Firma = Tab_EmpresaFornecedor.ID_EmpresaFornec ORDER BY Tab_Funcionarios.ID_Funcionario," _
& "Nome_Funcionario FROM Tab_Funcionarios WHERE Nome_Funcionario Like '*" & Me.txtBusca.Text & "*'"

Caro J Paulo,

em primeiro lugar os meus agradecimentos pela rápida resposta. Esse duplo SELECT foi parar aí por um qualquer erro de copy/paste. Infelizmente o que me falta é algo mais... conhecimento é a razão mais plausível...

Verifiquei na BD e lá efectivamente apenas tenho um SELECT.

Se você fizer direto na consulta funciona ?

Se funfar, cole aqui o SQL da consulta sem alterações.

Caro J Paulo,


Aqui fica então o SQL sobre o qual a Query corre e dá os resultados pretendidos:

SELECT Tab_Funcionarios.ID_Funcionario, Tab_Funcionarios.Nome_Funcionario, Tab_EmpresaFornecedor.Desc_EmpresaFornecedor, Tab_Setor.Desc_Setor
FROM (Tab_Funcionarios INNER JOIN Tab_Setor ON Tab_Funcionarios.ID_Setor = Tab_Setor.ID_Setor) INNER JOIN Tab_EmpresaFornecedor ON Tab_Funcionarios.Firma = Tab_EmpresaFornecedor.ID_EmpresaFornec
WHERE (((Tab_Funcionarios.Nome_Funcionario) Like "*" & [Forms]![FrConsultaFuncionarios]![txtBusca] & "*"));

Obrigado.

Dê uma testada ae;


strSQL = "SELECT Tab_Funcionarios.ID_Funcionario, Tab_Funcionarios.Nome_Funcionario, Tab_EmpresaFornecedor.Desc_EmpresaFornecedor, Tab_Setor.Desc_Setor " & vbCrLf & _
"FROM (Tab_Funcionarios INNER JOIN Tab_Setor ON Tab_Funcionarios.ID_Setor = Tab_Setor.ID_Setor) INNER JOIN Tab_EmpresaFornecedor ON Tab_Funcionarios.Firma = Tab_EmpresaFornecedor.ID_EmpresaFornec " & vbCrLf & _
"WHERE (((Tab_Funcionarios.Nome_Funcionario) Like '*" & [Forms]![FrConsultaFuncionarios]![txtBusca].Text & "*'));"

Caro J Paulo,



Funciona perfeitamente, muito obrigado.

Para benefício da minha aprendizagem, será possível explicar-me o que representa vbCrLf e a correcta utilização do carácter "_" ?

Obrigado uma vez mais

Obrigado pelo retorno o forum agradece.

Então, o vbCrLf é uma quebra de linha e o underscore é para dizer ao VBA que a linha continua.

Pode testar numa mensagem;

Msgbox "Olá" & Vbcrlf & "Eu sou o Neves."