[kapetang]

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

Ρούλα στη ΒΔ, που επισυνάπτω, υπάρχει μια υλοποίηση του ζητούμενου.
Όταν είναι ανοιχτή η φόρμα «Πίνακας», πατώντας το συνδυασμό πλήκτρων Ctrl+1, θα καταχωρείται το κείμενο που θέλεις.

Για την επίτευξη αυτής της λειτουργίας:

1. Η ιδιότητα της φόρμας «Προεπισκόπηση πλήκτρων» (στο τέλος της καρτέλας συμβάν) ορίστηκε σε «Ναι».

2. Προστέθηκε ο παρακάτω κώδικας:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If (Shift And acCtrlMask) And KeyCode = vbKey1 Then
        Me.Note = "Η καταμέτρηση έγινε" & vbCrLf & "Αποτέλεσμα ΟΚ"
    End If
End Sub

Ρούλα, αυτό το φόρουμ διακρίνεται για την υπομονή του.
Όποτε χρειάζεσαι βοήθεια, μη το σκέφτεσαι .......

Γιώργος