Ιδιότητες access

[anestaki]

Καλημέρα σε όλους και καλή χρονιά
Με την εντολή CurrentProject.Name εμφανίζουμε το όνομα από της ιδιότητες της access, πια είναι η εντολή για να εμφάνιση την ημερομηνία που δημιουργήθηκε

[kapetang]

Καλησπέρα

Γιώργο, η παρακάτω συνάρτηση δίνει την ημερομηνία και την ώρα δημιουργίας του αρχείου που ορίζεται με την παράμετρο FullNameFile.

Function DateCreatingFile(FullNameFile) As Variant
'Η συνάρτηση επιστρέφει την ημερομηνία και την ώρα δημιουργίας
'του αρχείου που ορίζεται από την παράμετρο FullNameFile.
'------------------------------------------------------------
    Dim fso, f
    On Error GoTo Err_Handler
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile(FullNameFile)
    DateCreatingFile = f.DateCreated
Exit_Function:
    Set fso = Nothing
    Set f = Nothing
    Exit Function
Err_Handler:
    DateCreatingFile = Null
    Resume Exit_Function
End Function

Επίσης η ιδιότητα currentDB.Name μας δίνει το πλήρες όνομα του αρχείου της ΒΔ.

Έτσι αν καλέσουμε τη συνάρτηση με FullNameFile= currentDB.Name θα επιστρέψει την ημερομηνία δημιουργίας της ΒΔ.

Φιλικά/Γιώργος

[anestaki]

Καλησπέρα Γιώργο
Ευχαριστώ πάρα πολύ δεν μπόρεσα να χρησιμοποιήσω την Function δεν ξέρω γιατί άλλα την εκμεταλλευτικά πλήρως πιστεύω.

Private Sub Form_Load()
Me.Ετικέτα1.Caption = CurrentProject.Name
Dim fso, f
Dim X As Date
    On Error GoTo Err_Handler
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(CurrentDb.Name)
X = f.DateCreated
Me.Ετικέτα2.Caption = "Τελευταία ανανέωση " & X
Exit_sub:
    Set fso = Nothing
    Set f = Nothing
    Exit Sub
Err_Handler:
    X = Null
    Resume Exit_sub
End Sub

[kapetang]

Γιώργο, ζητούσες την ημερομηνία δημιουργίας της ΒΔ.

Στον κώδικα όμως γράφεις: Me.Ετικέτα2.Caption = "Τελευταία ανανέωση " & X.

Αν στην πραγματικότητα ζητάς την τελευταία ημερομηνία ανανέωσης της ΒΔ:

Χρησιμοποίησε κατευθείαν την ενσωματωμένη συνάρτηση fileDateTime()

Me.Ετικέτα2.Caption = "Τελευταία ανανέωση " & fileDateTime(currentDb.Name)

Ή άλλαξε στον κώδικα τη γραμμή x= f.DateCreated με την x=f.DateLastModified

[anestaki]

Γιώργο σε ευχαριστώ και πάλι