ERRO DE VARIAVEL Ãƀ™A€ŠÂ¬Ã‹Å“ DEFINIDA.
Estou fazendo um programa e preciso gerar as parcelas para pagamento de um determinado valor, so que quando executo, o VB mi imforma q a variável "i" à ± está definida.
Dim mes As Integer
Dim ano As Integer
Dim data As String
mes = Format(Now, "mm")
ano = Format(Now, "yy")
For i = 1 To Val(txtNúmeroParcelas.Text)
mes = mes + 1
If mes > 12 Then
mes = 1
ano = ano + 1
End If
dia1 = Format(Now, "dd")
dia = Verifica_dia(dia1, mes)
data = dia & "/" & Format(mes, "00") & "/" & Format(ano, "00")
parcela = CCur(txtValor.Text) / Val(txtNúmeroParcelas.Text)
Data2.Recordset.AddNew
Data2.Recordset.Fields(1) = CLng(txtCódigo.Text)
Data2.Recordset.Fields(2) = Format(CDate(data), "dd/mm/yy")
Data2.Recordset.Fields(3) = CCur(parcela)
Data2.Recordset.Fields(4) = False
Data2.Recordset.Update
Next
Como posso resolver este problema?
Desde já agradeço,
Pedro [S32]
Dim mes As Integer
Dim ano As Integer
Dim data As String
mes = Format(Now, "mm")
ano = Format(Now, "yy")
For i = 1 To Val(txtNúmeroParcelas.Text)
mes = mes + 1
If mes > 12 Then
mes = 1
ano = ano + 1
End If
dia1 = Format(Now, "dd")
dia = Verifica_dia(dia1, mes)
data = dia & "/" & Format(mes, "00") & "/" & Format(ano, "00")
parcela = CCur(txtValor.Text) / Val(txtNúmeroParcelas.Text)
Data2.Recordset.AddNew
Data2.Recordset.Fields(1) = CLng(txtCódigo.Text)
Data2.Recordset.Fields(2) = Format(CDate(data), "dd/mm/yy")
Data2.Recordset.Fields(3) = CCur(parcela)
Data2.Recordset.Fields(4) = False
Data2.Recordset.Update
Next
Como posso resolver este problema?
Desde já agradeço,
Pedro [S32]
Faça no inicio do procedimento
Dim i as integer
Dim i as integer
Isto mesmo
E por favor não tire a clásula option explicit do form.
E por favor não tire a clásula option explicit do form.
Tópico encerrado , respostas não são mais permitidas