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
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