Olá a todos do fórum
estou usando o código abaixo, para gerar parcela, código baseado no exemplo do agravina aqui do fórum:
o que há de erra com o código, usava em um form e rodava legal, quando adaptei a outro form gerou o erro: (Variável não definida)
Ajudem por favor.
estou usando o código abaixo, para gerar parcela, código baseado no exemplo do agravina aqui do fórum:
- Código:
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim Parc As String
StrValorParc = Me.txtValorMês
For I = 1 To Me.txtParc
StrDateAdd = DateAdd("m", 1 * I, Me.txtData) ' não sei explicar
StrParc = I & "/" & Me.txtParc (está dando erro de varável não definida e marcando esta linha)
CurrentDb.Execute "INSERT INTO tblExemplo(CpNome, CpMatrícula, CpCompra,CpData,CpValor, CpConveniada, CpDataCompra)" _
& " Values(""" & Me.txtNomeCliente & """, """ & Me.txtCodCliente & """, """ & Me.txtDescricao.Value & """, """ & StrDateAdd & """, """ & StrValorParc & """, """ & Me.cboConveniada.Column(1) & """, """ & Me.txtData & """);"
Next I
'atualiza listbox das parcelas
Me.lstParcelas.Requery
Me.btnGerar.Enabled = False
End If
o que há de erra com o código, usava em um form e rodava legal, quando adaptei a outro form gerou o erro: (Variável não definida)
Ajudem por favor.