Conferir boletos

Bom dia,tenho um sistema onde a tabela (BD_Contrato_Parcelas) registra as parcelas mas principalmete os dados o boleto emetido no campos ("Numero Boleto","Data pagamento","valor Pago","analise")
eu preciso de um comando que encontre na tabela (BD_Pagamentos Boletos), se o boleto foi lançado,buscando pelo "Numero Boleto" ,na coluna "Numero Boleto Pago" ,e após disto se encontrar copiar, informação da mesma linha,"Data Pag" para "data Pagamento","valor" para "Valor Pago" e salvar no campo "analise","informado" ; ;; ; quando não encontrar o código, mudar o campo analise para "Ausente"


observação adicionais que podem ajudar
Campo chave do (BD_Contrato_Parcelas),é [Código Parcelas]
campo Chave do (BD_Pagamentos Boletos), é [Código Pagamento] e o campo [Numero Boleto Pago] é um índice secundário.

Desde já fico grato por dicas e ajudas.

tentar explicar diferente preciso muito de ajuda,Preciso um comando pra localizar na tabela (1) ("BD_Pagamento Boletos") o campo "numero_Boleto_Pag"; com a condição de ser igual ao campo "Numero _Boleto" doa tabela (2) ("BD_contrato_Parcelas).ao encontrar este registo utilizar o valor do campo "data pag" da tabela 1 para a tabela 2 no campo "Data Pagamento"
a questão é que ao clicar o botão preciso que
cada registro da tabela 2 inspecione todos registro da tabela 2 para encontrar dados

em palavras por que :
Criei uma tabela com as parcelas (1) e uma tabela com os boletos pagos,o qual posso importar do Excel para facilitar o uso.então quando ativo o botão quero que o sistema verifique se os boletos que que o código procura para cada registro da tabela (1) se a o boleto em qualquer parte da tabela (2)..

Código:

Dim rsAVarrer As DAO.Recordset
    Dim rsAAtualizar As DAO.Recordset
    Dim booEncontrou As Boolean
    
    Set rsAAtualizar = CurrentDb.OpenRecordset("BD_Contrato_Parcelas")
    Set rsAVarrer = CurrentDb.OpenRecordset("BD_Pagamentos Boletos", , 4)
    
    While Not rsAAtualizar.EOF
        
       If Not rsAVarrer.EOF Then
           
            rsAVarrer.MoveFirst
       
            Do
                booEncontrou = rsAAtualizar.Fields("Numero Boleto").Value = rsAVarrer.Fields("Numero Boleto Pago").Value
                If booEncontrou Then Exit Do
                rsAVarrer.MoveNext
            Loop Until rsAVarrer.EOF
           
        End If
        
        rsAAtualizar.Edit
            If booEncontrou Then
                rsAAtualizar.Fields("Data pagamento").Value = rsAVarrer.Fields("Data Pag").Value
                rsAAtualizar.Fields("valor Pago").Value = rsAVarrer.Fields("valor").Value
                rsAAtualizar.Fields("analise").Value = "informado"
            Else
                rsAAtualizar.Fields("Analise").Value = "ausente"
            End If
        rsAAtualizar.Update
        rsAAtualizar.MoveNext
        
    Wend
    
    rsAVarrer.Close: Set rsAVarrer = Nothing
    rsAAtualizar.Close: Set rsAAtualizar = Nothing

    MsgBox "Tarefa concluída.", vbInformation, "Informação"

Vinicius, resolveu?