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

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.

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.