Comparar dados entre duas tabelas

Galera estou com uma dificuldade:

Preciso comparar dados entre duas tabelas,

Tenho a tabela dest e o campo CNPJ e a tabela CadClientes com o campo CNPJ também e gostaria de comparar as duas tabelas e fazer uma busca no campo CNPJ da tabela CadClientes e após essa comparação colocar o resultado como o dado do campo Email desta tabela CadClientes.

Obrigado.

Ola;

Uma pergunta;

Qual o objetivo de comparar as duas tabelas ?

Se você fizer uma consulta com a relação de 1 para muitos ligado pelo CNPJ, vai obter o resultado que pretende.

O objetivo é que preciso anexar o XML da Nota Fiscal Eletrônica em um novo e-mail, a parte que importa as tabelas e dados do XML está pronta.

Tenho um cadastro de Clientes que contém as informações Nome do Cliente, CNPJ e e-mail e preciso comparar a tabela dest (CNPJ) (que é do XML que foi importado) e do campo CNPJ (CadCliente) que contém o campo e-mail que será criado um novo e-mail anexando este XML para poder enviar para o cliente.

Obrigado.

Tente fazer o que lhe passei.

Olá JPaulo,

Eu fiz o relacionamento, mas e agora o que fazer para pegar essa comparação no módulo VBA, adicionando o e-mail da comparação na variável Email1, conforme o código abaixo para enviar o e-mail:

Sub Enviar_Click()
Dim Out As New Outlook.Application
Dim Email As Outlook.MailItem
Set Email = Out.CreateItem(olMailItem)


Email.Display
Email.To = Email1  
Email.CC = Email1
Email.Body = "[Incluir aqui texto da Mensagem]"
Email.Subject = "[Incluir aqui o Assunto da Mensagem]"
Email.Attachments.Add "C:\XML\cliente.xml"    'Entre aspas

End If

End Sub

---------------

Obrigado.