[Resolvido]gerar Parcelas

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

Adicione

Código:

dim db as dao.database
dim rs as dao.recordset

Ola Amigo DamascenoJr.

era o Option Explicit apos tirar gerou as parcelas vou testar a sua dica tambem

muito obrigado

O fórum agradece o retorno. Sucesso.