[Resolvido]gerar parcelas não atualiza banco

Boa tarde !! Esta e minha primeira vez entao não sei se é aqui que devo postar minha duvida, mas caso não seja por favor me corrijam.

Peguei o exemplo que achei aqui sobre parcelas, e ele funciona ate a mensagem de "Parcelas geradas com sucesso!", mas quando olho na tabela nada foi feito, peço a ajuda pois não tenho a menor ideia do que fazer !

Private Sub Comando46_Click()
On Error Resume Next
Dim str As String
Dim i As Byte
For i = 1 To Me!QTDMESES.Value
CurrentDb.Execute "INSERT INTO tbalugueis (num_parcela, datavencimento, valor,cod_contrato ) VALUES (" & i & ",'" & DateAdd("m", i, Me!txtData) & "','" & Me!VLALUGUEL & "','" & Me!INICCONTRATO & "','" & Me!CODCONTRATO & "' )"
Next i
Me.TimerInterval = 1200
MsgBox "Parcelas geradas com sucesso!"
Me.TimerInterval = 0


End Sub

Desde ja agradeço a atenção

Olá, seja bem vindo ao fórum!

As salas de Repositórios de destinam exclusivamente à postagem de exemplos prontos. Dúvidas devem ser postadas nas salas corretas ao tipo da dúvida. Se for uma dúvida referente à tabelas, deves postar na sala Tabelas. Eu movi o seu tópico para uma sala mais correta.

obrigado !!

Olhe o exemplo abaixo e veja se adaptando serve para você. Está no botão de um formulário em que recebo: nº parcelas, responsável, valor da compra, 1º vencimento e outros campos mais, é feito o cálculo das parcelas e grava direitinho.
Veja se ajuda

Abraços


Dim StrResponsavel
Dim StrContrato As Long
Dim i, strPrestacoes As Integer
Dim strValor As Currency
Dim strData As Date

strPrestacoes = [Forms]![TbContratoAux para união Form]![Nº Parcelas]
StrResponsavel = [Forms]![TbContratoAux para união Form]![Responsável]
StrContrato = [Forms]![TbContratoAux para união Form]![Contrato]
strValor = [Forms]![TbContratoAux para união Form]![Valor Compra] / strPrestacoes
strData = [Forms]![TbContratoAux para união Form]![Pri_Vencimento]

If Prestação = "" Or IsNull(Prestação) Or Prestação = "0" Then
For i = 1 To strPrestacoes
DoCmd.GoToRecord , , acNewRec
Me.Prestação = i
Me.Valor = strValor
Me.Contrato = StrContrato
Me.Responsável_Pagto = StrResponsavel
Me.Vencimento = DateAdd("m", i - 1, strData)
Next
Else
MsgBox "Já foram calculadas as prestações deste contrato." _
& " Para calcular novamente tem que apagar as atuais.", vbCritical, "Erro"
End If

Me desculpe a intromissão, mais quero compartilhar um código que me ajudou muito.

Código:


Dim rs As DAO.Recordset
Dim db As Database
Dim NumeroParcela As Currency, I As Byte
Dim DataVencimento As String

If IsNull(Me!txtDataEmissao) Or IsNull(Me!txtDataVencimento) Then
MsgBox "Há campos de preenchimento obrigatório em branco. Por favor, verifique!!", vbCritical, "Problemas com dados"
Dt_Emissao = ""
Exit Sub
End If

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("tbl_Receitas") 'Abre tabela
    NumeroParcela = Me.txtParcela 'Valor de cada parcela
    DataVencimento = Me.txtDataVencimento 'Data da primeira marcela
   
    For I = 1 To Me.txtParcela 'Insere as Parcela na Tabela
        rs.AddNew
        rs("DataEmissao") = Me.txtDataEmissao
        rs("DataVencimento") = DateAdd("m", I - 1, Me.txtDataVencimento)
        rs("Documento") = Me.txtDocumento
        rs("CodigoConta") = Me.txtCodConta
        rs("DescConta") = Me.txtDescConta
        rs("CodigoCliente") = Me.txtCodigoCliente
        rs("NomeCliente") = Me.txtNome
        rs("CodigoPlanoContas") = Me.txtCodCentro
        rs("PlanoContas") = Me.txtDescCentro
        rs("DescReceita") = Me.txtDescricao
        rs("ValorTotal") = Me.txtVlrTotal
        rs("NumeroParcela") = "" & I & "/" & Me.txtParcela
        rs("ValorParcela") = Me.txtVlrParcela
        rs("Competencia") = "REF. AO MÊS: " & Format(DateAdd("m", I - 1, Me.txtCompetencia), "mm/yyyy")
        rs("Situacao") = Me.txtSituacao
        rs("DataPagamento") = Me.txtDataPagamento
        rs("ValorPago") = Me.txtValorPago
       
        rs("CodigoEmpresa") = Me.txtCodigoEmpresa
        rs("NomeEmpresa") = Me.txtNomeEmpresa
        rs("UsuarioAdd") = Me.txtUsuario
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    rs.Update
   
   
    Next
    rs.Close
    db.Close


agradeço a ajuda mas vou postar o arquivo para ver se alguem consegue entender, pois tenho certeza que não estou me espressando de forma correta.

        mas uma vez obrigado

Alex

Teu anexo está com objetos faltando.

Está faltando subformulário.

Diga onde está o código, acho que é justamente no formulário que falta.

Noob

Assim desculpe esta no formulario contrato e no botao comando46

brigadao alex

Alex

Veja aqui um exemplo de parcelamento.

Abraços

Noob

obrigado pela ajuda de todos o problema esta solucionado.

Opa! Que ótimo!

Valeu o retorno!

Boa sorte!

Noob