geração de parcelas

[jcarloscmp]

Estou tentando incrementar um código que até então funciona perfeitamente no parcelamento, algo básico e simples que adaptei, neste código:
Private Sub btnGerar_Click()
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim Parc As String

StrValorParc = Me.txtValor_Total
For I = 1 To Me.txtParc
StrDateAdd = DateAdd("m", I, Format(Me.txtData, "dd/mm/yyyy"))
StrParc = I & "/" & Me.txtParc
CurrentDb.Execute "INSERT INTO TBL_parcelamento_vendas(unidade_ctr,data_vcto,valor_pc)" _
               & " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """);"
               
Next I
Me.lstParcelas.Requery
End Sub


preciso que na medida que forem sendo criadas as parcelas seja preenchido o campo "descr_parc com a palavra "mensal" nesta mesma tabela, meus conhecimentos são bem limitados com certeza para o pessoal do forum será facil ..rsrs

 

[Alyson Ronnan Martins]

Bom dia.

Testa o seguinte comando:

CurrentDb.Execute "INSERT INTO TBL_parcelamento_vendas(unidade_ctr,data_vcto,valor_pc, descr_parc)" _
               & " Values(" & Me.txtDescricao.Value & ", #" & Format(StrDateAdd, "mm/dd/yyyy") & "#, " & StrValorParc & ", 'Mensal');"