Ανανέωση ιστοσελίδας
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Απενεργοποίηση πλήκτρου & Μερικό Κλείδωμα

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 08-02-10, 09:38
Όνομα: Χρήστος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 24-01-2010
Περιοχή: Φλώρινα
Μηνύματα: 164
Προεπιλογή Απενεργοποίηση πλήκτρου & Μερικό Κλείδωμα

Τελικά μια βάση μου φαίνεται πώς ποτέ δεν τελειώνει…

Χθες υπολόγιζα πώς τελείωσα και στο τέλος μου δημιουργήθηκαν κάποια προβληματάκια το ένα με ενοχλεί αρκετά και δεν ξέρω πώς να το ξεπεράσω, τα άλλα είναι δευτερεύουσας σημασίας…

1) Και κυριότερο ένα πλήκτρο που ενεργοποιεί μια μακροεντολή δεν επανέρχεται στην προηγούμενη κατάσταση μένει ας πούμε ενεργοποιημένο και εφόσον πάω στο επόμενο μισθωτό μου τυπώνει κατευθείαν και αυτόν χωρίς να προλάβω να επεξεργαστώ τίποτα..
Αυτό το πλήκτρο είναι πολύ σπαστικό…

2) Έχω βάλει ένα ημερολόγιο όπου από αυτό γράφω ημερομηνίες, το θέμα είναι πώς η προεπιλεγμένη ημερομηνία του ημερολογίου μπαίνει από τις ιδιότητες του ημερολογίου και πρέπει κάθε μήνα να την αλλάζω, δεν παίρνει αυτόματα την σημερινή με κάποια ρύθμιση..

3) Αυτό μου φαίνεται δύσκολο και για αυτό το άφησα τελευταίο..
Μπορώ να κλειδώσω κάποια πλαίσια κειμένου σε μια φόρμα όχι όμως όλα
Και με κάποιο κρυφό πλήκτρο να τα ξεκλειδώνω μια και αυτό θα γίνεται σπάνια…

Πάντως εάν λύσω το θέμα του πλήκτρου θα αρχίσω να δουλεύω την βάση..
Ευχαριστώ για όλη την βοήθεια που μου δώσατε για την κατασκευή της
Απάντηση με παράθεση
  #2  
Παλιά 08-02-10, 11:19
Όνομα: Γιώργος Καψάλης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 18-11-2009
Μηνύματα: 62
Προεπιλογή

Καλημερα Free_Ghost

όσο αφορα το 1ο ερώτημα δεν έχω καταλάβει τη ακριβώς 8ες...

στο 2ο τώρα =date() η now() τις έχει δοκιμάσει..?

και στο 3ο
Εγώ σε αυτό το κοματι χρισιμοποιώ μια ετικέτα στο χρώμα της φόρμας.. την βάζω σε ένα πονηρό σημείο και που δεν φένετε αφού έχει ακριβός το χρώμα τις φόρμας.. και με την εντολή cklik κάνει κάποια πράγματα..!!

Ευχομαι να βοήθησα

Γιώργος
Απάντηση με παράθεση
  #3  
Παλιά 08-02-10, 11:55
Όνομα: Χρήστος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 24-01-2010
Περιοχή: Φλώρινα
Μηνύματα: 164
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από Giorgos Εμφάνιση μηνυμάτων
Καλημερα Free_Ghost

όσο αφορα το 1ο ερώτημα δεν έχω καταλάβει τη ακριβώς 8ες...

Γιώργος
Καταρχάς σε χαιρετώ φίλε μου...
Το πρόβλημα είναι πώς κάνω κλικ στο πλήκτρο εκτελή την εργασία και συνεχίζει να παραμένει πατημένο... δεν έρχεται στην προηγούμενη θέση προ του πατήματος....

Παράθεση:
Αρχική Δημοσίευση από Giorgos Εμφάνιση μηνυμάτων
Καλημερα Free_Ghost
στο 2ο τώρα =date() η now() τις έχει δοκιμάσει..?
Γιώργος
Το =date() και το now() δοκίμασα να τα βάλω στις ιδιότητες του ημερολογίου και δεν παίρνει τίποτα απο αυτά...

Παράθεση:
Αρχική Δημοσίευση από Giorgos Εμφάνιση μηνυμάτων
Καλημερα Free_Ghost
και στο 3ο
Εγώ σε αυτό το κοματι χρισιμοποιώ μια ετικέτα στο χρώμα της φόρμας.. την βάζω σε ένα πονηρό σημείο και που δεν φένετε αφού έχει ακριβός το χρώμα τις φόρμας.. και με την εντολή cklik κάνει κάποια πράγματα..!!
Γιώργος
Ακρίβως αυτή η εντολή click ?????
Απάντηση με παράθεση
  #4  
Παλιά 08-02-10, 12:00
amy Ο χρήστης amy δεν είναι συνδεδεμένος
Όνομα: Ανδρέας
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 12-11-2009
Περιοχή: Πάτρα
Μηνύματα: 41
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από Free_Ghost Εμφάνιση μηνυμάτων
Καταρχάς σε χαιρετώ φίλε μου...
Το πρόβλημα είναι πώς κάνω κλικ στο πλήκτρο εκτελή την εργασία και συνεχίζει να παραμένει πατημένο... δεν έρχεται στην προηγούμενη θέση προ του πατήματος....



Το =date() και το now() δοκίμασα να τα βάλω στις ιδιότητες του ημερολογίου και δεν παίρνει τίποτα απο αυτά...



Ακρίβως αυτή η εντολή click ?????
"παίζεις" με τα enable, visible κλπ
Απάντηση με παράθεση
  #5  
Παλιά 08-02-10, 13:11
Jim Ο χρήστης Jim δεν είναι συνδεδεμένος
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 25-01-2010
Μηνύματα: 50
Προεπιλογή Καλλημέρα Φίλε μου

Private Sub Ονομα_AfterUpdate()
Forms!ΟνομαΦόρμας!ΟνομαΠεδίο .Locked = True
End Sub

Private Sub ΟνομΠεδίου_DblClick(Cancel As Integer)
Forms!Ονομαφόρμας!ΟνομαΠεδίο .Locked = False
End Sub

Επιλέγεις το πεδίο που θέλεις να κλειδώσεις πας Ιδιότητες , Συμβάν , Μετά από ενημέρωση Βάζεις Διαδικασία Συμβάντος πατάς το κουμπάκι με τις τελίτσες
Και κολλάς τον κώδικα τον 1ο Στον δεύτερο κώδικα γιά ξεκλείδωμα το ίδιο πάλι αλλά στο DblClick
Αν και νέος προχθές το έμαθα οφείλω να το μεταδώσω ξέρω τι είναι να περιμένεις Στην αναμονή
Φιλικά Δημήτρης

Τελευταία επεξεργασία από το χρήστη Jim : 08-02-10 στις 14:00.
Απάντηση με παράθεση
  #6  
Παλιά 08-02-10, 13:34
Όνομα: Χρήστος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 24-01-2010
Περιοχή: Φλώρινα
Μηνύματα: 164
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από Jim Εμφάνιση μηνυμάτων
Private Sub Ονομα_AfterUpdate()
Forms!ΟνομαΦόρμας!ΟνομαΠεδίο .Locked = True
End Sub

Private Sub ΟνομΠεδίου_DblClick(Cancel As Integer)
Forms!Ονομαφόρμας!ΟνομαΠεδίο .Locked = False
End Sub

Επιλέγεις το πεδίο που θέλεις να κλειδώσεις πας Ιδιότητες , Συμβάν , Μετά από ενημέρωση Βάζεις Διαδικασία Συμβάντος πατάς το κουμπάκι με τις τελίτσες
Και κολλάς τον κώδικα τον 1ο Στον δεύτερο κώδικα γιά ξεκλείδωμα το ίδιο πάλι αλλά στο DblClick
Αν και νέος προχθές το έμαθα οφείλω να το μεταδώσω ξέρω τι είναι να περιμένεις Στην αναμονή
Φιλικά Δημήτρης
Φίλε δημήτρη το πέταξες σαν κεραυνό...
Στο μύνημα σου φαίνονται μόνο οι δύο πρώτες γράμμες πήγα να κάνω παράθεση και ερώτηση και βγήκαν όλα κάτσε να τα μελετήσω...
Απάντηση με παράθεση
  #7  
Παλιά 08-02-10, 14:09
Jim Ο χρήστης Jim δεν είναι συνδεδεμένος
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 25-01-2010
Μηνύματα: 50
Προεπιλογή Φίλε μου

roular88 at freemail in gr

Τελευταία επεξεργασία από το χρήστη Tasos : 08-02-10 στις 14:54. Αιτία: Προστασία από μηχανές Spam
Απάντηση με παράθεση
  #8  
Παλιά 08-02-10, 15:03
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.011
Προεπιλογή

Αγαπητέ Χρήστο,
αν μπορείς, σέ ένα αντίγραφο της βάσης σου βάλε μερικές παραδειγματικές εγγραφές,
συμπίεσε το με ZIP και ανέβασε το εδώ στο φόρουμ για να δουμε τι συμβαίνει και να σε βοηθήσουμε καλύτερα.

Φιλικά

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση
  #9  
Παλιά 08-02-10, 20:54
Όνομα: Χρήστος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 24-01-2010
Περιοχή: Φλώρινα
Μηνύματα: 164
Προεπιλογή

Φίλοι μου ευχαριστώ άλλη μια φορά για την βοήθεια σας.. τη να πώ..

Λοιπόν ώς προς το πρώτο θα είχα κάνει κάποια βλακεία στα κουμπιά (12) και δεν δούλευαν σωστά ...
Σβήνω το ένα και το αντικαθιστώ με ένα καινούργιο και μέσα από τον οδηγό της Access το καθοδηγώ να ανοίγει την συγκεκριμένη μακροεντολή και δούλεψε θαυμάσια.. Μάλλον κάποια χοντρή κοτσάνα είχα κάνει..

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

Private Sub Ονομα_AfterUpdate()
Forms!ΟνομαΦόρμας!ΟνομαΠεδίο .Locked = True
End Sub

Κατόπιν μπορείς πάλι στο ίδιο πεδίο να πάς Ιδιότητες Συμβάν και εκεί επιλέγεις με ποιά ενέργεια θα ξεκλειδώνει.. π.χ. με διπλό κλίκ.. πάς στις τελίτσες δεξιά επιλέγεις δόμηση κώδικα και βάζεις το παρακάτω..

Private Sub Κείμενο0_DblClick(Cancel As Integer)
Forms!F_Εισαγωγή_M!Κείμενο0.Locked = False
End Sub

Βέβαια μπορεί εμείς να θέλουμε με το που ανοίγει η φόρμα να είναι κλειδωμένα ορισμένα πεδία.. Τότε πάμε σε κάθε πεδίο ιδιότητες / δεδομένα και στο κλειδωμένο βάζουμε ναι..

Κατόπιν στο ξεκλείδωμα για να μην παίζουμε σε κάθε πεδίο βάζουμε ένα πλήκτρο σε μια παράξενη κρυφή θέση πάμε και σε αυτό στις ιδιότητές/συμβάν/διπλό κλίκ και επιλέγουμε δόμηση κώδικα εκεί βάζουμε τον ίδιο κώδικα για όσα πεδία έχουμε κλειδώσει..π.χ.

Private Sub Εντολή154_DblClick(Cancel As Integer)

Forms!ΟνομαΦόρμας!ΟνομαΠεδίο 1.Locked = False
Forms!ΟνομαΦόρμας!ΟνομαΠεδίο 2.Locked = False
Forms!ΟνομαΦόρμας!ΟνομαΠεδίο 3.Locked = False

End Sub

Τέλος στο κουμπί πάμε Ιδιότητες/Μορφή/Διαφανές/Ναι
Για να μην το βλέπουν και μόνο εμείς να ξέρουμε που είναι...

Τέλος μου μένει ένα πρόβλημα η Ημερομηνία του ημερολογίου..
Πρέπει να την κάνω τουλάχιστον να συμβαδίζει με τον μήνα...
Help
Απάντηση με παράθεση
  #10  
Παλιά 08-02-10, 20:57
Όνομα: Χρήστος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 24-01-2010
Περιοχή: Φλώρινα
Μηνύματα: 164
Προεπιλογή

Δεν ξέρω τη γίνεται και τα μυνήματα κόβουνται...

Σε παράθεση βγαίνει ολόκληρο ????

πώς θα το πούμε του συντονιστή..
Απάντηση με παράθεση
Απάντηση στο θέμα


Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[ Φόρμες ] Συμπεριφορά Πλήκτρου Enter posidonas Access - Ερωτήσεις / Απαντήσεις 2 17-02-14 22:17
[ Ερωτήματα ] Μερικό άθροισμα mousatos Access - Ερωτήσεις / Απαντήσεις 7 10-11-13 17:58
[ Ερωτήματα ] Μερικό άθροισμα octapus Access - Ερωτήσεις / Απαντήσεις 10 11-10-13 11:58
[Γενικά] Διαχείριση πλήκτρου Tab Spirosgr Excel - Tips & Tricks 0 20-05-12 09:59
[ Φόρμες ] Μερικό άθροισμα lammis Access - Ερωτήσεις / Απαντήσεις 2 06-10-11 12:41


Η ώρα είναι 07:19.