Relatório em sequencia por data

[PauloMaia]

Eu estou fazendo assim...

E quase esta dando certo /// o problema é que o relatório esta gerando para primeira data e para a ultima e pulando as do meio /// e repetindo essas duas datas um monte de vezes , se esse for o caminho então preciso ajustar meu While

---

I'm doing this ...


And almost this workin '/// the problem is that the report is generating for the first date and for the last and jumping the middle /// and repeating these two dates a lot of times, if that is the way then I need to adjust my While

Private Sub btn_03_Click()
Me!datas = Me!txtDatIni
Dim iniDate As Date
Dim endDate As Date

iniDate = Me!txtDatIni
endDate = Me!txtDatFim

If VerData(txtDatIni, txtDatFim) Then
If Not IsNull(txtDatIni) And Not IsNull(txtDatFim) Then

Do While iniDate < endDate
DoCmd.OpenReport "ReceitasVsDespesas-D", acViewPreview
iniDate = DateAdd("d", 1, iniDate)


Me!datas = iniDate
Loop

End If
End If

End Sub

my 3 sub reports are looking at the form field === Me! dates


This field should change every lup and the report is generated every time based on that date of this field of form ......


And this lup there is stopping a date before, would have to stop when it was equal to txtDatFim


Need help ...

---

os meus 3 sub relatórios estão olhando para o campo do formulario === Me!datas

Esse campo deveria mudar a cada lup e o relatório ser gerado a cada vês baseado nessa data desse campo do form ......

E esse lup ai esta parando uma data antes, teria que parar quando fosse igual a txtDatFim

Preciso de Ajuda ...

[Bulzie]

If you need it to include the end date, use <= so Do While iniDate < = endDate

Also you said your dates look at Me!dates but in your code it is Me!datas

[PauloMaia]

sim Me!datas