Ola pessoal
tenho esse codigo para gerar parcelas num botao
Private Sub BtnGerarParcelas_Click()
Set db = CurrentDb()
Set rs = db.OpenRecordset("Tbl_ContasAreceber") ' abre a tabela contas a receber
Valor_Parcela = Me.txttotalvenda_Frm / Me.QtdeParcelas ' valor de cada parcela
For I = 1 To Me.QtdeParcelas ' Insere a parcela na tabela tbl_ContasAreceber
rs.AddNew
rs("CodTabVenda") = Me.CodVenda
rs("Parcelas") = I & "/" & Me.QtdeParcelas
rs("Valor_Parcela") = Valor_Parcela
rs("Dt_Vencimento") = DateAdd("m", I - 1, Me.Dt_1Parcela) 'Calcula o vencimentos das parcelas
rs.Update
Next
rs.Close
db.Close
Me.Frm_ContasArecebersub.Requery ' Atualiza Formulario de Parcelas
End Sub
simplemente nesse formulario novo de venda nao funciona esta dando erro (erro de complição ) variavel nao definida
mas tenho outro sistema de venda no formulario da venda funciona nao sei mais o que fazer preciso de uma ajuda
tenho esse codigo para gerar parcelas num botao
Private Sub BtnGerarParcelas_Click()
Set db = CurrentDb()
Set rs = db.OpenRecordset("Tbl_ContasAreceber") ' abre a tabela contas a receber
Valor_Parcela = Me.txttotalvenda_Frm / Me.QtdeParcelas ' valor de cada parcela
For I = 1 To Me.QtdeParcelas ' Insere a parcela na tabela tbl_ContasAreceber
rs.AddNew
rs("CodTabVenda") = Me.CodVenda
rs("Parcelas") = I & "/" & Me.QtdeParcelas
rs("Valor_Parcela") = Valor_Parcela
rs("Dt_Vencimento") = DateAdd("m", I - 1, Me.Dt_1Parcela) 'Calcula o vencimentos das parcelas
rs.Update
Next
rs.Close
db.Close
Me.Frm_ContasArecebersub.Requery ' Atualiza Formulario de Parcelas
End Sub
simplemente nesse formulario novo de venda nao funciona esta dando erro (erro de complição ) variavel nao definida
mas tenho outro sistema de venda no formulario da venda funciona nao sei mais o que fazer preciso de uma ajuda