[ Ασφάλεια] Κλείδωμα βάσης για συγκεκριμένο χρόνο

[alex]

Καλημέρα

Εχεις δίκιο Νίκο για το τρόπο που περιγράφεις .Ισως εγώ δεν έκανα καλή διατύπωση.Πρίν συνταχθεί ο κώδικας για την απόρριψη διαχείρισης της εφαρμογής χρειάζεται και να ελέγχει και την ημερομηνία του υπολογιστή και αυτο μπορεί να γίνει με (DLookup(FieldFRunDate, TblName)) που να ελέγχει τον πίνακα ΠΧ.tblTrial με πεδια TrialActive ,FrstDate,CurDate,DaysTrial όπου
Dim DtFrstDate As Date, CurrDate As Date
CurrDate = Date
Ολα αυτά σε Module. Με το άνοιγμα της εφαρμογής να φορτώνει την τρέχουσα ημερομηνία με αποτέλεσμα εάν αλλάξει κάποιος την ημερομηνία του υπολογιστή μεγαλυτερη > ή < μικρότερη τότε έρχεται σε λειτουργία ο κώδικας και σταματάει η εφαρμογή.Στην περίπτωση αυτή εννοώ ότι εάν κάποιος δεί τον πίνακα και τον αλλάξει επανέρχεται η εφαρμογή.
Η περίπτωση που αναφέρθηκα στο προηγούμενο μήνυμα με αποκρυπτογράφηση των πινάκων και μια συνάρτηση Μodule που να καλει την συνάρτηση και να υπάρχει ο πίνακας με την τρέχουσα ημερομηνία μόνο γιατι πρέπει κάπου να περάσει η τρέχουσα ημερομηνία και να κλειδώνει μέσα απο τα register tou Pc.Οπότε και να σου πειράξουν τον πίνακα με την ημερομηνία δεν θα υπάρχει πρόβλημα.Επίσης εάν γυρίσει η ημερομηνία του υπολογιστή εμπρός ή πίσω τότε πάλι να μπλοκάρει την εφαρμογή.

Φιλικά
Αλέξανδρος

[comsup]

Συγνώμη που γίνομαι κουραστικός, κατάλαβα τον τρόπο που προτείνεις να κλειδώσει η ημερομηνία, αλλά δυστυχώς δεν έχω γνώσεις να φτιάξω module. Πως θα μπορούσες να με βοηθήσεις; Αρκεί ένα παράδειγμα με την κεντρική μου φόρμα; Αν γίνεται έτσι, σε παρακαλώ κάνε μου ένα παράδειγμα με μια άδεια φόρμα με όνομα menu και πιστεύω θα καταφέρω να τα μεταφέρω στο πρόγραμμά μου.
Ευχαριστώ και πάλι

[alex]

Δημήτρη

Το συγκεκριμένο που έχω το έχω αγοράσει και δεν πρέπει να το βγάλω στον αέρα και είναι παράκληση απο τον πωλητή .Εάν μπορέσω να σου πω περίπου τι να κάνεις.

Για να ανοίγει η βάση να λειτουργεί για συγκεκριμένο αριθμό ημερών...
Φτιάχνω λοιπόν ένα πίνακα "tbldays" με πεδίο "firstdate". Πρέπει λοιπόν στο άνοιγμα της βάσης να γίνεται ένας έλεγχος αν το πεδίο firstdate είναι null και αν είναι να πάρει τιμή date() (πρώτη εκτέλεση της βάσης), αν δεν είναι null να γίνεται μια σύγκριση με το Now() και αν η διαφορά τους είναι μεγαλύτερη από χ ημέρες να βγάζει ένα σχετικό msgbox και να μην ανοίγει η βάση, ενώ αν είναι μικρότερη να προχωρά κανονικά το άνοιγμα της βάσης..
Η παρακάτω συνάρτηση δεν ξέρω εάν είναι και σωστή τα παιδιά που ξέρουν πολύ καλά κώδικα ίσως και βοηθήσουν.

.Public Function fTrialDays()
Dim StartDay As Date

'Ελέγχει τον πίνακα
If IsNull(DMax("[firstdate]", "tbldays")) Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tbldays VALUES ( Now())"
DoCmd.SetWarnings True
Exit Function
Else
StartDay = DMax("[firstdate]", "tbldays")
End If

'Ελεγχος για χ=15 μέρες
If Now() > DateAdd("d", 15, StartDay) Then
'Σχετικό μήνυμα και κλείσιμο της access
MsgBox "Οι x μέρες πέρασαν.", , "Info.."
DoCmd.Quit
else
DoCmd.openForm "frmMain"
End If

End Function
Πιστεύω ότι κάπως έτσι πρέπει να είναι ο κώδικας που δεν έχει καμμια σχέση με αυτόν που έχω αγοράσει.
Εάν γνωρίζει κάποιος πιο πολλά μπορεί να βοηθήσει.
Αλλά πρέπει να εξασκηθείς πιο πολύ για να φτάσεις στο επίπεδο αυτο ώστε να κάνεις κάτι απο μόνος σου.
Φιλικά
Αλέξανδρος

[comsup]

Αρχική Δημοσίευση από alex

Δημήτρη

Το παράδειγμα είναι σε 2002 έκδοση.Λογικά θα έπρεπε να το βλέπεις με 2003.Το ξαναστέλνω μήπως δεν το φόρτωσε καλά.Το αρχικό σου ερώτημα ήταν να κάνεις Demo εφαρμογή αν κατάλαβα καλά

Φιλικά/Αλέξανδρος

Το πρόβλημα με το αρχείο ειναι μάλλον στο zip. Μήπως θα μπορούσες να στειλεις το αρχειο της access;

[comsup]

Αρχική Δημοσίευση από alex

Δημήτρη

Το παράδειγμα είναι σε 2002 έκδοση.Λογικά θα έπρεπε να το βλέπεις με 2003.Το ξαναστέλνω μήπως δεν το φόρτωσε καλά.Το αρχικό σου ερώτημα ήταν να κάνεις Demo εφαρμογή αν κατάλαβα καλά

Φιλικά/Αλέξανδρος

ΟΚ ανοίγει, ευχαριστώ