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

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Δύο σειρές σε υπόμνημα με VBA (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/1458-dio-seires-se-ypomnima-me-visual-basic-applications.html)

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

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

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

Ρούλα στη ΒΔ, που επισυνάπτω, υπάρχει μια υλοποίηση του ζητούμενου.
Όταν είναι ανοιχτή η φόρμα «Πίνακας», πατώντας το συνδυασμό πλήκτρων 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

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

Γιώργος

Καλλημέρα σας

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