[Resolvido]Gerar parcelas

Pessoal estou criando um fórmulario que gera os valores de aluguel a receber pelo período de vigência do contrato. Criei o código que chama a tabela das parcelas, porém, quando executo sempre dá um erro de compilação "uso invalido da propriedade".

O código que estou utilizando é este:

Set db = CurrentDb()
Set rs = db.OpenRecordset("ContasReceber") 'Abre a tabela ContasReceber

ValorReceber = Me.Valor_Aluguel - Me.Tx_de_Condominio - Me.Tx_de_Locação 'Valor do repasse

For I = 1 To Me.PeriodoMeses 'Insere as Parcela na Tabela ContasReceber

rs.AddNew
rs(Código_Contrato) = Me.Código
rs(Parcela) = I
rs(ValorReceber) = Primeiro_Repasse
rs(Vencimento) = DateAdd("m", I - 1, Me.Vencimento_Aluguel) 'Calcula as datas de Vencto através da função DateAdd()

rs.Update

Next
rs.Close
db.Close
Me.FormContasReceber_Rótulo 'Atualiza o SubForm

Ola seja bem vindo ao forum.

Os nomes dos campos recordset têm de estar dentro de aspas duplas, assim;

Código:

rs.AddNew
rs("Código_Contrato") = Me.Código
rs("Parcela") = I
rs("ValorReceber") = Primeiro_Repasse
rs("Vencimento") = DateAdd("m", I - 1, Me.Vencimento_Aluguel) 'Calcula as datas de Vencto através da função DateAdd()

up

Bom dia!
Observas-te a mensagem número 2 do JPaulo?

Eu adoro quando o Access me dá essas mensagens de erro, mas geralmente ele arrebata o programador para a tela de apuração e mostra qual o código que gerou o erro. Você sabe me dizer qual a linha que o Access apontou o problema?

Geralmente eu uso a opção Option Explicit na programação para não esquecer de definir as variáveis pelo comando DIM, tipo

Dim dbs as database
Dim rst as recorset
Dim ValorAReceber as currency

Obrigado.