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

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.

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, 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 ?

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.

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

Silvio

Teste.

Digita o valor e dar ENTER.

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

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.

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

Em todos os testes feitos funcionou corretamente.

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

Realmente, não foi.
Teste assim:

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

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

Damasceno

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

Alguém testou ?

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.

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

" />

bom dia a todos.

eis as minhas formatações de valores.