[Resolvido]Atualizar registro em ambas a tabelas através do formulário

Olá, tudo bem.

Estou com dificuldades em solucionar uma problema e gostaria, se possível, de uma orientação dos especialistas.

Tenho um formulário "frm_Cad_Imóveis" que alimenta uma tabela chamada "tab_Cad_Imóveis". No botão "Salvar" deste formulário inseri um código que verifica, através do comando "Dlookup", a existência ou não de determinados registros em uma outra tabela chamada "tab_Cad_Titular_DeDireito".
Após verificação e constatado como já existentes será emitida uma mensagem dando sequência no código. Caso não existentes será aplicado o INSERT INTO para que sejam inserido os registros diretamente nesta tabela "tab_Cad_Titular_DeDireito".

O Código funciona bem. Ocorre que havendo uma alteração nos registros respectivos a primeira tabela, e sendo eles comuns as duas tabelas, estes não são atualizados na segunda tabela, visto que o código só verifica a existência ou não dos registros, neste caso, sendo já existentes, não os atualiza.
A dificuldade é justamente como posso fazer para que, se necessário for, mesmo existindo os registro em ambas as tabelas, o código possa atualiza-los na segunda tabela?

Esclarecendo, os campos objetos de possíveis atualizações são: ID_Cód_DoImóvel,NomeCadastrado,CPF,Particip_DeDireito,Endereço_1,Endereço_2

Este é o Código:

   Dim Verifica As Variant    
   MsgBox ("O sistema verificará se o Cliente está incluído como Titular de Direito para este imóvel. Caso não esteja fará a inclusão."), vbInformation, "Atenção!"
   Verifica = DLookup("[ID_Cód_DoCliente]", "tab_Cad_Titular_DeDireito", "[ID_Cód_DoCliente] = " & Me.Cód_DoCliente & "AND [ID_Cód_DoImóvel] = " & Me.[Cód_DoImóvel])
   
If Me.Cód_DoCliente = Verifica Then            
    MsgBox "Cliente já incluído(a) como Titular de Direito para este imóvel!", vbInformation, "Atenção!"    
Else
   MsgBox "Cliente ainda não incluído(a) como Titular de Direito para este imóvel. Será incluído(a) neste momento.", , "Atenção!"    
   CurrentDb.Execute "INSERT INTO tab_Cad_Titular_DeDireito (ID_Cód_DoImóvel,ID_Cód_DoCliente,NomeCadastrado,CPF,Particip_DeDireito,Endereço_1,Endereço_2)" _
   & "VALUES('" & Cód_DoImóvel & "','" & ID_Cadastrado.Column(0) & "','" & ID_Cadastrado.Column(1) & "','" & ID_Cadastrado.Column(3) & "','" & Particip_DeDireito & "','" & Imóvel_Endereço_1 & "','" & Imóvel_Endereço_2 & "')"
   Me.Lista_DeTitulares.Requery
   MsgBox "Cliente incluído(a) como Titular de Direito com sucesso!", vbInformation, "Confirmação!"    
End If

Boa noite
Podia fazer verificação, em cada controlo alterado, se o valor corresponde ao existente na segunda tabela e, caso seja diferente, actualizar

Tudo bem, Alexandre.

É exatamente o que pretendo mas estou sem saber como proceder. Teria como me dar uma sugestão?

Boa tarde
No acontecimento AoSair do controlo, coloque código para ver se o valor tem de ser actualizado na segunda tabela
+/- assim
If dlookup("NomeDoCampo","Tabela","Registo=" & TxtRegisto) <> NomeDoControlo then currentdb.execute "UPDATE Tabela SET Campo=" & Controlo &" WHERE Registo=" & TxtRegisto

Alexandre, Bom Dia.

Desculpe-me pela demora no retorno.
O tempo por cá tem andado curto, de forma que só neste final de semana tive a oportunidade de aplicar sua orientação.
Acrescento que a aplicação funcionou perfeitamente.

Muito obrigado pela atenção.

Grande abraço.

Mario Fernandes