[Resolvido]Concatenando DMax no critério de DLookup Problema resolvido

Olá pessoal...

Sou novato no Forum MaximoAccess, apesar de sempre consultar vários tópicos fora do Forum pelas ferramentas tradicionais de busca.

Agradeço, portanto, as infindáveis colaborações!

Mas como sempre é tempo de aprendizado, segue a seguinte questão:

Tenho duas consultas:

1ª) Me.Valor = DMax("[Valor]", "Demonstrativo da despesa", "[Ano]= " & Me.BuscaAno.Column(1) & " And [Mês]=" & Me.BuscaMês.Value)

e

2ª) Me.Conta = DLookup("[Conta]", "Demonstrativo da despesa", "[Valor]=" & Me.Valor & "")

Ocorre que quanto o valor da 1ª consulta retorna valor com casas decimais com valor igual a zero (0,00) a 2ª consulta retorna ao valor esperado; mas quanto a 1ª consulta retorna valores decimais maiores que zero, a 2ª consulta não retorna valor.

Tentei formatar (FormatNumber; CCur; FormatNumber; defini variável do tipo Currency) o valor retornado da 1ª consulta mas não obtive êxito para no resultado da 2ª consulta.

Na expectativa de uma possível solução, antecipo agradecimentos.

Lucio

Ola Lucio

tente assim e veja se dá certo

Me.Valor = CDbl(DMax("[Valor]", "Demonstrativo da despesa", "[Ano]= " & Me.BuscaAno.Column(1) & " And [Mês]=" & Me.BuscaMês.Value))

Me.Conta = DLookup("[Conta]", "Demonstrativo da despesa", "[Valor]=" & Cdbl(Me.Valor))

ou assim

Me.Conta = DLookup("[Conta]", "Demonstrativo da despesa", "[Valor]=" & replace(Me.Valor,",","."))

Prezado clebergyn;

Agradeço seu interesse, mas não funcionou... Testei as duas formas e infelizmente não resultou no valor esperado.

Ainda persiste a situação inicial.

Continuarei tentando outras alternativas...

Ao pesquisar aqui no Forum constatei que há inúmeras demandas referentes à funçao DLookup e percebi que o problema, na maioria das vezes, é a sintaxe do critério de busca. Acho que este é o meu caso. Talvez eu não esteja compondo a consulta de forma adequada.

Obrigado pela sua colaboração!

Grato!

Amigo, seu problema esta aqui no criterio do 2 Dlookup
"[Valor]=" & Me.Valor & ""
Veja que vc diz que o campo da tabela Valor é Igual ao campo me.valor que foi preenchido no 1 Dlookup.

Ou seja so retornará dados se a Comparação for positiva...

10,00 = 10,00
10,00<>10,000000001

Então o que recomendo e verificar o campo Valor da tabela "Demonstrativo da despesa" a fim de identificar como os dados estão sendo armazenados la... Abra a tabela e modo normal, clique no campo Valor, e veja la quantos campos tem apos a virgula... Depois veja em modo designer esse campo e veja como ele esta formatado...

Então, formate o primeiro Dlookup de cordoo com o que estiver na tabela...


Se nao der certo, poste aqui o exemplo...

assim funcionou aqui
dim vlr
vlr = DMax("[Valor]", "Demonstrativo da despesa", "[Ano]= " & Me.BuscaAno.Column(1)  & " And [Mês]=" & Me.BuscaMês.Value)

Me.conta = DLookup("[Conta]", "Demonstrativo da despesa", "[Valor]=" & Replace(Vlr, ",", ".") & "")

a função replace é a mesma "substituir", ela substitue a "," pelo "." pois o sistema na tabela so enxerga numeros
com ponto, tipo 15.5 e nao 15,5

veja no anexo,
agora se o campo buscaano.column(1) e buscamês for tipo texto ai tem que colocar as ' '

Bem lembrado clebergyn O VBA separa as casas decimais por . e nao por , Esse pode realmente ser o problema do Amigo!

Aguardaremos o Retorno!!!

Prezados FabioPaes e clebergyn;

Seguindo a sugestão do FabioPaes ... fui conferir e constatei que o campo "Valor" na tabela "Demonstrativo da despesa" tem como Formato= Unidade monetária com Casa decimais= 2.

Aproveitei e conferi a mesma condição do campo "Valor" do formulário. Tudo ok! Agradeço sua colaboração, afinal; os detalhes podem emperrar uma ideia. Valeu!!


A solução do meu problema veio pela orientação do clebergyn.

Refiz a linha, conforme a última e valiosa sugestão e tudo passou a funcionar como esperado!!!!! Na minha primeira tentativa devo ter feito algo errado. Mas na segunda tentativa... tudo ok!! Obrigado clebergyn!!!

A função Replace substituiu o ponto "." pela vírgula ","; fazendo com que a comparação seja feita!!!

Aproveito para agradecer novamente ao clebergyn e ao FabioPaes, ambos foram prestativos!

Valeu!!!

Problema resolvido!!