Jump to content
Fórum Script Brasil

jcarloscmp

Membros
  • Content Count

    1
  • Joined

  • Last visited

Community Reputation

0 Neutro

About jcarloscmp

  1. 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.txtDescri
×
×
  • Create New...