PDA

View Full Version : تخصیص فرمانی به یک کلید



mhamedm2008
چهارشنبه 02 فروردین 1391, 14:47 عصر
با سلام
چطور می تونم کاری کنم که مثلا از کلید F5 و یا F5+ctrl رو زدم فرمان خاصی اجرا بشه
با تشکر
منتظر هستم

aromega65
چهارشنبه 02 فروردین 1391, 17:25 عصر
دوست من یه ماکرو با نام Autokeys بساز
و SYNTAX هر کلیدی رو که میخوای اونجا بیار و براش تعریف کن که چیکار کنه
تو help اکسس هست ولی بعضی از کلیدها مثل تصویر زیر باید بکار برده بشن
8450984510

mhamedm2008
چهارشنبه 02 فروردین 1391, 19:20 عصر
اگه بخوام یه تابع رو فراخوانی بکنم چی؟؟با ماکرو که نمیشه تابع فراخوانی کرد

aromega65
چهارشنبه 02 فروردین 1391, 19:38 عصر
میشه فراخوانی کرد
تو گزینه های ماکرو RunCode رو انتخاب کن و نام تابعی که میخوای فراخوانی کنی را بنویس و بعد یه () تایپ کن. یا مطابق شکل زیر عمل کن
84514
1-تو گزینه های ماکرو RunCode رو انتخاب کن
2-روبروی کادر Function name روی دکمه ... کلیک کن
3-روی + Function کلیک کن
4-از Function پروژه خودتو انتخاب کن
5-در قسمت مقابل نام همه ماژول های پروژه خوتو میبینی >ماژولی که تابع مورد نظر اونجا نوشته شده رو انتخاب کن
6-نام تابع مورد نظر رو انتخاب کن و روش دابل کلیک کن
7-در کادر سفید بالای فرم دستور مورد نظر بطور خودکار تولید میشه
8-روی OK کلیک کن و ماکرو رو ذخیره کن

mhamedm2008
پنج شنبه 03 فروردین 1391, 00:24 صبح
ممنون از جوابت.حالا اگه بخ.ام با زدن کلیدی تیک رو بردارم چی؟؟ یا تکس باکسی را هاید کنم
مثل :

check2=true

or

Text25.visible=true

ATA_TABRIZ
پنج شنبه 03 فروردین 1391, 10:35 صبح
با سلام
ميتونيد تو On key Down فرم بنويسي
مثال

If KeyCode = vbKeyF2 Then
DoCmd.GoToRecord , , acNext
endif


بين if و endif هر چي مي خواي ميتوني برنامه نويسي كني كه با زدن كليد f2 اون برنامه را اجرا ميكنه فقط حتما بايد key priview را yes كنيد

Rasool-GH
پنج شنبه 03 فروردین 1391, 10:51 صبح
سلام
دوست عزيز ليست كدهاي VB براي كليه كليدهاي كيبرد رو ميتونيد بديد

mhamedm2008
جمعه 04 فروردین 1391, 00:20 صبح
من اگه توی On key Down فرم بنویسم این کد کار نمیکنه.فقط اگه توی On key Down یه تکس باکس خاص بنویسیم و مکان نما هم توی همون تکس باکس باشه کار می کنه.چی پیشنهاد میدین؟؟

ctrl + F2 یا با شبفت چی؟؟ لیست کامل کدها رو دارین؟؟ممنون

aromega65
چهارشنبه 16 فروردین 1391, 20:55 عصر
سلام دوست من
منظورتون از لیست کامل چیه؟
تو نمونه ای که قبلا گذاشتم نمونه کلیه کلیدها هست

حالا اگه بخ.ام با زدن کلیدی تیک رو بردارم چی؟؟ یا تکس باکسی را هاید کنم
اگه نمونه مثالتون بصورت یه اونت پابلیک (Public Sub hidkey()

End Sub
)
تعریف کرده باشید و تو فرم خاصی باشه
میتونید تعریف کنید که با فشار دادن کلید های تعریف شده کد مورد نظر اجرا بشه
اگه مایل بودی برات نمونه تهیه میکنم