[Resolvido]Dificuldade no lançamento em duas tabelas

Boa tarde pessoal
Estou a utilizar um o seguinte procedimento para lançar em duas tabelas, mas não consigo que funcione:
Alguém me pode ajudar?

Private Sub Valor_AfterUpdate()
CurrentDb.Execute "UPDATE [Paroquianos] SET Valor= " & Me.Valor & " WHERE código= " & Me.Lista141.Column(0) & ""
Me.Recalc
Me.AllowEdits = True
Me.AllowDeletions = True
End Sub

Private Sub DataPagamento_AfterUpdate()
CurrentDb.Execute "UPDATE [Paroquianos] SET DataPagamento= #" & Format(Me.DataPagamento.Value, "mm-dd-yyyy") & "# WHERE código= " & Me.Lista141.Column(0) & ""
Me.Recalc
Me.AllowEdits = True
Me.AllowDeletions = True
End Sub

Isto tudo no formulário direitosparoquiais.
Abraço,
Rui Maciel

Se é Me.Lista141, diga-me onde está essa lista no formulario que descreveu ?

Boa tarde J.Paulo
Muito obrigado.
A lista141 está no formulário1.
Abraço,
Rui Maciel

Então não pode Me., o Me. refere-se a um controlo no proprio formulario.

Veja se funciona assim;

CurrentDb.Execute "UPDATE [Paroquianos] SET Valor= " & Me.Valor.Value & " WHERE código= " & Forms!Formulário1.Lista141.Column(0) & ""

Logicamente que o Formulário1 tem de estar aberto;

Mas, JPaulo eu tenho um botão no formulário direitos paroquiais que abre o formulário1, onde está a lista141, e ao selecionar a linha para inserir os dados no formulário direitos paroquiais o formulário1 fecha, só se o deixar aberto?
Cumprimentos,
Rui Maciel

Ok, já vi o que pretende;

Você através do botão que abre o formulario1, e na lista escolhe o Paroquiano que salta para o form DireitosParoquiais;

Então é assim;

Private Sub Valor_AfterUpdate()
CurrentDb.Execute "UPDATE [Paroquianos] SET Valor= " & Me.Valor.Value & " WHERE código= " & Me.NúmeroParoquiano.Value & ""
Me.Recalc
Me.AllowEdits = True
Me.AllowDeletions = True
End Sub

Private Sub DataPagamento_AfterUpdate()
CurrentDb.Execute "UPDATE [Paroquianos] SET DataPagamento= #" & Format(Me.DataPagamento.Value, "mm-dd-yyyy") & "# WHERE código= " & Me.NúmeroParoquiano.Value & ""
Me.Recalc
Me.AllowEdits = True
Me.AllowDeletions = True
End Sub

Bom dia JPaulo
Ontem à noite consegui solucionar o problema, com a solução por si agora implementada, estudando um bocado conseguimos atingir aquilo que queremos. Contudo, João Paulo, muito obrigado pela disponibilidade e apreço demonstrado.
Abraço,
Rui Maciel

Obrigado pelo retorno o forum agradece.