[Resolvido]Repetições - inserido dados na tabela com o for mas repetindo alguns dados

Olá,

Estou enfrentando um problema pra gerar um código.
Preciso criar um comando que insira registros na tabela da seguinte forma:

Livro | Folha | Frent/Verso | Matrícula
-----------------------------------------------
A1--------1------------F----------1001
A1--------1------------F----------1002
A1--------1------------V----------1003
A1--------1------------V----------1004
A1--------2------------F----------1005
A1--------2------------F----------1006
A1--------2------------V----------1007
A1--------2------------V----------1008

Só que cada lote a ser gerador tem em média 1200 registros, utilizando o
for i = matricula_inicial to matricula_final
rs.addnew
rs("livro") = me.livro
rs("folha") = me.???
rs("fv") = "F"
rs("matricula") = i

rs.update

a sequencia da folhas não se repete, apenas gera 1, 2, 3, 4...

Me ajudem.

Desde já agradeço.

Estou utilizando esse código:

Código:

Private Sub btnGerar_Click()
Dim DB As DAO.Database
Dim rs As DAO.Recordset

Dim LIVRO As String
Dim fls As Integer
Dim ini As Integer
Dim final As Integer
Dim contador As Integer

contador = 0

LIVRO = Me.txtlivro
fls = Me.txtFolhas
ini = Me.txtRI
final = ini + fls - 1


Set DB = CurrentDb()
Set rs = DB.OpenRecordset("reg")


For i = ini To final

    rs.AddNew
    rs("livro") = Me.txtlivro
    rs("folha") = contador + 1
    rs("f-v") = "F"
    rs("matricula") = i
    rs.Update
    
    
Next


rs.Close
DB.Close


End Sub

Eis o banco.

Código:

Dim DB As DAO.Database
Dim rs As DAO.Recordset

Dim LIVRO As String
Dim fls As Integer
Dim ini As Integer
Dim final As Integer
Dim intContador1 As Integer
Dim bytContador2 As Byte
Dim booFV As Boolean

LIVRO = Me.txtlivro
fls = Me.txtFolhas
ini = Me.txtRI
final = ini + fls - 1

booFV = True


Set DB = CurrentDb()
Set rs = DB.OpenRecordset("reg")

For i = ini To final
   
    If bytContador2 Mod 2 = 0 Then booFV = Not booFV
       
    If bytContador2 Mod 4 = 0 Then
        intContador1 = intContador1 + 1
        bytContador2 = 0
    End If

    rs.AddNew
        rs("livro") = Me.txtlivro
        rs("folha") = intContador1
        rs("f-v") = IIf(booFV, "V", "F")
        rs("matricula") = i
    rs.Update
   
    bytContador2 = bytContador2 + 1
   
Next

Call rs.Close: Set rs = Nothing
Set DB = Nothing

Não esqueça o resolvido.

Como é maravilhoso poder contar com profissionais extraordinários.

Muito Obrigado!

Rosivaldo, faltou o resolvido.

Aguardamos...