MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

Início Procurar
Pesquisar
Resultados por: Mensagens Tópicos
Pesquisa avançada
Registar Entrar

Você não está conectado. Conecte-se ou registre-se

5 participantes

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

Conectado

Kaynan: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 2974
Registrado : 09/04/2012

Mensagem nº1

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

Mensagem Kaynan 7/1/2016, 03:21

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

Gabriel Brunichaki

Gabriel Brunichaki: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 138
Registrado : 11/12/2015

Mensagem nº2

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

Mensagem Gabriel Brunichaki 7/1/2016, 16:19

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!

formiga10x: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 818
Registrado : 11/09/2013

Mensagem nº3

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

Mensagem formiga10x 7/1/2016, 18:01

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

.................................................................................
Abraço
Formiga10x

Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.

“Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
Formiga10x

"Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
- Maurice Vicent Wilkes

Conectado

Kaynan: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 2974
Registrado : 09/04/2012

Mensagem nº4

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

Mensagem Kaynan 7/1/2016, 18:28

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

Assis: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009

Mensagem nº5

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

Mensagem Assis 7/1/2016, 19:00

Muito quente por aí o VBA

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

.................................................................................
*** Só sei que nada sei ***

Conectado

Kaynan: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 2974
Registrado : 09/04/2012

Mensagem nº6

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

Mensagem Kaynan 7/1/2016, 20:11

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

Lupércio: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1143
Registrado : 07/05/2011

Mensagem nº7

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

Mensagem Lupércio 8/1/2016, 01:08

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

.................................................................................
Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos. lol!

lol!

Rolling Eyes

Conectado

Kaynan: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 2974
Registrado : 09/04/2012

Mensagem nº8

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

Mensagem Kaynan 8/1/2016, 01:44

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

Lupércio: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1143
Registrado : 07/05/2011

Mensagem nº9

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

Mensagem Lupércio 8/1/2016, 02:02

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

.................................................................................
Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos. lol!

lol!

Rolling Eyes

Lupércio: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1143
Registrado : 07/05/2011

Mensagem nº10

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

Mensagem Lupércio 8/1/2016, 02:11

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

.................................................................................
Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos. lol!

lol!

Rolling Eyes

Lupércio: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1143
Registrado : 07/05/2011

Mensagem nº11

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

Mensagem Lupércio 8/1/2016, 02:13

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

.................................................................................
Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos. lol!

lol!

Rolling Eyes

Conectado

Kaynan: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 2974
Registrado : 09/04/2012

Mensagem nº12

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

Mensagem Kaynan 8/1/2016, 02:20

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.

Lupércio: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1143
Registrado : 07/05/2011

Mensagem nº13

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

Mensagem Lupércio 8/1/2016, 02:26

Adapte ai:

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

.................................................................................
Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos. lol!

lol!

Rolling Eyes

Lupércio: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1143
Registrado : 07/05/2011

Mensagem nº14

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

Mensagem Lupércio 8/1/2016, 02:32

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

.................................................................................
Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos. lol!

lol!

Rolling Eyes

Lupércio: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1143
Registrado : 07/05/2011

Mensagem nº15

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

Mensagem Lupércio 8/1/2016, 02:38

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

.................................................................................
Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos. lol!

lol!

Rolling Eyes

Conectado

Kaynan: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 2974
Registrado : 09/04/2012

Mensagem nº16

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

Mensagem Kaynan 8/1/2016, 02:43

Vou ver

Conectado

Kaynan: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 2974
Registrado : 09/04/2012

Mensagem nº17

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

Mensagem Kaynan 8/1/2016, 02:52

Agora deu certinho,falta Semana Passada .

Lupércio: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1143
Registrado : 07/05/2011

Mensagem nº18

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

Mensagem Lupércio 8/1/2016, 03:55

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

.................................................................................
Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos. lol!

lol!

Rolling Eyes

Conectado

Kaynan: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 2974
Registrado : 09/04/2012

Mensagem nº19

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

Mensagem Kaynan 8/1/2016, 13:50

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

Conectado

Kaynan: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 2974
Registrado : 09/04/2012

Mensagem nº20

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

Mensagem Kaynan 9/1/2016, 14:50

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

Assis: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009

Mensagem nº21

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

Mensagem Assis 9/1/2016, 16:25

Kaynan

Teste

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

Hoje, ontem, semana, mês e ano

Alterei algumas datas .....na tabela.

.................................................................................
*** Só sei que nada sei ***

Conectado

Kaynan: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 2974
Registrado : 09/04/2012

Mensagem nº22

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

Mensagem Kaynan 9/1/2016, 16:37

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

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº23

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

Mensagem Conteúdo patrocinado

Tópicos semelhantes

» [Resolvido]Filtro com opção
» [Resolvido]Filtro SubForm usando Botao de Opção
» [Resolvido]Utilizar a opção filtro ao abrir o formulário
» Filtro de Opção
» [Resolvido]Filtro com grupo de opção

Data/hora atual: 7/5/2024, 19:10