[Resolvido]Filtrar por semana através de botão

Bom dia pessoal como ficaria este código em um formulário contínuo para identificar o pagamento de cada semana do mês


Estou tentando usar este código abaixo que peguei ai no fórum

Dim hoje
Hoje= weekday(date)
me.dtini =dateadd("d",(hoje -1)+2,txdata)
me.dtFinal =dateadd("d",8 - hoje,txdata)
como eu mudaria este código para funcionar na semana certa de cada mês no caso seria pegando a primeira semana do mês,a segunda semana,a terceira semana...

você quer identificar a qual semana pertence a data porque no ano são 52 semanas . você consegue extrair a semana usando a função format.
só não vou saber agora a forma correta da escrita
me.seu campo =format (me.suadata;w)

Boa noite scandinavo bom eu gostaria de exibir os dados da semana do mês atual


Exemplo o mês tem 4 semanas
Eu teria 4 botões
Semana 1
Semana 2
Semana 3
Semana 4
E através destes botões mostrasse os dados correspondente àquela semana

Desde já obrigado por ter me respondido

entendi você quer por um filtro em cada botão.
considerando que a semana se inicia no domingo até sábado. ou de 7 em 7 dias a partir do início do mês?

Bom dia scandinavo tudo bem?
Sim é exatamente isso mesmo se possível para que eu possa andar com minhas próprias pernas deixa o código comentado para eu entender melhor como ele funciona



Eu tenho esta parte do código na mensagem 01 eu fico perdido sem saber como funciona cada número deste e ate mesmo a diferença do sinais "+ e - "
"d",(hoje -1)+2,txdata

Desde já obrigado

Estou na correria mas achei um arquivo com filtros por datas que estou adaptando para o seu caso.

vai dando uma olhada e mais um exemplo com estudos das funções.


Retirado da ajuda do access

Exibindo datas específicas
O mês atual:

DateSerial(Year(Date()), Month(Date()), 1)

O próximo mês:

DateSerial(Year(Date()), Month(Date()) + 1, 1)

O último dia do mês atual:

DateSerial(Year(Date()), Month(Date()) + 1, 0)

O último dia do próximo mês:

DateSerial(Year(Date()), Month(Date()) + 2, 0)

O primeiro dia do mês anterior:

DateSerial(Year(Date()), Month(Date())-1,1)

O último dia do mês anterior:

DateSerial(Year(Date()), Month(Date()),0)

O primeiro dia do trimestre atual:

DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 1, 1)

O último dia do trimestre atual:

DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 4, 0)

O primeiro dia da semana atual (pressupondo-se que Domingo seja o primeiro dia):

Date() - WeekDay(Date()) + 1

O último dia da semana atual:

Date() - WeekDay(Date()) + 7

Boa noite scandinavo não ficou bom
Ficou ótimo melhor que eu imaginava muito obrigado

valeu pelo retorno

Boa noite scandinavo me desculpa em reabrir este tópico no dia que estava usando estava funcionando perfeitamente só que agora eu observei que ele sempre começa a conta do domingo da semana atual eu ate coloquei no primeiro botão para ele fazer a pesquisa na data inicial (pegar o primeiro dia do mês para ver se dava certo só que não estou conseguindo lidar com os demais)
da forma pegando a primeira semana do mês,a segunda,a terceira,a quarta seria a melhor forma,


O caminho que você me passou é o caminho certo do que não estou conseguindo adaptar

Desculpa pelo trabalho

Bom dia meu scandinavo Eis aqui o modelo do qual estou tentando adaptar os botões por semana este não é o que tem os botões semana1, semana 2, semana 3 Mas o modelo é o mesmo porque como estou no serviço encontrei este modelo mais antigo para enviar
Espero ter passado as informações correta.

Este ai tem os filtros mais eu gostaria de saber os gastos por semana



Abraço

A grande dificuldade do seu sistema é que tem mês com mais de 4 semanas


cole esta sql em uma consulta(no exemplo que te passei)
estou criando uma cmbox para mostrar as semanas disponíveis para criar um filtro


SELECT tbEntrada.DataEntrada, tbEntrada.Combustivel, tbEntrada.QntEntrada, Format([DataEntrada],"mmmm yyyy") AS Mes, DatePart("ww",[DataEntrada]) AS Semana, Format([DataEntrada],"w") AS DiaNaSemana, Format([DataEntrada],"dddd") AS Dia
FROM tbEntrada;

Muito obrigado farei isso vou testar ,
Já pensei será que não teria um código para numera somente a semana do mês atual.



Porque na semana passada no primeiro botão ele começou a contar assim 07/07/2019 a 13/07/2019
Agora já na semana seguinte o primeiro botão começou a contar do dia 14/07/2019 a 20/07/2019 sendo que era para contar destro deste mês sempre 07/07/2019 a 13/07/2019

Abraço

Veja ai......

coloquei 2 formulários

1 utiliza a data do sistema como filtro
2 utiliza uma txt para escolher o mês

O código esta comentado e o formulário tambem

'-------------------------------------
' Criado Scandinavo
' em 12/07/2019
'-------------------------------------

'Deleta as semanas criadas
CurrentDb.Execute "DELETE * FROM tmpSemana"

Dim DB As Database
Dim rs As DAO.Recordset

Set DB = CurrentDb()
Set rs = DB.OpenRecordset("tmpSemana") 'Abre a tabela para adicionar as semanas
'Variaveis
Dim PrimeiroDia As Date 'primeiro dia do mes
Dim UltimoDia As Date 'ultimo dia do mes
Dim PrimeiraSemana As Integer 'numero da primeira semana
Dim UltimaSemana As Integer 'numero da ultima semana
Dim Total As Integer 'total de semanas no mes
Dim S As Integer 'semana

'Pega os dias utilizando a data do sistema
PrimeiroDia = DateSerial(Year(Date), Month(Date), 1)
UltimoDia = DateSerial(Year(Date), Month(Date) + 1, 0)

'A partir da data identifica a semana
PrimeiraSemana = Format(PrimeiroDia, "ww")
UltimaSemana = Format(UltimoDia, "ww")

'Total de semanas
Total = UltimaSemana - PrimeiraSemana

'Adiciona as semanas na tabela temporaria para alimentar a cmbox
For S = 0 To Total 'de zero ate o total de semanas no mes
rs.AddNew 'adiciona
rs("NumeroSemana") = PrimeiraSemana + S
rs.Update
Next
rs.Close
DB.Close

Me.Form.Requery 'Atualiza o formulario
Me.cmbSemana.Requery 'Atualiza a cmbox

Boa tarde scandinavo agora ficou perfeito
Obrigado

valeu pelo retorno.