Ανανέωση ιστοσελίδας

[Ρούλα]

Καλό μεσημέρι σε όλους τους συμμετέχοντες και αναγνώστες του forum.
Θα ήθελα άλλη μια φορά την βοήθειά σας. Έχω μια βάση με μια φόρμα και Ένα πεδίο της φόρμα [Όγκος]. Όταν ανοίγω λοιπόν την φόρμα θα ήθελα στο Πεδίο [Όγκος] να καταχωρείτε Ο Όγκος της Ίδιας Β.Δ. δηλ. 250 ΚΒ θα ήθελα να ευχαριστήσω Όλους για άλλη μια φορά και πολύ περισσότερο αυτούς που θα διαθέσουν μέρος του πολύτιμου χρόνου τους
Φιλικά Ρούλα

[kapetang]

Καλησπέρα

Ρούλα, δες το συνημμένο αρχείο.

Για εύρεση του μεγέθους του αρχείου χρησιμοποιείται ο κώδικας:

Private Sub Form_Open(Cancel As Integer)
    Me.txtFileSize = CInt(FileLen(CurrentProject.FullName) / 1024)
End Sub

[Ρούλα]

Γιώργο θα ήθελα να σε ευχαριστήσω για ακόμα μια φορά για την καλή σου διάθεση και προθυμία που με βοήθησες. Όπως και όλους τους φίλους του Forum.
Φιλικά Ρούλα