Udfordring for kode-hajer

Hej Thomas

Det nemmeste er at hardkode de enkelte foresp. med parametre og kalde dem i den rigtige rækkefølge fra VBA.

Jeg har dog leget med dit 'problem' olavet følgende kode, der udskriver dine relationer. Problemmet er hvis der er flere relationer fra samme tabel.

Function udskrivRelationer(tabel As String) As String
    Dim db As DAO.Database
    Set db = CurrentDb
    Dim rel As Relation
   
    For Each rel In db.Relations
        If rel.Table = tabel Then
          Debug.Print rel.Table & ": " & rel.Fields(0).Name; " -> "; rel.ForeignTable & ": " & rel.Fields(0).ForeignName
          udskrivRelationer rel.ForeignTable
          udskrivRelationer = rel.ForeignTable
        End If
    Next rel
End Function
Sub test()

udskrivRelationer "tblOrganisationer"

End Sub

Smart :o)

Men du har ret i, at det er et problem, hvis der er flere relationer - og det er der de fleste steder.

Hvis du havde mulighed for at gå lidt videre vil det være super...jeg vil selv kigge på det og se om jeg kan få alle relationer med. Men der går nogle dage endnu!

...har lige testet det igen.....så vidt jeg kan se, så tager den da alle relatoner med - også selvom der er flere på samme tabel.

Ja det gør den :)

men den skal jo ikke kopiere de samme tabeller flere gange selvom der er flere relationer til samme tabel.

Hej Niels,

Havde helt glemt dette spørgmål. Jeg fik aldrig brug for denne løsning, da jeg fik løst det ad anden vej. Men jeg vil gerne give dig point alligevel, så hvis du lige lægger et svar, såå... :o)

Hej Thomas - Her har du et svar, men behold lidt af dine pts. 200 er mange for en løsning du ikke bruger.

Niels

sorry, jeg kan ikke høre, hvad du siger :o)
Jeg har til gengæld givet dig lidt god karma (kig under dine brugerinfo)

Det er forøvrigt irritrende, at det ikke er alle mails, som bliver sendt ud....jeg havde ikke fået nogen besked om, at du havde svaret :o(

OK - tak for det.