MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

    [Resolvido]Sintaxe Erro expressão

    Finformática
    Finformática
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 847
    Registrado : 23/03/2010

    [Resolvido]Sintaxe Erro expressão Empty [Resolvido]Sintaxe Erro expressão

    Mensagem  Finformática Dom 22 Ago - 10:36

    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!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 21/11/2016

    [Resolvido]Sintaxe Erro expressão Empty Re: [Resolvido]Sintaxe Erro expressão

    Mensagem  DamascenoJr. Dom 22 Ago - 11:43

    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) & "'"


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Finformática
    Finformática
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 847
    Registrado : 23/03/2010

    [Resolvido]Sintaxe Erro expressão Empty Re: [Resolvido]Sintaxe Erro expressão

    Mensagem  Finformática Dom 22 Ago - 12:06

    Acertei e agora está dando:

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

    Muito grato
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 21/11/2016

    [Resolvido]Sintaxe Erro expressão Empty Re: [Resolvido]Sintaxe Erro expressão

    Mensagem  DamascenoJr. Dom 22 Ago - 12:19

    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)
    ...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Finformática
    Finformática
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 847
    Registrado : 23/03/2010

    [Resolvido]Sintaxe Erro expressão Empty Re: [Resolvido]Sintaxe Erro expressão

    Mensagem  Finformática Dom 22 Ago - 13:53

    Resultado:

    ? sSQL

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

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Sintaxe Erro expressão Empty Re: [Resolvido]Sintaxe Erro expressão

    Mensagem  Alexandre Fim Dom 22 Ago - 13:59

    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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Sintaxe Erro expressão Setinf11
    Sistemas e Tecnologia Ltda
    Finformática
    Finformática
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 847
    Registrado : 23/03/2010

    [Resolvido]Sintaxe Erro expressão Empty Re: [Resolvido]Sintaxe Erro expressão

    Mensagem  Finformática Dom 22 Ago - 14:40

    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.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 21/11/2016

    [Resolvido]Sintaxe Erro expressão Empty Re: [Resolvido]Sintaxe Erro expressão

    Mensagem  DamascenoJr. Dom 22 Ago - 14:48

    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.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Finformática
    Finformática
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 847
    Registrado : 23/03/2010

    [Resolvido]Sintaxe Erro expressão Empty Re: [Resolvido]Sintaxe Erro expressão

    Mensagem  Finformática Dom 22 Ago - 14:55

    Estou tentando aqui. Exatamente assim.
    Finformática
    Finformática
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 847
    Registrado : 23/03/2010

    [Resolvido]Sintaxe Erro expressão Empty Re: [Resolvido]Sintaxe Erro expressão

    Mensagem  Finformática Ter 7 Set - 18:17

    Resolvido.

    Muito grato todos os Mestres.

    Abraço

      Data/hora atual: Sab 1 Out - 11:57