[Resolvido]formulário somente com dados da semana atual

boa tarde meus amigos eu gostaria de um formulário para mostrar somente os vencimentos da semana
exemplo se hoje for segundo mostraria somente da semana feira se fosse quarta feira mostraria da segunda, terça, quarta
assim por diante eu até tentei colocar no critério da consulta mais se fosse segunda feira como eu citei o exemplo ele pegaria dados da outra semana passada



desde obrigado

Boa noite

Private Sub cmdweek_Click()
On Error Resume Next
Dim Hoje
Hoje = Weekday(Date)
Me!dtini = DateAdd("d", (Hoje * -1) + 2, TxData)
Me!dtfinal = DateAdd("d", 8 - Hoje, TxData)
If MsgBox("O Período Escolhido Compreende " & dtini & " a " & dtfinal & "", vbYesNo, "Contas a Pagar") = vbNo Then
Else

DoCmd.CancelEvent
Me.Recalc
End If

End Sub

ola boa noite Assis esse código eu tenho q colocar em um botão?
este txdata seria a data do vencimento
o meu esta dando erro

Marcelo

Quer postar a sua tabela ?

Aguardo

boa noite Assis eis aqui o exemplo

Marcelo

Apliquei aqui num exemplo que tinha. Veja se atende?

ola Assis bom dia problema resolvido ficou melhor que eu imaginei muito obrigado

Marcelo
Obrigado pelo retorno.

bom dia Assis estou utilizando o exemplo que você me ajudou, como eu divido minhas contas por semana gostaria se você pudesse me ajudar como verificar os débitos da semana seguinte? eu tentei fazer as mudanças aqui mais sem êxito



abraço e muito obrigado

vou dar como fechado obrigado

Marcelo

Na msg 7 postou a dizer que estava resolvido.

Na msg 9 disse que estava a utilizar, e pediu ajuda para dividir por conta..... Mas não postou para ser ajudado.

Poste o seu exemplo