|
Προγραμματιζόμενα πλήκτρα FUNCTION Για ακόμα μία φορά ζητάω την βοήθεια . Εάν υπάρχει λίστα με τί εργασία κάνουν τα F1-F2-F3 ΚΛΠ και εαν αλλάζουν |
Καλησπέρα ... Δήμο κάνε τα παρακάτω : Φέρε την φόρμα σε περιβάλλον σχεδίασης και στην καρτέλα της φόρμας 'Συμβαντα' επέλεξε ΝΑΙ στην ιδιότητα "Key Preview" Στην ίδια καρτέλα και στο συμβάν "On Key Down"γράψε κάτι σαν αυτό εδώ Κώδικας: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Το πλήκτρο F1 είναι το κάλεσμα της βοήθειας. Με την εντολή KeyCode = 0 γίνεται απενεργοποίηση αυτής της ικανότητας του πλήκτρου. Τα υπόλοιπα function keys δεν ξέρω τι ρόλο παίζουν... Αυτά φίλτατε / Νίκος Δ. Υστερολόγιο : η κάψα στο τηλέφωνό μου είναι μικρή (1 cm περίπου διάμετρο, χωρίς "αυτιά"), οπότε δεν μπόρεσα να κάνω τίποτε, για να διορθώσω τον θόρυβο. Πάει για ανακύκλωση ; |
Νίκο σε ευχαριστώ με το (Με την εντολή KeyCode = 0) με κάλυψες. Εάν πατούσα F5 και μετά το F6 πού το έχω δηλώσει για αποθήκευση με πέταγε λάθος. υγ ( Κάψα με αυτιά δεν υπάρχει συνήθως έχουν 2 ποδαράκια που πάνε τα καλώδια πάτα το με μία πένσα απο έξω δύο φορές σταυρωτά. Αλλιώς μιλάμε στο τηλέφωνο, δεν θέλει πέταμα. ) |
Αντί να μηδενίζω σε κάθε φόρμα τα function κουμπιά , μήπως είναι καλύτερα να βάλω το μηδένισμα σε μία μονάδα και νά την καλώ σε κάθε άνοιγμα φόρμας, |
Καλησπέρα Δήμο! Ρίξε μια ματιά στον παρακάτω σύνδεσμο http://office.microsoft.com/el-gr/ac...886.aspx?CTT=1 ή στη βοήθεια του προγράμματος σου ("Συντομεύσεις πληκτρολογίου"). Είναι καλό να γνωρίζεις τί υπάρχει και τι απενεργοποιείς όταν επεμβαίνεις προγραμματιστικά. Κατά τη γνώμη μου θα πρέπει να φτιάξεις μια μακροεντολή με το όνομα AutoKeys (όνομα που αναζητείται από την Access κατά την εκκίνηση) όπου με τρόπο που εξηγείται στον παρακάτω σύνδεσμο: http://www.ms-office.gr/forum/access....html#post1095, μπορείς να αντιστοιχήσεις τα (μη δεσμευμένα) πλήκτρα της Access σε συναρτήσεις ή άλλες μακροεντολές στη βάση. Αν θέλεις κάτι διαφορετικό, απλά γράψε στο φόρουμ. Φιλικά Τάσος |
Καλησπέρα σέ όλους . Τάσο εχω βάλει τον παρακάτω κώδικα σε όλλες τις φόρμες Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF1 Then KeyCode = 0 If KeyCode = vbKeyF2 Then KeyCode = 0 If KeyCode = vbKeyF3 Then KeyCode = 0 ' If KeyCode = vbKeyF4 Then KeyCode = 0 If KeyCode = vbKeyF5 And Me.ΑΝΑΝΕΩΣΗΟΘΩΝΗΣ.Enabled = True Then Call ΑΝΑΝΕΩΣΗ If KeyCode = vbKeyF7 Then KeyCode = 0 If KeyCode = vbKeyF8 Then KeyCode = 0 If KeyCode = vbKeyF9 Then KeyCode = 0 If KeyCode = vbKeyF10 Then KeyCode = 0 If KeyCode = vbKeyF11 Then KeyCode = 0 If KeyCode = vbKeyF12 Then KeyCode = 0 If KeyCode = vbKeyEscape Then DoCmd.Close End Sub Και δεν ξέρω πώς μπορώ να τον γράψω μία φορά και νά τον καλώ από διάφορα σημεία υγ μήπως η ώρα που δείχνει το forum είναι λάθος ? |
| Η ώρα είναι 21:46. |
Ms-Office.gr - ©2000 - 2024, Jelsoft Enterprises Ltd.