بستن فرم با کلید esc

[مهدی قربانی]

دوستان سلام ـ آیا خاصیتی در اکسس وجود داره که با فعال کردن اون بشه با کلید esc فرم روبست ؟

سلام
دوست عزیز با KeyCode میشه این عملیات رو انجام داد البته به جای VbEscape می تونید از مقدار (ASCII) اون که 27 هست استفاده کنید . اینم کد خدمت شما :

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

If KeyCode = vbKeyEscape Then

DoCmd.Close

End If

End Sub

یا

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

If KeyCode = 27 Then

DoCmd.Close

End If

End Sub