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 :
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