[Tasos]

Καλημέρα Μιχάλη!

Θα πρέπει να γίνουν κάποιες αλλαγές στον κώδικα του συμβάντος Form_Unload() στο προηγούμενο μου μήνυμα.

Τροποποίησε λοιπόν την πρώτη γραμμή του κώδικα

από: Dim fso As Object

σε: Dim fso As Object, tdf As DAO.TableDef

Επίσης αντικατέστησε τη γραμμή: SourcePath = CurrentProject.FullName

με τον παρακάτω κώδικα:

        For Each tdf In CurrentDb.TableDefs
            If Left(tdf.Connect, 9) = ";DATABASE" And Left(tdf.Name, 3) <> "Sys" Then
                SourcePath = Mid(tdf.Connect, 11, 256)
                Exit For
            End If
        Next
        'If SourcePath = vbNullString Then
           ' SourcePath = CurrentProject.FullName
       ' End If 

Καλη συνέχεια!

Τάσος