[Resolvido]Erro ao gerar as Parcelas

Ola amigos,

Estou migrando meu bd para Mysql na web , porém tenho um código para gerar parcelas e o mesmo não está funcionando, ex: se mando gerar 12 parcelas ele gera a primeira e as demais 11 parcela ele esta repetindo os dados da primeira parcela.. lembrando que na base local está normal esse erro me da apenas no banco web.

3 1 65 01/06/2020 0
3 1 65 01/06/2020 0
3 1 65 01/06/2020 0
3 1 65 01/06/2020 0
3 1 65 01/06/2020 0
3 1 65 01/06/2020 0
3 1 65 01/06/2020 0
3 1 65 01/06/2020 0
3 1 65 01/06/2020 0
3 1 65 01/06/2020 0
3 1 65 01/06/2020 0
3 1 65 01/06/2020 0

Segue me código para gerar as parcelas :

Código:

Private Sub cmdParcelas_Click()

    If Me.curValor <= 0 Then 'Se valor do contrato for <= 0
        Exit Sub
    End If
   
    'Salva o contrato
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
   
    Dim db As Database, rs As Recordset
    Dim ValParc, valdes, valmen As Currency, i As Byte
   
       
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("tbl_Parcelas") 'Abre tbl_Parcelas
    ValParc = Me.curValor '/ Me.bytParcelas 'Valor de cada Parcela
    valdes = Me.TotDesc '/ Me.bytParcelas  'Valor de cada Parcela
    valmen = Me.TotMens '/ Me.bytParcelas  'Valor de cada Parcela
       
    For i = 1 To Me.bytParcelas  'Insere as Parcela na Tabela
        rs.AddNew
        rs("lngNumContrato") = Me.lngNumContrato
        rs("bytParcela") = i
        rs("curValor") = ValParc
        rs("valDesc") = valdes
        rs("valMens") = valmen
        'Calcula as datas de Vencto através da função DateAdd()
        rs("dtVencimento") = DateAdd("m", i - 1, Me.dtContrato)
        rs.UPDATE
    Next
               
    rs.Close
    db.Close
    Me.subfrm_Parcelas.SetFocus 'Foco no SubForm Parcelas
    Me.cmdParcelas.Enabled = False 'Desativa o botão Parcelas
    Me.subfrm_Parcelas.Requery  'Atualiza o SubForm Parcelas

Ola,

Topico resolvido estava faltando um campo Id autonumerico na tabela Parcelas por isso gerava o erro..

Obdo

Olá Fábio,

Obrigado pelo retorno, o fórum agradece.

Abraço