[Resolvido]Movimentos Periódicos

Boa tarde Amigos

Tenho este código abaixo para registar movimentos mensais.

Código:

Dim I As Integer
   
   For I = 1 To Me.Mensalidades.Value
         
       rs.AddNew
       
       rs("DataMovimento") = DateAdd("m", I - 1, Me.txtHireDate)
       rs("ValorMovimento") = Me.Valor
       rs("idcaixa") = Me.txtidcaixa
       rs("Historico") = Movimentos
       rs("Rubrica") = Rubrica
       rs("Entidade") = Entidade
       rs("Doc") = Nz(DMax("Doc", "Lançamentos Consulta", "idcaixa = " & Me.txtidcaixa & " and " & "Historico='" & Me.Movimentos & "' AND " & "RUBRICA ='" & Me.Rubrica & "'AND " & "Entidade ='" & Me.Entidade & "'")) + 1


Por exemplo: Pago renda de casa todos os dias 8 de cada mês com um valor XXXXX.
Então no inicio do Ano eu lanço os movimentos da renda (12) só de uma vez, e todos os meses eles aparecem na minha tabela de movimentos.

O meu problema está na numeração dos movimentos:

Com a linha abaixo vou buscar o último e somo +1, até aqui tudo bem:

Código:

rs("Doc") = Nz(DMax("Doc", "Lançamentos Consulta", "idcaixa = " & Me.txtidcaixa & " and " & "Historico='" & Me.Movimentos & "' AND " & "RUBRICA ='" & Me.Rubrica & "'AND " & "Entidade ='" & Me.Entidade & "'")) + 1

O primeiro fica certo. Exemplo (1)

Mas os movimentos seguintes vai dar sempre o mesmo numero. Sempre (1), e devia das (2), (3) etc.

Obrigado

Boa noite

Resolvi assim.

rs("Doc") = (Nz(DMax("Doc", "Lançamentos Consulta", "idcaixa = " & Me.txtidcaixa & " and " & "Historico='" & Me.Movimentos & "' AND " & "RUBRICA ='" & Me.Rubrica & "'AND " & "Entidade ='" & Me.Entidade & "'")) + 1) + I

Olá Assis,

Obrigado pelo retorno o fórum agradece.

Abraço