MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Erro de Sintaxe

    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    Registrado : 11/12/2017

    [Resolvido]Erro de Sintaxe Empty [Resolvido]Erro de Sintaxe

    Mensagem  Ismael Silva em 4/6/2020, 04:48

    Bom dia,

    Nâo estou conseguindo identificar o erro de sintaxe, na linha de código, onde quero antes de atualizar o campo PraQuem1, se já tiver o nome selecionado, e na mesma data, que apresente uma msg box, mas deu o erro.

    If DCount("*", "Tbl_Saida_Det", "Dta_Saida =#" & Format(Me.Data_Final_Frm, "mm/dd/yyyy") & "and Pra_Quem='" & Pra_Quem1) > 0 Then


    Alguma sugestão?

    Obrigado.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    Registrado : 22/11/2016

    [Resolvido]Erro de Sintaxe Empty Re: [Resolvido]Erro de Sintaxe

    Mensagem  DamascenoJr. em 4/6/2020, 05:08

    Basta fazer substituições.

    Vamos atribuir valores para os campos
    Data_Final_Frm = 03/06/2020 'a data atual
    Pra_Quem = José 'vou supor que esse campo seja do tipo texto

    Antes da montagem, precisamos lembrar das regras
    1. Textos/Strings devem ficar entre aspas
    2. Datas precisam estar no formato Mês/Dia/Ano
    3. Datas precisam estar entre cerquilhas #

    Agora vamos a montagem, substituindo os campos, tal qual o VBA faz

    Linha inicial
    DCount("*", "Tbl_Saida_Det", "Dta_Saida =#" & Format(Me.Data_Final_Frm, "mm/dd/yyyy") & "and Pra_Quem='" & Pra_Quem1)

    Substituindo os campos pelos valores
    DCount("*", "Tbl_Saida_Det", "Dta_Saida =#" & Format(03/06/2020, "mm/dd/yyyy") & "and Pra_Quem='" & José)

    Após a formatação da data
    DCount("*", "Tbl_Saida_Det", "Dta_Saida =#" & 06/03/2020 & "and Pra_Quem='" & José)

    Após as concatenações
    DCount("*", "Tbl_Saida_Det", "Dta_Saida =#06/03/2020and Pra_Quem='José)

    Conclusões:
    No final, após todas as substituições, o VBA percebe que a sintaxe não obedece às regras.
    1. A data não fica entre cerquilhas #, existe apenas a # inicial.
    2. A data está ficando colada no operador "And" --> 06/03/2020and
    3. O valor do campo Pra_Quem1 não está ficando entre aspas, existe apenas a aspa inicial.

    Sugestões:
    1. Veja e reveja como o VBA faz a montagem
    2. Garanta que a data fique entre cerquilhas # adicionando uma # antes do operador "And" --> "#And...
    3. Garanta que haja um espaço entre a cerquilha e o operador "And" --> "#ESPAÇOAnd...
    4. Garanta que o valor do campo Pra_Quem1 fique entre aspas adicionando uma concatenação após a referência do campo no código --> ...Pra_Quem='" & Pra_Quem1 & "'")


    .................................................................................
    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.
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    Registrado : 11/12/2017

    [Resolvido]Erro de Sintaxe Empty Re: [Resolvido]Erro de Sintaxe

    Mensagem  Ismael Silva em 4/6/2020, 16:43

    Boa tarde Damasceno,

    Obrigado pela dica, depois de tantas buscas, consegui resolver, com base neste tópico, mensagem 19:

    https://www.maximoaccess.com/t1794-resolvidoverificar-se-data-ja-existe

    Muito Obrigado.
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    Registrado : 11/12/2017

    [Resolvido]Erro de Sintaxe Empty Re: [Resolvido]Erro de Sintaxe

    Mensagem  Ismael Silva em 4/6/2020, 16:54

    Resolvido!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    Registrado : 22/11/2016

    [Resolvido]Erro de Sintaxe Empty Re: [Resolvido]Erro de Sintaxe

    Mensagem  DamascenoJr. em 4/6/2020, 21:24

    O fórum agradece o retorno. Sucesso.


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

      Data/hora atual: 9/8/2020, 15:41