Consulta Atualização - inserir valor do ID retirado de outra tabela

Amigos,
possuo uma tabela não normalizada.
Estou dividindo-a em diversas tabelas relacionadas.
Preciso, na tabela original. que irei reestruturar, acrescentar valores de id nas chaves estrangeiras.

Como fazer isso através de uma consulta atualização.

Exemplo:

Tabela original tenho um campos chamado NomeVulgar, nome Cientifico, genero, Familia. Essa tabela relaciona o endereço de todas as arvores de um município.

Normalizei a tabela e criei as tabelas espécimes, genero e familia.

Na tabela endereços ainda tenho as informações repetidas, assim tenho a seguinte estrutura: NomeVulgar, nome Cientifico, genero, Familia, (preenchidos) e ID_Espécime (em branco).

Tenho na tabela espécimes os campos ID_Espécime, NomeVulgar, nome Cientifico, ID_genero.

Preciso de uma consulta que observe o nome vulgar da arvore, na tabela endereços, pesquise o id relacionado na tabela espécimes e preencha o ID_Espécime, na tabela endereços, com esse valor.

Obrigado

Boa noite colega, seja bem vindo ao Fórum!

Poste um exemplo do banco de dados com as tabelas para que possamos ver isto pra ti.

Cumprimentos.

Diminuí o banco para que conseguisse enviar, tn nao consegui enviar no formato accdb por isso mando em MDB.
Obrigado

No teu exemplo não existe tabela denominada Endereços.

Cumprimentos.

Não testei.. mas deve dar certo:

Dim rsArvore As DAO.Recordset
Dim RsEspecime As DAO.Recordset
Dim StrSQLArvore As String
Dim StrSQLEspecime As String
'Carrego a variável com a Sql baseada na tabela Arvore
StrSQLArvore = "SELECT * FROM Arvores"
'Carrego a variável com a sql baseada na tabela Especimes
StrSQLEspecime = "SELECT * FROM Especimes"

'Seto o recordset com a sql da tabela Arvore
Set rsArvore = CurrentDb.OpenRecordset(StrSQLArvore)
'Seto o recordset baseado na sql da tabela Especime
Set RsEspecime = CurrentDb.OpenRecordset(StrSQLEspecime)

'Executo loop pelo recordset da tabela Arvore para filtrar o recordset da tabela espécime,
'En encontrando registro atualia o recordset da tabela Arvore
Do While Not rsArvore.EOF
    RsEspecime.FindFirst "[Nome Científico] = '" & rsArvore![Nome Científico] & "'"
    MsgBox rsArvore![Nome Científico]
    MsgBox RsEspecime![Nome Científico]
    rsArvore.Edit
        rsArvore!id_espécie = RsEspecime!id_espécie
    rsArvore.Update
    rsArvore.MoveNext
Loop

Cumprimentos.

Obrigado Hary
Amanhã, logo cedo, vou testar teu código. Agradeço muito sua colaboração.
Eu omiti de própósito outras situações iguais a que eu exemplifiquei. Entendendo como se faz uma, eu mesmo faço as outras.
Mais uma vez, obrigado

Bom trabalho.

Cumprimentos.