[Resolvido]Filtro em botão opção.

Ola amigos,tenho esse anexo que foi feito pelo amigo Elias(formiga) e gostaria de completar os filtros que estão faltando nos botões de opção do formulário ComprasCliente.
Esta funcionando os filtros,Esta Semana,Este Mês e Este Ano.
Para os outros não estou conseguindo,e o filtro pela data também não ta dando certo.
Alguém poderia dar uma olhada.

Abç a todos.

https://dl.dropboxusercontent.com/u/90217826/Anexo.rar

Boa tarde!

Cara, não vou conseguir resolver o teu problema, sou novo nesse mundo do Access. Queria saber: como tu faz para mesclar os filtros Cliente + Vendedor + Produto?
Abri um tópico justamente com esta pergunta...

Abraço!

Kaynan a noite resolvo isso agora ta calor pra caramba aqui no rj rsrs

Eita,aqui ta uns 19 graus ta loco de bão. hehheh
Até +.

Muito quente por aí o VBA

Por aqui 2/3 graus a noite.
Aceitam troca ? ehehehehehe

Mas bah tchê,acho que vou ficando por aqui mesmo.kkkkkk

Ola kainan
Se é o que entendi é isso.

Ontem!

On Error Resume Next
Me.btnAno = False
Me.btnMes = False

Dim Hoje
Hoje = Weekday(Date)
Me!comb_inicio = Date - 1
Me!Comb_data = Date - 1
Me.ListaCompras.Requery
Call COMB_STATUS_AfterUpdate
Me.txtComDesconto = Me.txtResultado - txtDesconto
Call SomaLista


Pesquisa hoje:

On Error Resume Next
Me.btnAno = False
Me.btnMes = False

Dim Hoje
Hoje = Weekday(Date)
Me!comb_inicio = Date
Me!Comb_data = Date
Me.ListaCompras.Requery
Call COMB_STATUS_AfterUpdate
Me.txtComDesconto = Me.txtResultado - txtDesconto
Call SomaLista

Grande Lupércio,é isso mesmo amigo, e para a Semana Passada e o Mês Anterior como seria.
Abç.

Teste mês anterior:

On Error Resume Next
Me.btnAno = False
Me.btnMes = False

Dim Hoje
Hoje = Weekday(Date)
Me!comb_inicio = DateSerial(Year(Date), Month(Date), -1)
Me!Comb_data = DateSerial(Year(Date), Month(Date), -1)
Me.ListaCompras.Requery
Call COMB_STATUS_AfterUpdate
Me.txtComDesconto = Me.txtResultado - txtDesconto
Call SomaLista

Teste semana passada:

On Error Resume Next
Me.btnAno = False
Me.btnMes = False

Dim Hoje
Hoje = Weekday(Date)
Me!comb_inicio = Ano(Data()) * 53 + PartData("ss", Data()) - 1
Me!Comb_data = Ano(Data()) * 53 + PartData("ss", Data()) - 1
Me.ListaCompras.Requery
Call COMB_STATUS_AfterUpdate
Me.txtComDesconto = Me.txtResultado - txtDesconto
Call SomaLista

Mês anterior Kainan:

On Error Resume Next
Me.btnAno = False
Me.btnMes = False

Dim Hoje
Hoje = Weekday(Date)
Me!comb_inicio = Ano(Data()) * 12 + PartData("m", Data()) - 1
Me!Comb_data = Ano(Data()) * 12 + PartData("m", Data()) - 1
Me.ListaCompras.Requery
Call COMB_STATUS_AfterUpdate
Me.txtComDesconto = Me.txtResultado - txtDesconto
Call SomaLista

Lupércio não deu certo a data inicio,pois teria que aparecer todas as vendas do mes anterior,ou seja desde o dia 01/12/2015 até 31/12/ 2015,e aparece inicio 30/12/2015 e final tambem.

Adapte ai:

>=DateSerial(Year(Date());Month(Date())-1;1) And <=DateSerial(Year(Date());Month(Date())-1;31)

On Error Resume Next
Me.btnAno = False
Me.btnMes = False

   Dim Hoje
   Hoje = Weekday(Date)
   Me!comb_inicio = Ano(Data()) * 12 + PartData("m", [Data])
   Me!Comb_data = Ano(Data()) * 12 + PartData("m", Data()) - 1
   Me.ListaCompras.Requery
   Call COMB_STATUS_AfterUpdate
 Me.txtComDesconto = Me.txtResultado - txtDesconto
Call SomaLista

Assim kainan
Mês anterior

On Error Resume Next
Me.btnAno = False
Me.btnMes = False

Dim Hoje
Hoje = Weekday(Date)
Me!comb_inicio = DateSerial(Year(Date), Month(Date) - 1, 1)


Me!Comb_data = DateSerial(Year(Date), Month(Date) - 1, 31)
Me.ListaCompras.Requery
Call COMB_STATUS_AfterUpdate
Me.txtComDesconto = Me.txtResultado - txtDesconto
Call SomaLista

Vou ver

Agora deu certinho,falta Semana Passada .

Teste:
semana passada:

On Error Resume Next
Me.btnAno = False
Me.btnMes = False

   Dim Hoje
   Hoje = Weekday(Date)
   Me!comb_inicio = DateAdd("d", (Hoje * -1) + 2, Date) - 7
   Me!Comb_data = DateAdd("d", 8 - Hoje, Date) - 7
   Me.ListaCompras.Requery
   Call COMB_STATUS_AfterUpdate
 Me.txtComDesconto = Me.txtResultado - txtDesconto
Call SomaLista

Lupércio certinho o da Semana Passada.

Olha eu tenho esse código para a opção Este Mês e da errado.


Este Mês

Me.btnSemana = False
Me.btnAno = False
Me!comb_inicio = CDate("01/" & Month(Date) & "/" & Year(Date))
Me!Comb_data = DateAdd("d", -1, DateAdd("m", 1, Date))
Me.ListaCompras.Requery
Call SomaLista

e tenho esse para Este Ano,que também tem algo errado.
Teria que apresentar 01/01/2016 a 31/12/2016

Me.comb_inicio = DateSerial(Year(Date), 1, 1)
Me.Comb_data = Date
Me.ListaCompras.Requery
Call SomaLista

E se puder comentar os códigos pra mim entender esses bixo rsrsr

Ola pessoal,pra filtrar com o botão de opção "Este Mês" e "Este Ano"não ta dando certo,alguém daria uma olhadinha neste exemplo em anexo.
Abç.


https://dl.dropboxusercontent.com/u/90217826/Jars.rar

Kaynan

Teste

https://dl.dropboxusercontent.com/u/8169944/Assis-Jars.accdb

Hoje, ontem, semana, mês e ano

Alterei algumas datas .....na tabela.

Perfeito Assis,é isso mesmo,obrigado por mais esse aprendizado.
Obrigado ao Lupércio por ter ajudado também.
Abç a todos. Valeu.