Πρώτη οθόνη καλωσορίσματος και αποδοχή όρων εφαρμογής

[comsup]

Καλημέρα, έψαξα αρκετά και δεν βρήκα το ίδιο θέμα. Αν κάποιος το έχει δει ας μου στείλει σύνδεση να βρω απαντήσεις.
Η ερώτησή μου είναι η εξής:
Θέλω στη βάση μου να εμφανίζεται μια οθόνη καλωσορίσματος, η οποία να περιέχει ένα πλαίσιο επιλογής (ναι/οχι) για αποδοχή των όρων. Από τη στιγμή που θα επιλεγεί το "ναι" να μην ρωτάει την επόμενη φορά που θα ανοίξει η εφαρμογή.
Είναι κάτι πολύ συνηθισμένο στα έτοιμα προγράμματα που ανοίγουμε για πρώτη φορά.

Ευχαριστώ, Δημήτρης

[Tasos]

Καλησπέρα σε όλους!
Δημήτρη, στο συνημμένο που επισυνάπτω μπορείς να δεις μια προσέγγιση με χρήση των συναρτήσεων VB GetSetting() και SaveSetting().

Η συνάρτηση SaveSetting() καταχωρεί στο μητρώο των Windows το όνομα του χρήστη αλλά και
την τιμή της ετικέτας (φύλλο ιδιοτήτων της φόρμας > Άλλα > Ετικέτα) της φόρμας καλωσορίσματος.

Οι παραπάνω τιμές καταχωρούνται στο σημείο:
[HKEY_CURRENT_USER\Software\VB and VBA Program Settings\MyDatabase\Username]
όπου Username = το όνομα του λογαριασμού των Windows.

Περισσότερες πληροφορίες για τις συναρτήσεις αυτές υπάρχουν στη βοήθεια της VBA.

Η φόρμα καλωσορίσματος εμφανίζεται σε κάθε χρήστη των Windows για μια και μοναδική φορά αφού φυσικά αποδεχτεί τους όρους.

Την τιμή της ετικέτας μπορείς να την αλλάξεις αν χρειαστεί να κάνεις κάποιες αλλαγές στην εφαρμογή σου που επιβάλλουν την αποδοχή των όρων χρήσης.
Έτσι οδηγείς το χρήστη να αποδεχτεί εκ νέου το τροποποιημένη εφαρμογή (αν αυτό χρειαστεί).


Στο συνημμένο μπορείς να δεις τις υπόλοιπες λεπτομέρειες.

Καλή συνέχεια!

Φιλικά

Τάσος

[artchrist73]

Ανοίγοντας την φόρμα βγάζει πιθανόν σφάλμα?

[alex]

Aντώνη Καλησπέρα

Δίόρθωσε το Rererence kai OK

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

[artchrist73]

Καλησπέρα alex, που μπορώ να διορθώσω δηλαδή δεν κατάλαβα εγώ εδώ βλέπω κάπου το λάθος --> UserRegKey = Environ("USERNAME")
Reference <--- θες να μου πεις?
γιατί γραφής Rererence ή είναι κάτι άλλο?
Πιστεύω πως θα με βοηθήσεις χωρίς να γίνομαι κουραστικός βεβαια!!!

[alex]

Aντώνη καλησπέρα

Εχεις missing to reference ξετσεκαρισέ το.Εγω αυτο έκανα και δουλεψε.

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

[artchrist73]

Ok Alex το εκανα και εγω τωρα ειναι οκ!!!!
Ευχαριστω