[Resolvido]Como criar relacionamento tabelas por código?

Boa noite.
Li esse post...
https://www.maximoaccess.com/t109-resolvidorelacionamento-de-tabelas-pelo-codigo-vba
Mas apesar de estar como avançado e ser da área de saúde, meus conhecimentos são poucos nessa questão.
Naquilo que to tentando criar, são necessárias muitas tabelas, conforme figura abaixo.

https://www.dropbox.com/s/rmg63cj3ndze927/rela%C3%A7%C3%A3o.png?dl=0[/img

Todavia, o access possui limite de relacionamento, que são 32 tabelas por Relacionamento, infelizmente, preciso "encaixar" mais algumas.
E, talvez, por código, possa ter mais que isso.
Por isso,
Alguém teria um Beabá, tutorial de como se criar relacionamento entre tabelas via código?
Obrigado.

Digamos que tu tenha uma tabela Livro (CodLivro, NomeLivro, EscritorLivro) e outra Escritor (CodAutor, NomeAutor) e quer relacionar o CodAutor da tabela Autor com o EscritorLivro da tabela Livro.

Código:

Sub fncCreateRelation()

    Dim db As DAO.DATABASE
    Dim rel As DAO.Relation
    Dim fld As Field
    
    Set db = CurrentDb

    Set rel = db.CreateRelation("Livro-Autor", "Escritor", "Livro", dbRelationUpdateCascade)
    Set fld = rel.CreateField("CodAutor")
    fld.ForeignName = "EscritorLivro"
    rel.Fields.Append fld
    db.Relations.Append rel
    
    db.Close
    Set db = Nothing
    
    Set rel = Nothing
    
    MsgBox "Relação criada!"
End Sub

Essa é a função que eu uso quando preciso, mas não sei se o fato de criar a relação pelo VBA vai possibilitar mais do que 32 relações... Testa aí e volta pra contar.

Gabriel
Fiz um arquivo com sua dica.
Mas onde coloco essa função?

Bom dia Mylton,

A função que eu te passei vai ir em um módulo.

Editei o seu arquivo e já adicionei o módulo Relacoes. Vai encontrar a função nele... Além disso, populei as tabelas com alguns dados fictícios. Lembre-se que o campo EscritorLivro, por ser uma chave estrangeira, deve ser no formato Número, e não Texto, como estava no seu arquivo.

A função fncCreateRelation deve ser executada uma única vez para a relação Livro-Autor ser criada.

Depois de executar a função, vá em FERRAMENTAS DE BANCOS DE DADOS > Relações > Todas as Relações e vai perceber que a relação foi criada...

Não sei se isso te atende... Se precisar de alguma outra coisa, só falar.

Ok
Obrigado.
Vou estudar.
abs