
05-10-11, 08:20
|
| Όνομα: Αλέξανδρος Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2013 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 22-01-2010 Περιοχή: ΑΡΤΑ
Μηνύματα: 521
| |
Καλημέρα
Εχεις δίκιο Νίκο για το τρόπο που περιγράφεις .Ισως εγώ δεν έκανα καλή διατύπωση.Πρίν συνταχθεί ο κώδικας για την απόρριψη διαχείρισης της εφαρμογής χρειάζεται και να ελέγχει και την ημερομηνία του υπολογιστή και αυτο μπορεί να γίνει με (DLookup(FieldFRunDate, TblName)) που να ελέγχει τον πίνακα ΠΧ.tblTrial με πεδια TrialActive ,FrstDate,CurDate,DaysTrial όπου
Dim DtFrstDate As Date, CurrDate As Date
CurrDate = Date
Ολα αυτά σε Module. Με το άνοιγμα της εφαρμογής να φορτώνει την τρέχουσα ημερομηνία με αποτέλεσμα εάν αλλάξει κάποιος την ημερομηνία του υπολογιστή μεγαλυτερη > ή < μικρότερη τότε έρχεται σε λειτουργία ο κώδικας και σταματάει η εφαρμογή.Στην περίπτωση αυτή εννοώ ότι εάν κάποιος δεί τον πίνακα και τον αλλάξει επανέρχεται η εφαρμογή.
Η περίπτωση που αναφέρθηκα στο προηγούμενο μήνυμα με αποκρυπτογράφηση των πινάκων και μια συνάρτηση Μodule που να καλει την συνάρτηση και να υπάρχει ο πίνακας με την τρέχουσα ημερομηνία μόνο γιατι πρέπει κάπου να περάσει η τρέχουσα ημερομηνία και να κλειδώνει μέσα απο τα register tou Pc.Οπότε και να σου πειράξουν τον πίνακα με την ημερομηνία δεν θα υπάρχει πρόβλημα.Επίσης εάν γυρίσει η ημερομηνία του υπολογιστή εμπρός ή πίσω τότε πάλι να μπλοκάρει την εφαρμογή.
Φιλικά
Αλέξανδρος
|