Ανανέωση ιστοσελίδας
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > [ Συναρτήσεις ] Προγραμματιζόμενα πλήκτρα FUNCTION

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 20-10-10, 16:56
Όνομα: Δήμος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 06-01-2009
Περιοχή: ΛΑΡΙΣΑ
Μηνύματα: 70
Προεπιλογή Προγραμματιζόμενα πλήκτρα FUNCTION

Για ακόμα μία φορά ζητάω την βοήθεια . Εάν υπάρχει λίστα με τί εργασία κάνουν τα F1-F2-F3 ΚΛΠ
και εαν αλλάζουν
Απάντηση με παράθεση
  #2  
Παλιά 20-10-10, 18:11
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.033
Προεπιλογή

Καλησπέρα ...
Δήμο κάνε τα παρακάτω :
Φέρε την φόρμα σε περιβάλλον σχεδίασης και στην καρτέλα της φόρμας 'Συμβαντα' επέλεξε ΝΑΙ στην ιδιότητα "Key Preview"

Στην ίδια καρτέλα και στο συμβάν
"On Key Down"γράψε κάτι σαν αυτό εδώ

Κώδικας:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode

        Case vbKeyF1
            KeyCode = 0
            MsgBox "F1 πάτησες"

        Case vbKeyF2
            'KeyCode = 0
            MsgBox "F2 πάτησες"

        Case vbKeyF3
            'KeyCode = 0
            MsgBox "F3 πάτησες"
    End Select
End Sub


Το πλήκτρο F1 είναι το κάλεσμα της βοήθειας. Με την εντολή
KeyCode = 0 γίνεται απενεργοποίηση αυτής της ικανότητας του πλήκτρου.
Τα υπόλοιπα function keys δεν ξέρω τι ρόλο παίζουν...

Αυτά φίλτατε / Νίκος Δ.

Υστερολόγιο : η κάψα στο τηλέφωνό μου είναι μικρή (1 cm περίπου διάμετρο, χωρίς "αυτιά"), οπότε δεν μπόρεσα να κάνω τίποτε, για να διορθώσω τον θόρυβο. Πάει για ανακύκλωση ;




Απάντηση με παράθεση
  #3  
Παλιά 21-10-10, 15:16
Όνομα: Δήμος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 06-01-2009
Περιοχή: ΛΑΡΙΣΑ
Μηνύματα: 70
Προεπιλογή

Νίκο σε ευχαριστώ με το (Με την εντολή KeyCode = 0) με κάλυψες.
Εάν πατούσα F5 και μετά το F6 πού το έχω δηλώσει για αποθήκευση με πέταγε λάθος.

υγ ( Κάψα με αυτιά δεν υπάρχει συνήθως έχουν 2 ποδαράκια που πάνε τα καλώδια πάτα το με μία πένσα απο έξω δύο φορές σταυρωτά. Αλλιώς μιλάμε στο τηλέφωνο, δεν θέλει πέταμα. )
Απάντηση με παράθεση
  #4  
Παλιά 24-10-10, 12:59
Όνομα: Δήμος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 06-01-2009
Περιοχή: ΛΑΡΙΣΑ
Μηνύματα: 70
Προεπιλογή

Αντί να μηδενίζω σε κάθε φόρμα τα function κουμπιά , μήπως είναι καλύτερα να βάλω το μηδένισμα σε μία μονάδα και νά την καλώ σε κάθε άνοιγμα φόρμας,
Απάντηση με παράθεση
  #5  
Παλιά 24-10-10, 13:43
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.011
Προεπιλογή

Καλησπέρα Δήμο!
Ρίξε μια ματιά στον παρακάτω σύνδεσμο
http://office.microsoft.com/el-gr/ac...886.aspx?CTT=1
ή στη βοήθεια του προγράμματος σου ("Συντομεύσεις πληκτρολογίου").
Είναι καλό να γνωρίζεις τί υπάρχει και τι απενεργοποιείς όταν επεμβαίνεις προγραμματιστικά.

Κατά τη γνώμη μου θα πρέπει να φτιάξεις μια μακροεντολή με το όνομα AutoKeys
(όνομα που αναζητείται από την Access κατά την εκκίνηση) όπου με τρόπο που εξηγείται στον παρακάτω σύνδεσμο:
http://www.ms-office.gr/forum/access....html#post1095,
μπορείς να αντιστοιχήσεις τα (μη δεσμευμένα) πλήκτρα της Access σε συναρτήσεις ή άλλες μακροεντολές στη βάση.

Αν θέλεις κάτι διαφορετικό, απλά γράψε στο φόρουμ.

Φιλικά

Τάσος

__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση
  #6  
Παλιά 24-10-10, 20:07
Όνομα: Δήμος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 06-01-2009
Περιοχή: ΛΑΡΙΣΑ
Μηνύματα: 70
Προεπιλογή

Καλησπέρα σέ όλους .
Τάσο εχω βάλει τον παρακάτω κώδικα σε όλλες τις φόρμες
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 είναι λάθος ?

Τελευταία επεξεργασία από το χρήστη pdhmos : 24-10-10 στις 20:30.
Απάντηση με παράθεση
Απάντηση στο θέμα

Ετικέτες
autokeys


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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Μήνυμα λάθους: sub or function not defined gantzinis Access - Ερωτήσεις / Απαντήσεις 8 27-08-11 19:05
Function IIF Deminio Access - Ερωτήσεις / Απαντήσεις 1 04-03-09 18:39


Η ώρα είναι 20:46.