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]Busca / filtro formulário continuo....Busca de valores R$

    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4591
    Registrado : 20/04/2011

    [Resolvido]Busca / filtro formulário continuo....Busca de valores R$ Empty [Resolvido]Busca / filtro formulário continuo....Busca de valores R$

    Mensagem  Silvio em 20/2/2020, 12:55

    Prezados colegas bom dia / Boa tarde / Boa noite.

    Estou tendo uma certa dificuldade com o seguinte desenvolvimento de busca por valores, em Reais em um formulário continuo.

    Estou tentando adaptar esse código para busca de valores e ao mesmo tempo, filtrando o referido formulário.



    Private Sub bt_filtro1_Click() ' busca por valores "R$ "#.##0,00;"

    On Error GoTo fim
    Dim filtro$
       Me.FilterOn = False
           filtro = "ValorPgto like " & Me!txtvalor
               Me.Filter = filtro
                   Me.FilterOn = True
    fim:
                   If Err.Number = 3075 Then
                   MsgBox "Campo Valor.... em branco, favor preencher", vbCritical, "AVISO..."
                   Me.txtvalor.SetFocus
                   End If

    End Sub




    O campo, ValorPgto, se encontra no formulário continuo.

    O campo, TxtValor, é o campo onde o usuário digita um valor qualquer e faz a busca / filtragem nesse referido formulário.

    O formatado de ambos os campos...."R$ "#.##0,00;"-R$ "#.##0,00

    Algum colega poderia me dar uma luz ?   Sei que está faltando alguma coisinha....

    Em tempo, certos valores ele faz a filtragem...mas em outros valores....não !!

    Grato.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3142
    Registrado : 21/04/2011

    [Resolvido]Busca / filtro formulário continuo....Busca de valores R$ Empty Re: [Resolvido]Busca / filtro formulário continuo....Busca de valores R$

    Mensagem  Marcelo David em 20/2/2020, 13:33

    Bom dia Silvio,
    Essa linha:
    Código:
    filtro = "ValorPgto like " & Me!txtvalor
    altere para:
    Código:
    filtro = "ValorPgto like '*" & Me!txtvalor & "*'"

    Se não der certo, tente:
    Código:
    filtro = "ValorPgto = " & Me!txtvalor

    Se ainda não der certo, poste aqui que tentamos por a "mão na massa"
    para chegar em um resultado satisfatório


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4591
    Registrado : 20/04/2011

    [Resolvido]Busca / filtro formulário continuo....Busca de valores R$ Empty Re: [Resolvido]Busca / filtro formulário continuo....Busca de valores R$

    Mensagem  Silvio em 20/2/2020, 13:59

    Marcelo, bom dia.

    Grato por me ajudar.

    Estou te enviando a base, valores em centavos não são filtrados.   Valores cheios...estão.

    Podes dar uma olhada para mim ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4213
    Registrado : 06/11/2009

    [Resolvido]Busca / filtro formulário continuo....Busca de valores R$ Empty Re: [Resolvido]Busca / filtro formulário continuo....Busca de valores R$

    Mensagem  Assis em 20/2/2020, 14:20

    Boa tarde Amigo

    Aqui no meu Computador funciona.

    Digito o valor por exemplo 458.33, carrego na tecla TAB e depois "Botão Filtar " e funciona.

    Ou digito o valor 458.33 e dou 2 vezes enter e funciona.



    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4591
    Registrado : 20/04/2011

    [Resolvido]Busca / filtro formulário continuo....Busca de valores R$ Empty Re: [Resolvido]Busca / filtro formulário continuo....Busca de valores R$

    Mensagem  Silvio em 20/2/2020, 15:30

    Nobre Assis, aqui não dá certo não.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4213
    Registrado : 06/11/2009

    [Resolvido]Busca / filtro formulário continuo....Busca de valores R$ Empty Re: [Resolvido]Busca / filtro formulário continuo....Busca de valores R$

    Mensagem  Assis em 20/2/2020, 16:31

    Silvio

    Teste.

    Digita o valor e dar ENTER.
    Anexos
    [Resolvido]Busca / filtro formulário continuo....Busca de valores R$ AttachmentForum Maximo_Assis.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (100 Kb) Baixado 11 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2475
    Registrado : 09/04/2012

    [Resolvido]Busca / filtro formulário continuo....Busca de valores R$ Empty Re: [Resolvido]Busca / filtro formulário continuo....Busca de valores R$

    Mensagem  Kaynan em 20/2/2020, 18:01

    Ola amigos,testando também o exemplo,comigo só funciona os valores sem os centavos.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2475
    Registrado : 09/04/2012

    [Resolvido]Busca / filtro formulário continuo....Busca de valores R$ Empty Re: [Resolvido]Busca / filtro formulário continuo....Busca de valores R$

    Mensagem  Kaynan em 20/2/2020, 18:23

    Ao colocar o Código, filtro = "ValorPgto like '*" & Me!txtvalor & "*'" como o Marcelo orientou agora funcionou com os centavos,mas se colocar valores assim R$ 2.254,95 ja não filtra.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3142
    Registrado : 21/04/2011

    [Resolvido]Busca / filtro formulário continuo....Busca de valores R$ Empty Re: [Resolvido]Busca / filtro formulário continuo....Busca de valores R$

    Mensagem  Marcelo David em 20/2/2020, 19:01

    Assim:
    filtro = "ValorPgto like '*" & Me!txtvalor & "*'"

    Em todos os testes feitos funcionou corretamente.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4591
    Registrado : 20/04/2011

    [Resolvido]Busca / filtro formulário continuo....Busca de valores R$ Empty Re: [Resolvido]Busca / filtro formulário continuo....Busca de valores R$

    Mensagem  Silvio em 20/2/2020, 19:58

    Marcelo, tente filtrar 10,00..veja o resultado.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3142
    Registrado : 21/04/2011

    [Resolvido]Busca / filtro formulário continuo....Busca de valores R$ Empty Re: [Resolvido]Busca / filtro formulário continuo....Busca de valores R$

    Mensagem  Marcelo David em 20/2/2020, 20:38

    Realmente, não foi.
    Teste assim:

    filtro = "ValorPgto like '" & Me!txtvalor & "'"


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Busca / filtro formulário continuo....Busca de valores R$ Empty Re: [Resolvido]Busca / filtro formulário continuo....Busca de valores R$

    Mensagem  DamascenoJr. em 20/2/2020, 21:17

    Desenvolver um aplicativo é como criar um filho: fique sempre de olho no que ele faz e como faz para que não faça nada de errado.

    Um ponto de interrupção aqui, e uma checada nas variáveis ali, percebi que o valor em reais estava trazido com vírgula.

    Assim como datas devem ser tratadas no formato mm/dd/aaaa, valores numéricos não devem ter vírgula como separador decimal, mas sim ponto.

    Código:
    filtro = "ValorPgto = " & Replace(Me!txtvalor, ",", ".")


    .................................................................................
    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.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4213
    Registrado : 06/11/2009

    [Resolvido]Busca / filtro formulário continuo....Busca de valores R$ Empty Re: [Resolvido]Busca / filtro formulário continuo....Busca de valores R$

    Mensagem  Assis em 20/2/2020, 21:28

    Damasceno

    No meu exemplo da mensagem nº 6 funciona porque eu uso o .(ponto). Exemplo digito 100.00 seguido de enter.

    Alguém testou ?


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4591
    Registrado : 20/04/2011

    [Resolvido]Busca / filtro formulário continuo....Busca de valores R$ Empty Re: [Resolvido]Busca / filtro formulário continuo....Busca de valores R$

    Mensagem  Silvio em 21/2/2020, 10:48

    Bom dia a todos, que participam desse tópico.

    O VBA é muito enriquecedor mesmo.

    Damasceno, acertou em cheio !!!!!!!

    O bom disso, é que tenho certeza que mais pessoas irão vir aqui a procura dessa solução.


    Abaixo a rotina de como ficou.

    Código:
    Private Sub bt_filtro1_Click() ' busca por valores "R$ "#.##0,00;"
    On Error GoTo fim
    Dim filtro$
        Me.FilterOn = False
        filtro = "ValorPgto = " & Replace(Me!txtvalor, ",", ".")
                    Me.Filter = filtro
                    Me.FilterOn = True
    fim:
                    If Err.Number = 3075 Then
                    MsgBox "Campo Valor.... em branco, favor preencher", vbCritical, "AVISO..."
                    Me.txtvalor.SetFocus
                    End If
    End Sub

    Um grande abraço a todos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3142
    Registrado : 21/04/2011

    [Resolvido]Busca / filtro formulário continuo....Busca de valores R$ Empty Re: [Resolvido]Busca / filtro formulário continuo....Busca de valores R$

    Mensagem  Marcelo David em 21/2/2020, 10:54

    Ótimo que deu certo!
    Só por curiosidade, você chegou a testar:

    filtro = "ValorPgto like '" & Me!txtvalor & "'"

    como sugeri na mensagem 11?

    Porque aqui nos meus testes funcionou e já usando ponto (.), por exemplo, para filtrar
    R$ 377,67 assim: 377.67, o access interpreta como R$ 37.767,00.

    Apenas para tirarmos uma conclusão sobre a formatação regional da máquina.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4591
    Registrado : 20/04/2011

    [Resolvido]Busca / filtro formulário continuo....Busca de valores R$ Empty Re: [Resolvido]Busca / filtro formulário continuo....Busca de valores R$

    Mensagem  Silvio em 22/2/2020, 12:43

    [Resolvido]Busca / filtro formulário continuo....Busca de valores R$ <a href=[Resolvido]Busca / filtro formulário continuo....Busca de valores R$ Format10"/>

    bom dia a todos.

    eis as minhas formatações de valores.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

      Data/hora atual: 11/8/2020, 13:34