Preechimento campo observação

Boa Tarde

Tenho uma tabela Despesa onde tem o campo Observação.
E tenho o formulario onde tenho as opções "Pago" e "A Pagar".
Este meu formulário ele faz o parcelamento da despesas.
O seguinte:
Quando eu fazer um parcelamento o campo subescreva e a opção fique "A pagar". Exemplo:
Valor...... 50,00
NumeroParc. 12
Observação. Parcela:1/12
.............................
Valor...... 50,00
NumeroParc. 12
Observação. Parcela:2/12
.............................
E assim por diante.

E quando eu clicar na opção "Pago" ele subscreva.Exemplo:
Valor...... 50,00
NumeroParc. 12
Observação. Parcela:1/12(Pago)
.............................
Valor...... 50,00
NumeroParc. 12
Observação. Parcela:2/12(Pago)
.............................
Valor...... 50,00
NumeroParc. 12
Observação. Parcela:3/12(Pago)
.............................


Obrigado

Coloque um campo de nome Situação para colocar o Pago.

Como assim não entendi, você pode especificar?

Cole aqui o codigo que está a utilizar para gerar o parcelamento.

Esse daqui é o código:

Código:


DoCmd.Hourglass True

If MsgBox("Deseja gerar as parcelas?", vbYesNo, "Gerar parcelas") = vbYes Then

Dim i As Integer
Dim StrDateAdd As Date
Dim StrValorParc
Dim Parc As String
StrValorParc = Me.txtValorTotal
For i = 1 To Me.txtParc
StrDateAdd = DateAdd("m", i, Format(Me.txtData, "dd/mm/yyyy"))
StrParc = i & "/" & Me.txtParc

CurrentDb.Execute "INSERT INTO CadastroReceita " & _
"(CaixaOrigem, " & _
"Documento, " & _
"DataMovimento, " & _
"Receita, " & _
"Cliente, " & _
"[ValorParc], " & _
"Vencimento, " & _
"NParcelas, " & _
"Observações)" & _
" Values('" & _
Me.CaixaOrigem & "','" & _
Me.Documento & "','" & _
Me.Texto12 & "','" & _
Me.txtDescricao & "-" & i & "','" & _
Me.Cliente & "'," & _
Me.ValorParc & ",#" & _
Format(StrDateAdd, "mm/dd/yyyy") & "#," & _
Me.txtParc & ",'" & _
Me.Observações & "');"
Next i
Me.lstParcelas.Requery
MsgBox "Parcelas geradas com sucesso!", vbInformation, "Gerar parcelas"

Else
MsgBox "processo cancelado pelo usuário!", vbInformation, "Gerar parcelas"
End If

DoCmd.Hourglass False