creating relationships between tables in vba 1

[skinicod]

Hello,

I am trying to change various attributes a database using vba. The first of these is the relationships between tables.

I think my code should look something like the following:


Dim rel As Relation

Set rel = currentdb.CreateRelation(???????)


My query therfore is - if I have two tables - "Table1" and "Table2" and I want a relationship between them on multiple fields - how do I do it.

Any help would be gratefully recieved,

Skinicod

 

[mndrlion]

Here is an example

    Dim rel As Relation
    
    
    Set rel = CurrentDb.CreateRelation("InvoiceParts", "tblInvoices", "tblParts")
    
    rel.Fields.Append rel.CreateField("InvoiceID")
    rel.Fields("InvoiceID").ForeignName = "InvoiceID"
    
    rel.Fields.Append rel.CreateField("InvoiceNumber")
    rel.Fields("InvoiceNumber").ForeignName = "InvoiceNumber"
    
    CurrentDb.Relations.Append rel

 

[skinicod]

Thanks