Normal 0 false false false MicrosoftInternetExplorer4 /* Style Definitions */ table.MsoNormalTable {mso-style-name:"Κανονικός πίνακας"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-parent:""; mso-padding-alt:0cm 5.4pt 0cm 5.4pt; mso-para-margin:0cm; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:10.0pt; font-family:"Times New Roman"; mso-ansi-language:#0400; mso-fareast-language:#0400; mso-bidi-language:#0400;}

Παρακαλώ πολύ χρειάζομαι την βοήθεια σας.

Θέλω να κλείνω μια φόρμα στην Access πατώντας το πλήκτρο Esc.

Είμαι σχετικά καινούργιος.

 

Ευχαριστώ εκ των προτέρων

Θα πας στα Properties της φόρμας σε design view θα βρεις το keyup event (στο tab με τα events) και διαλέξεις την επιλογή για κώδικα VBA και θα γράψεις το πολύ απλό:

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

If KeyCode = 27 Then
 
      DoCmd.Close
End If

End Sub

---

Manos

Κατ΄αρχήν ευχαριστώ που απάντησες

δεν λειτουργεί στις φόρμες που έχουν πεδία καταχώρησης

λειτουργεί σε φόρμα View

Κατ΄αρχήν ευχαριστώ που απάντησες

δεν λειτουργεί στις φόρμες που έχουν πεδία καταχώρησης

λειτουργεί σε φόρμα View

Μια quick and dirty Λύση είναι να βάλεις το παρακάτω κώδικα στο keyup event και των controls.  Δοκίμασε πριν το βάλεις σε όλα τα textboxes να πας αφαιρετικά. Βάλτο δηλαδή στο Detail πρώτα. Δες αν δουλεύει σε κάποιο Panel. Αν δεν δουλεύει σε κανένα από αυτά multiselect όλα τα textboxes και place your code there.

---

Manos

Ευχαριστώ πολύ λειτουργεί
όμως σε φόρμες που είναι για νέα καταχώρηση κάνει undo όλα τα πεδία της

Καλά κάνει. By design γίνεται αυτό και αυτό περιμένει και ο χρήστης. Υπάρχει τρόπος να το ξεπεράσεις (πιάνοντας π.χ το UnDo event του Textbox) αλλά δεν στο προτείνω με τίποτα.

---

Manos