[Resolvido]Sintaxe Erro expressão

Caros Amigos,

Onde está esse erro?

'-------------------------------------
Erro gerado: 3075. Erro de sintaxe (operador faltando) na expressão de consulta 'NomeSolicitante = Helena Maria da Silva'.
'-------------------------------------

Private Sub LST_PESQ_DblClick(Cancel As Integer)
'On Error GoTo trata_erro


Set db = CurrentDb
sSQL = "SELECT "
sSQL = sSQL & " Colaborador, NomeSolicitante, DataNascimento, Bairro, Cidade"
sSQL = sSQL & " , TituloZona, FoneZap, FoneTrabalho"
sSQL = sSQL & " , Endereço"
sSQL = sSQL & " FROM TbMala"
sSQL = sSQL & " WHERE NomeSolicitante = " & Me!LST_PESQ.Column(1)
Set rst = db.OpenRecordset(sSQL, dbOpenSnapshot)

DoCmd.Close acForm, "Frm_RegistroPesq Dia DD"

If Not rst.EOF Then
Colaborador = rst("Combinação43")
NomeSolicitante = rst("NomeSolicitante")
Else
Call LimpaCampos(Me)
End If

rst.Close
Set rst = Nothing

Exit Sub

trata_erro:

MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
Exit Sub



End Sub

Desde já, muito grato!

Para SQL, números troca-se a vírgula por pontos, datas entre # e no formato mm/dd/aaaa e texto entre aspas. Assunto muito falado.

sSQL = sSQL & " WHERE NomeSolicitante = '" & Me!LST_PESQ.Column(1) & "'"

Acertei e agora está dando:

Erro gerado: 3061 - Parâmetros insuficientes. Eram esperados 2.

Muito grato

Esse erro é apontado quando a SQL não está completa. Conforme este meu tópico basta fazer perguntas ao código e verificar o que está faltando. Experimente incluir a linha abaixo e ver a SQL montada. Insira o resultado aqui.

...
sSQL = sSQL & " WHERE NomeSolicitante = " & Me!LST_PESQ.Column(1)
msgbox sSQL
Set rst = db.OpenRecordset(sSQL, dbOpenSnapshot)
...

Resultado:

? sSQL

SELECT Colaborador, NomeSolicitante, DataNascimento, Bairro, Cidade , TituloZona, FoneZap, FoneTrabalho , Endereço FROM TbMala WHERE NomeSolicitante = 'Gladston Maximo Gomes da Silva'

Olá,

Espero que não esteja gravando espaços em branco no campo da tabela, mas pra todos os efeitos, utilize a função Trim, conforme abaixo:

sSQL = sSQL & " WHERE NomeSolicitante = '" & Trim(Me!LST_PESQ.Column(1)) &"'"

Editando.....

O erro está aqui:

Errado:
Colaborador = rst("Combinação43")

Correto:
me.Combinação43 = rst("Colaborador")



DICA: Se possível, nomeie corretamente os controles do formulário, por exemplo, "Combinação43".



[]'s

FIM

Caros Mestres,

Realmente os campos estavam invertidos. Fiz as devidas alterações e surtiram efeito. Fui mais para frente. Agora: Método ou membro de dados não encontrado, na linha: me.Combinação43 = rst("Colaborador"). Os nomes dos campos estão corretos. São diversos campos. Estou fazendo com alguns. Quando funcionar coloco o restante.
Acho que está se perdendo em qual formulário está para usar o "Me.". A sequência é a seguinte: Abro o formulário "Cadastra Mala Direta", nele criei um botão que abrirá novo formulário "Frm_RegistroPesq Dia DD" sobre o anterior com todos os registros em modo folha de dados (inclusive com campo para filtrar dados que funciona certinho). Queria que ao Duplo Click em determinado registro, fechasse o último e exibisse todos os campos no primeiro formulário.
Acho que é aí que estou me perdendo sobre os campos. Inclusive, fecho o segundo formulário antes de entrar no "If". Onde foi que eu errei?

Muito grato, abraços.

Sem os arquivos é difícil. Enfim... use pontos de interrupção para ver o passo a passo do código e saber como tudo está funcionando.

Bons estudos. Boas práticas.

Estou tentando aqui. Exatamente assim.

Resolvido.

Muito grato todos os Mestres.

Abraço