[Resolvido]Alterar dados em outra tabela

Oi pessoal.
Depois de um carnaval tranquilo, numa quarta de ressaca básica, eis que me vejo na seguinte situação:

tabela LIVRO_CAIXA que armazena o movimento de entrada e saida de dinheiro
tabela tbPagtosCheque que armazena apenas os dados de pagamentos feitos em cheques

formulário LIVRO CAIXA que faz a entrada de dados com os campos básicos (nome, data, valor.. tipo=(dinheiro, cheque, cartão)
quando feito em cheque, abre um pop up pra entrarmos com os dados do cheque. e Salva

As vezes, efetuamos pagamentos com um cheque de paciente (repassamos o cheque pra terceiros)
então, na tbPagtosCheque tem os campos (REPASSADO (SIM/NÃO), DATAREPASSE (data), DESTINO (texto, 255).

Quando o lancamento é detectado como SAÍDA, e a forma de saída= CHEQUE, aparece uma caixa de listagem, baseada na tabela TbpagtosCheque mostrando disponivel os dados de todos os cheques que temos disponiveis (REPASSADOS=NÃO).

Ok, atualizo os campos que eu quero, automaticamente com o códigozinho me.meucampo1=me.comboLista.Collumn(x) no formulário e beleza.

Aí é que está. Cada pagamento em cheque tem seu código idCheque. Cada lançamento no livro caixa tb tem seu código idLivroCaixa, e as tabelas estão devidamente relacionadas.

Eu gostaria que, quando eu escolhesse um cheque na lista, ele automaticamente ATUALIZASSE na tabela TBCHEQUES os campos REPASSADO=SIM, DATAREPASSE=DATA ATUAL, e DESTINO="o nome descrito no campo DETALHES no formX".

tentei utilizar o seguinte código:

Dim db As Database, rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("tbPagtosCheque")
rs.Edit
rs("repassado") = True
rs("destinoCheque") = Forms![frmLivroCaixa]![Detalhes]
rs("dataRepasse") = Date
rs.Update
rs.Close
db.Close

mas me bato na questão de: como fazer pra atualizar esses dados no registro, na tabela TBCHEQUES, APENAS no cheque com IDCHEQUE = ao cheque que selecionei na caixa de listagem?

Espero ter sido claro o bastante.. e que alguem possa me ajudar!
abraços a todos!!!

Tente assim:

Dim db As Database, rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("tbPagtosCheque")

rs.FindFirst "Código = " & Me.Codigo
    If RS.NoMatch Then
        RS.AddNew
    Else
        RS.Edit
    End If

rs("repassado") = True
rs("destinoCheque") = Forms![frmLivroCaixa]![Detalhes]
rs("dataRepasse") = Date
rs.Update
rs.Close
db.Close

Mude Codigo para o campo comum a todos.

Resolvido pessoal!

Muito obrigado, meu amigo, que postou outra solução, mas como estou um pouquinho mais habituado a essa linguagem, optei por usar o seguinte código:

Com um dica de um amigo de outro Fórum, consegui deixar o código da seguinte forma!
Como eu seleciono o cheque direto da caixa de listagem, olha o que eu fiz!

Dim db As Database, rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * FROM tbPagtosCheque WHERE idCheque=" & Forms![frmLivroCaixa]![cbListaCheques].Column(0) & "")
rs.Edit
rs("repassado") = True
rs("destinoCheque") = Forms![frmLivroCaixa]![Discriminação]
rs("dataRepasse") = Date
rs.Update
rs.Close
db.Close

Funcionou perfeitamente!
Muito obrigado a todos !!!