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]Filtrar formulário por caixa de combinação campo tipo data

    avatar
    Larimer
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 10/08/2013

    [Resolvido]Filtrar formulário por caixa de combinação campo tipo data Empty [Resolvido]Filtrar formulário por caixa de combinação campo tipo data

    Mensagem  Larimer em 1/12/2018, 18:55

    Amigos,

    Tenho um formulário onde quero filtrar por um campo tipo data (data abreviada), sendo que quero selecionar a data a ser filtrada numa caixa de combinação.

    Só que a única resposta que consigo é "Tipo de dados incompatível na expressão de critério"...
    Já sei que o VBA lê a data no padrão mm/dd/yyyy...

    O filtro pela caixa de combinação, indicando a coluna (0), eu sei fazer... Dá certo para campos tipo texto... Mas para esse campo data não...

    A pergunta é...

    Como fazer?

    Agradeço imensamente !
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 05/12/2016

    [Resolvido]Filtrar formulário por caixa de combinação campo tipo data Empty Re: [Resolvido]Filtrar formulário por caixa de combinação campo tipo data

    Mensagem  caiosouza em 2/12/2018, 01:39

    Boa noite,
    Você quer adicionar valores a Combobox ou o erro ocorre ao selecionar uma data da combobox?
    Poderia nos mandar a parte que esta dando erro?


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    Larimer
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 10/08/2013

    [Resolvido]Filtrar formulário por caixa de combinação campo tipo data Empty Erro ocorre ao selecionar. Filtrar formulário por caixa de combinação campo tipo data

    Mensagem  Larimer em 2/12/2018, 13:27

    Oi Caio, bom dia!
    Obrigado pela resposta, na verdade pergunta...rsrs.

    O erro ocorre ao selecionar a data.
    A data está numa tabela que a Combo está lendo.

    Já verifiquei o formato na tabela onde está a data, que é "data abreviada".
    Coloquei o mesmo formato na Combo, no campo do formulário e na tabela que este formulário está lendo...

    Só que, pelo que pesquisei, o problema é o formato "mm/dd/yyyy' que o VBA reconhece (formato americano).

    Tentei usar um "Format..." no código do filtro...

    No evento na Combo, que está dando erro, estou usando:

    Private Sub FiltroPrvEntrega_AfterUpdate()


    DoCmd.ApplyFilter , "Entrega = '" & Me![FiltroPrvEntrega].Column(0) & "'"

    End Sub


    Tentei colocar um "Format"...


    Private Sub FiltroPrvEntrega_AfterUpdate()


    DoCmd.ApplyFilter , "Entrega = '" & Format(Me![FiltroPrvEntrega].Column(0))="mm/dd/yyyy" & "'"

    End Sub

    Não deu certo...

    Também já tentei jogar o valor da Combo para uma caixa de texto e fazer o filtro com base na caixa de texto...
    Tentei usar um "Format" na caixa de texto...
    Daí não dava o erro de "Tipo de dados incompatível...", só que o filtro retornava em branco...

    Hard...

    Obrigado!




    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 05/12/2016

    [Resolvido]Filtrar formulário por caixa de combinação campo tipo data Empty Re: [Resolvido]Filtrar formulário por caixa de combinação campo tipo data

    Mensagem  caiosouza em 2/12/2018, 15:02

    Bom dia!
    Primeiramente a função Format() é justamente para alterar formatos de uma expressão de acordo com nossa necessidade.
    Exemplo:
    Data: 12/02/2018 (padrão americano mm/dd/yyyy)
    Aplicação da função: Fomat([SeuCampoData], "dd/mm/yyyy")

    Sobre seu código, tente assim:

    Código:
    Private Sub FiltroPrvEntrega_AfterUpdate()
        Me.Filter = "[Entrega]='" & Me.FiltroPrvEntrega.Column(0) & "'"
        Me.FilterOn = True
    End Sub

    Ou:

    Código:
    Private Sub FiltroPrvEntrega_AfterUpdate()
        Me.Filter = "[Entrega]=#" & Me.FiltroPrvEntrega.Column(0) & "#"
        Me.FilterOn = True
    End Sub


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    Larimer
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 10/08/2013

    [Resolvido]Filtrar formulário por caixa de combinação campo tipo data Empty Resolvido! Filtrar a partir de ComboBox

    Mensagem  Larimer em 3/12/2018, 22:04

    Prezado Caio, boa noite!

    Agradeço demais!

    A forma que deu certo foi a seguinte:

    Private Sub FiltroPrvEntrega_AfterUpdate()
    Me.Filter = "[Entrega]=#" & Me.FiltroPrvEntrega.Column(0) & "#"
    Me.FilterOn = True
    End Sub

    Foi a segunda que vc sugeriu!

    Obrigado!
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 05/12/2016

    [Resolvido]Filtrar formulário por caixa de combinação campo tipo data Empty Re: [Resolvido]Filtrar formulário por caixa de combinação campo tipo data

    Mensagem  caiosouza em 4/12/2018, 09:32

    Bom dia!

    Agradeço o retorno, bons estudos! cheers


    .................................................................................
    A persistência leva ao sucesso!

    Conteúdo patrocinado

    [Resolvido]Filtrar formulário por caixa de combinação campo tipo data Empty Re: [Resolvido]Filtrar formulário por caixa de combinação campo tipo data

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/9/2019, 06:31