ΚΛΕΙΔΩΜΑ
 

Καλημέρα σε όλο το forum
Εχω φτιάξει ενα πελατολόγιο το οποίο το εχω συνδέσει με διάφορες άλλες φόρμες. Θέλω οταν μπαίνω στην καρτέλα ενός πελάτη η οπουδήποτε αλλού για να αντλήσω πληροφορίες να μην μου επιτρέπει να κάνω αλλαγές. Να είναι μόνο προβολή και όχι μεταβολή. Απο ότι εχω καταλάβει στην access αποθηκεύονται αυτόματα τα πάντα αλλά αυτό είναι πρόβλημα γιατί ο χρήστης μπορεί απο λάθος να κάνει μια αλλαγή. Μπορώ να "κλειδώσω" τις παλιές καταχωρήσεις με κάποιο τρόπο και αν θέλω να τις αλλάξω να δηλώνω κάποιον κωδικό? Κάπως πρέπει προστατεύσω τις καταχωρημένες μου κινήσεις.
Ευχαριστώ πολύ
Αλεξάνδρα

Καλημερα Αλεξανδρα
εκείνο που θα σου προτεινα ειναι να πας στη σχεδιαση της φορμας και κατοπιν στο φυλλο
ιδιοτητων και να αλλαξεις αναλογα τι επιλογές που εχει δες εικονα πιο κάτω

Χρήστο καλημέρα
Έτσι θέλω να λειτουργεί να είναι κλειδωμένα τα δεδομένα αλλά δεν μου επιτρέπει να ανοίξω πχ μια νεα καρτελα πελάτη. Στην φόρμα του πελάτη εχω βάλει κουμπί που ειναι για δημιουργία νεου πελάτη και πατώντας πάνω μου βγάζει μήνυμα you can;t go to the specified record. Θέλω δηλ να κλειδώνονται τα παλιά δεδομένα και να τα μεταβάλω μονο οταν θελω εγω και να εισάγω και νεα δεδομένα άμεσα. Γίνεται?
Ευχαριστώ για το χρόνο σου
Αλεξάνδρα

Καλησπέρα στην παρέα
Αλεξάνδρα προσπάθησα να δημιουργήσω μία εφαρμογή στην οποία κάθε φόρμα θα έχει ένα κουμπί, που, όταν το πατούμε, θα αλλάζει την κατάστασή της.
Αναλυτικότερα:
1. Όταν η φόρμα ανοίγει θα είναι μόνο για εμφάνιση στοιχείων (ανάγνωση).
2. Στη συνέχεια, πατώντας το κουμπί, θα μπορούμε να προσθέσουμε, να τροποποιήσουμε και να διαγράψουμε στοιχεία. Φυσικά αν το ξαναπατήσουμε η φόρμα θα γίνεται πάλι για ανάγνωση.
Η παραπάνω λειτουργία της φόρμας εξασφαλίζεται από τον κώδικα που ακολουθεί.
Private Sub Form_Load()
'η φόρμα είναι μόνο για εμφάνιση στοιχείων
Me.cmdToggleEdit.Caption = "Ενεργοποίηση επεξεργασίας"
Me.AllowAdditions = False
Me.AllowDeletions = False
Me.AllowEdits = False
End Sub

Private Sub cmdToggleEdit_Click()
'Εναλλάσει την κατάσταση εμφάνιση/ επεξεργασία
If Me.cmdToggleEdit.Caption = "Ενεργοποίηση επεξεργασίας" Then
Me.cmdToggleEdit.Caption = "Απενεργοποίηση επεξεργασίας"
Else
Me.cmdToggleEdit.Caption = "Ενεργοποίηση επεξεργασίας"
End If

Me.AllowAdditions = Not Me.AllowAdditions
Me.AllowDeletions = Not Me.AllowDeletions
Me.AllowEdits = Not Me.AllowEdits
End Sub
Δεν ξέρω τι συμβαίνει και ενώ όταν δημιουργούσα την εφαρμογή λειτουργούσε κανονικά, όταν την έκλινα και την ξαναφόρτωνα, χανόταν η λειτουργική μονάδα της φόρμας και φυσικά ο κώδικας !!!.
Θα σε παρακαλούσα να το δοκιμάσεις για να δούμε τι φταίει.
Δε χρειάζεται να πω ότι και οποιαδήποτε άλλη βοήθεια είναι ευσπρόσδεκτη.
Φιλικά/Γιώργος

Κοίταξε και τα παρακάτω για μερικό κλείδωμα και ξεκλείδωμα με κρυφό πλήκτρο...

http://www.ms-office.gr/forum/access...-kleidoma.html

Χρήστο και Γιώργο αρχικά σας ευχαριστώ πολύ
Έκανα πράξη και τις δυο λύσεις αλλά είμαι πολύ άσχετη μάλλον :001_unsure: γιατι δεν κατάφερα τίποτα. Ωραία η ιδέα σας για διπλό κλικ σε κουμπί άμεση και γρήγορη λύση.
Γιώργο δε μου χάνετε η εντολή αλλά μου μένει πάντα κλειδωμένη η φόρμα.
Χρήστο δε θέλω κλείδωμα ενός πεδίου μόνο, αλλά ολόκληρης της φόρμας. Έδωσα εντολή να κλειδώνεται η φόρμα αλλά τίποτα.
Σας ανεβάζω δυο συνημμένα να τα δείτε
Ειλικρινά σας ευχαριστώ πολύ
Αλεξάνδρα

Αλεξάνδρα καλησπερα

δωσε μου 2 μερες καιρο γιατι μολις γυρισα απο διακοπες και θα σου φτιαξω ακριβως αυτο που θελεις

αν ελυσες το προβλημα σου πες μου για να μην το κανω αδικα

φιλικα

Χαρης

Αλεξάνδρα, γεια σου
Άνοιξα το αρχείο giorgos.mdb που επισυνάπτεις και είδα ότι το κουμπί για την εναλλαγή της κατάστασης της φόρμας το ονομάζεις "εντολή7".
Έκανα την σχετική αλλαγή στον κώδικα και πιστεύω, αν το ανοίξεις τώρα, θα λειτουργεί σωστά.
Περιμένω νέα σου
Φιλικά/Γιώργος

Γιώργο καλημέρα,
Δεν επισύναπτεις το διορθωμένο αρχείο να το δούμε και εμείς...:cry4:



Φιλικά,
Μάρω

Καλημέρα στην παρέα

Μάρω της νύχτας τα καμώματα τα βλέπει η μέρα ....:sntoup:
Ανεβάζω το σχετικό αρχείο.

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