-
نحوه بستن فرم با زدن کلید Esc در اکسس
در این مطلب از آموزش اکسس قصد دارم تا شما را با بستن فرم با زدن کلید Esc آشنا کنم. فرض کنید بخواهید جهت تسریع در انجام کار توسط کاربر برنامه بجای استفاده از موس و کلیک بر روی دکمه خروج پنجره یا دکمه ای که برای این منظور درنظر گرفته شده است ؛ تنها با زدن کلید Esc که در قسمت بالا سمت چپ کیبورد قرار گرفته است ؛ فرم فعال برنامه را بسته و از آن خارج شوید.
برای انجام اینکار کافی است بدانید که در محیط برنامه نویسی VBA دستوری بنام KeyCode وجود دارد که از طریق آن این امکان وجود دارد تا با معرفی شورت کد مربوط به هر شاسی از صفحه کلید کار خاصی انجام شود. در این مثال آموزشی ما از عبارت “vbKeyEscape” جهت بستن فرم فعال استفاده خواهیم کرد. پس در رویداد On Key Down فرم خود در حالتی که خاصیت Key Preview فرم روی Yes تنظیم شده است ؛ کدهای زیر را قرار میدهیم.
If KeyCode = vbKeyEscape Then DoCmd.Close End If
حالا با اجرای فرم ، ملاحظه خواهید نمود که با فشردن کلید Esc از روی کیبورد ، فرم فعال بصورت خودکار بسته خواهد شد ؛ حالا اگر قصد داشته باشیم ؛ قبل از خروج از فرم یک سوال مبنی بر اطمینان وی از خروج از فرم پرسیده شود ؛ کافی است دستور بشکل زیر آپدیت شود.
If KeyCode = vbKeyEscape Then If MsgBox(" آيا قصد خروج داريد؟ ", vbMsgBoxRight + vbYesNo + _ vbQuestion, "توجه") = vbNo Then Me.Undo Else DoCmd.Close acForm, "form1" End If End If