[Resolvido]Filtrar Valores direto no Formulário

Boa tarde,

Como faço para filtrar valores direto no formulário, tipo, criei uma Listbox no meu formulário, contendo, Data, Posto, e Valor Total, e como critério para filtrar, coloquei campos com Data Inicial e Data Final, bem como um outro campo com as opções de Postos, e na consulta, coloquei os critérios abaixo, que funcionam perfeitamente, pórem, quando eu escolha um período de datas, e um posto, e coloco para filtrar, o valor dentre os critérios, não puxa corretamente, ou seja, continua somando o valor total, de todos os registros que eu tenho na minha tabela.



Entre [Forms]![1Frm_Lançamentos]![Data_Inicial] E [Forms]![1Frm_Lançamentos]![Data_Final]


Como "*" & [Forms]![1Frm_Lançamentos]![Posto] & "*"

=DSoma("Total_Geral";"Tbl_Lançamentos") - Este é o criitério que puxa o valor total, e o que eu quero é que traga o valor total de acordo com os critérios que eu colocar.


Obrigado desde já.

Posta ai......

Scandinavo,

segue o link. Obrigado!


https://www.dropbox.com/s/q8z07rw7svo3dfe/Exemplo%20555.accdb?dl=0

Pela list box esta funcionando formulário 1

mas eu criei este código que funciona ate a data 01/01/19 formulário 2

coloque a data 02/01/19 e teste não faz a soma corretamente. e se só colocar ela o código não encontra

Dim db As dao.Database
Dim rst As dao.Recordset
Set db = CurrentDb
'falta inserir no codigo o criterio Like para filtrar o posto
Set rst = db.OpenRecordset("Select * from Tbl_Lan?amentos where data1 between #" & Me.Data_Inicial & "# and #" & Me.Data_Final & "#")

rst.MoveFirst 'primeiro registro
Do While Not rst.EOF 'vai percorrer ate acabar
With rst
Me.txtSoma = Me.txtSoma + rst!Total_Geral
rst.MoveNext
End With
Loop


rst.Close: Set rst = Nothing
db.Close: Set db = Nothing

Scandivano, testei aqui, e a listbox ainda não está somando corretamente, coloquei um período qualquer, e no posto, coloquei Geral-Alles Blau, e não puxou nada.

se o posto não estiver no período não aparece mesmo. você fez o teste no exemplo que passei ou no seu. fiz uma alteração na caixa de texto que recebe a soma no formato.

Fiz o teste no seu exemplo.

Boa noite Ismael !!!

Em anexo

Saludos

FranklinJSP

Testei várias datas, e não filtrou nenhuma, ou seja, não apareceu o resultado da soma.

Bom día Ismael

Em anexo (esquecí o format na data)




Saludos

Ou pode usar 2 consultas.......

Muito obrigado à todos.

Resolvido!

Que bom!!!

Franklin a sua alteração ficou muito boa mas alterei esta linha para usar o like

Set rst = db.OpenRecordset("Select * from Tbl_Lan?amentos where data1 BETWEEN #" & Format(Me.Data_Inicial, "mm-dd-yyyy") & "# AND #" & Format(Me.Data_Final, "mm-dd-yyyy") & "# AND Unidade LIKE '*" & Me.Posto & "*'")

Boa tarde Scandinavo!

Quanto mais completo for o código, melhor.

Saludos