Πρώτα Βήματα - Βάσεις δεδομένων

Απ: Κλείσιμο φόρμας σε Access με το πλήκτρο Esc

manosB — Tue, 21 Jul 2009 19:12:55 GMT

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

Απ: Κλείσιμο φόρμας σε Access με το πλήκτρο Esc

Dimgks — Tue, 21 Jul 2009 17:31:44 GMT

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

Απ: Κλείσιμο φόρμας σε Access με το πλήκτρο Esc

manosB — Tue, 21 Jul 2009 15:45:37 GMT

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

Απ: Κλείσιμο φόρμας σε Access με το πλήκτρο Esc

Dimgks — Tue, 21 Jul 2009 00:26:38 GMT

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

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

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

Απ: Κλείσιμο φόρμας σε Access με το πλήκτρο Esc

Dimgks — Tue, 21 Jul 2009 00:11:37 GMT

Απ: Κλείσιμο φόρμας σε Access με το πλήκτρο Esc

manosB — Mon, 20 Jul 2009 21:10:14 GMT

Θα πας στα 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

Κλείσιμο φόρμας σε Access με το πλήκτρο Esc

Dimgks — Mon, 20 Jul 2009 19:42:17 GMT

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.

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

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