MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Problema com datas

    Compartilhe

    eduardo landucci
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 18/12/2015

    [Resolvido]Problema com datas

    Mensagem  eduardo landucci em Qua 28 Jun 2017, 01:52

    Gostaria de saber se alguém pode me explicar o porque do que esta ocorrendo no meu código.
    .
    .
    .
    ElseIf Opção53 = -1 Then
    w_pes = ("Dpagto >= " & CDate(Texto48))
    MsgBox (w_pes)
    .
    .
    .
    mais abaixo mando gerar o relatorio com base na w_pes

    DoCmd.OpenReport "dados_carnet", acViewPreview, , w_pes

    imprime direitinho...


    Acontece que quando eu inverto, e tento procurar do fim do período pro começo, nao funciona.

    Quando eu mudo
    w_pes = ("Dpagto <= " & CDate(Texto48))

    o relatório sai em branco.

    e única coisa que muda é que na primeira eu informo a data 01/06/2017 e na segunda eu informo a data de 27/06/2017, o que teoricamente deveria me trazer pelo menos os valores em comum.
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 231
    Registrado : 23/01/2017

    Re: [Resolvido]Problema com datas

    Mensagem  thiagomcosta em Qua 28 Jun 2017, 12:37

    Posta um exemplo para gente poder analisar melhor.
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 01/08/2011

    Re: [Resolvido]Problema com datas

    Mensagem  ronaldojr1 em Qua 28 Jun 2017, 13:04

    bom dia amigo, esses dias tive um problema parecido, perdi horas quebrando a cabeça o pq da data nao estar trazendo o resultado certo.
    testava minha sql na consulta funcionava ai se eu colava no vba nao trazia o resultado esperado.
    solução:
    colocar o sinal "#" para setar datas do mesmo jeito que usamos apostrofo em string.
    no seu caso tente assim:
    w_pes = ("Dpagto >= #" & CDate(Texto48) & "#")

    eduardo landucci
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 18/12/2015

    Funcionou

    Mensagem  eduardo landucci em Qua 28 Jun 2017, 15:51

    RonaldoJr..

    Eu já tinha utilizado o #, mas eu só utilizava quando eu estava fixando uma data. Ainda não tinha me ocorrido usar com variaveis.


    Valeu, Grato
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 01/08/2011

    Re: [Resolvido]Problema com datas

    Mensagem  ronaldojr1 em Qua 28 Jun 2017, 16:38

    disponha, o forum agredece o retorno.
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 231
    Registrado : 23/01/2017

    Re: [Resolvido]Problema com datas

    Mensagem  thiagomcosta em Qua 28 Jun 2017, 17:57

    Uma coisa que eu me bati estes dias foi a troca do dia pelo mês nas consultas SQL do meu projeto.

    Somente resolvi colocando nas consultas SQL da seguinte maneira (usando o seu exemplo):
    w_pes = ("Dpagto >= #" & Format(CDate(Texto48), "mm/dd/yyyy") & "#")

    Por incrível que pareça nas de atualização e inclusão somente desta maneira para não haver troca entre os valores do dia e do mês, mesmo com o campo da tabela formato como dd/mm/aaaa.

    Fica aí mais uma dica.
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 01/08/2011

    Re: [Resolvido]Problema com datas

    Mensagem  ronaldojr1 em Qua 28 Jun 2017, 20:14

    opa!!! obrigado pela dica.

      Data/hora atual: Sab 18 Nov 2017, 19:17