[Tasos]

Δημήτρη μου δοκίμασε:

Public Function GetFileLen() As String
    Dim filePath As String
    Dim filesize As Double

    filePath = CurrentProject.FullName
    ''Αν πρόκειται για συνδεμένη βάση (Backend) τότε χρησιμοποιούμε:
    'filePath = CurrentDb.TableDefs("tblFields").Connect
    'filePath = Mid(filePath, InStr(1, filePath, ";DATABASE=") + 10)
    'tblFields = το όνομα ενός από τους συνδεμένους πίνακες στην βάση παρασκηνίου.
    
    filesize = FileLen(filePath)
    Select Case filesize
    Case Is >= 1099511627776#
        GetFileLen = FormatNumber(filesize / 1099511627776#, 2) & " TB"
    Case 1073741824 To 1099511627775#
        GetFileLen = FormatNumber(filesize / 1073741824, 2) & " GB"
    Case 1048576 To 1073741823
        GetFileLen = FormatNumber(filesize / 1048576, 2) & " MB"
    Case 1024 To 1048575
        GetFileLen = FormatNumber(filesize / 1024, 2) & " KB"
    Case 0 To 1023
        GetFileLen = FormatNumber(filesize, 2) & " bytes"
    Case Else
        GetFileLen = vbNullString
    End Select
End Function

Κάλεσε τη συνάρτηση από πεδίο της φόρμας έτσι: GetFileLen()

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

Τάσος