Δύο σειρές σε υπόμνημα με VBA

[Ρούλα]

Καλησπέρα σε όλους
Καιρό είχα να παρακολουθήσω λόγω φόρτου εργασίας αλλά από εκεί που αντλείς μάθηση επιστρέφεις και ξανά αντλείς. Επέστρεψα και θα ήθελα να παρακαλέσω
Μέσο του φόρουμ πώς θα μπορούσε να γίνει σε ένα πεδίο τύπου υπόμνημα πατώντας το 1 να εγγράφονται σε δύο διαφορετικές γραμμές (π.χ)
Η καταμέτρηση έγινε
Αποτέλεσμα ΟΚ
Εκ των προτέρων ευχαριστώ όλους και ιδιαίτερα τον Γιώργο που με υπομονή με ανέχτηκε

[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

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

Γιώργος

[Ρούλα]

Πολλές φορές από λεπτότητα δεν θέλω να κουράζω κάποιους.
Πάντως σε ευχαριστώ άλλη μια φορά και νιώθω αφάνταστα υπόχρεη.
Να είστε καλά όλοι
Με εκτίμηση.
Ρούλα