Errore nella visualizzazione del relation name

di il
1 risposte

Errore nella visualizzazione del relation name

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

1 Risposte

Devi accedere o registrarti per scrivere nel forum
1 risposte