Vi chiedo un aiuto perchè nel leggere le relazione di un db nel valore rel.name, al posto del nome della relazione mi viene mostrato una serie di numeri racchiusi tra parentesi graffe. {52AF3E09-D52B-4C26-986C-8C83D8396848}
E' la prima volta che mi capita si tratta di un errore ?
Dim Tdf As DAO.TableDef
Dim db As DAO.Database
Dim rel As DAO.Relation
Dim sTableName As String
Set db = DBEngine.Workspaces(0).OpenDatabase("C:\Archivio\Access\Test.accdb")
''' Leggo tutte le tabelle del db
For Each Tdf In db.TableDefs
' escludo le tabelle di sistema
If Left(Tdf.Name, 4) <> "MSys" Then
sTableName = Tdf.Name
For Each rel In db.Relations
''' Verifico che sia relazioni legate alla tabella che prendo in esame
If rel.Table = sTableName Or rel.ForeignTable = sTableName Then
Debug.Print vbCrLf & "RELATION NAME: " & rel.Name & " FROM " & rel.Table & " TO " & rel.ForeignTable
End If
Next rel
End If
Next Tdf
Set db = Nothing