Forum - Ιδιότητες access

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Ιδιότητες access (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/3511-idiotites-access.html)

Ιδιότητες access

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

Καλησπέρα

Γιώργο, η παρακάτω συνάρτηση δίνει την ημερομηνία και την ώρα δημιουργίας του αρχείου που ορίζεται με την παράμετρο 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 θα επιστρέψει την ημερομηνία δημιουργίας της ΒΔ.

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

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

Κώδικας:

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

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

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

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

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

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

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

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