استفاده از کليدهاي F

[saeidmohammadi-hesabdar]

با عرض سلام مجدد
يه سوؤال ديگه برام باقيمانده بود که الان به اون اشاره ميکنم اون هم نحوه کار با کليدهاي F1الي F12در برنامه هاي جهت انجام کارهاي بخصوصي در برنامه هاي اکسس است که اگه توضيحات لازم رو برام بذاريد.
باتشکر مجدد
حميدمحمدي

[dadsara]

سلام
این کلیدها و سایر کلیدها کد اسکی دارند شما کافی است در رخداد KeyDown آبجکت مربوطه با قرار دادن یک شرط و عملیات مورد نظر را انجام دهید

[payman_xxp]

با عرض سلام مجدد
يه سوؤال ديگه برام باقيمانده بود که الان به اون اشاره ميکنم اون هم نحوه کار با کليدهاي F1الي F12در برنامه هاي جهت انجام کارهاي بخصوصي در برنامه هاي اکسس است که اگه توضيحات لازم رو برام بذاريد.
باتشکر مجدد
حميدمحمدي
سلام
یه ماکرو بساز به اسم AutoKeys، بعدش در قسمت macro name هر کدوم از کلیدهای F1-F12 رو که میخواهید بصورت {F1} ... {F12} واردکنید، بنابه کاری که میخواهید انجام بدید از لیست action تابع اونو انتخاب کنید.
موفق باشید.

[saeidmohammadi-hesabdar]

جناب استاد عزيز
باسلام ايکار رو انجام دادم ولي در برنامه کار نکرد

[saeidmohammadi-hesabdar]

جناب Payamعزيز
آيا بجز ايجاد ماکرو فوق بايد کدي هم نوشته بشه يا نه ؟ ميشه لطف کني ونمونه بذاري

[payman_xxp]

سلام
یه ماکرو بساز به اسم AutoKeys، بعدش در قسمت macro name هر کدوم از کلیدهای F1-F12 رو که میخواهید بصورت {F1} ... {F12} واردکنید، بنابه کاری که میخواهید انجام بدید از لیست action تابع اونو انتخاب کنید.
عکس مسیر کار رو ببین، امیدوارم گویا باشه.
درتوضیح این عکس، تابع openForm انتخاب شده فرم FsearchMain ی که درست کردم رو باز میکنه.
هرتابع پارامترهای مخصوصه خودشو داره.
موفق باشید.

[wolfstander]

سلام
برای اکسس 2003 راهی نداره که بتونیم از کلید های F استفاده کنیم به این صورت؟

[RESMAILY]

به نام خدا
با سلام. از كدي شبيه به كد زير مي شود بصورت عمومي يا محلي(private) استفاده كرد. مثال است و بايد تغييرات دلخواه روي آن داده شود. اين كد برروي رويدا keydown يك فرم قرار دارد. انشااله به درد دوستان بخورد.

'HotKey
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
intCtl = Me.ActiveControl.ControlType
If KeyCode = 115 And intCtl = 111 Then Exit Sub
Select Case KeyCode
Case Is = 9 And Shift = 1: If IsOpen(("frmAgah_List")) Then DoCmd.OpenForm "frmAgah_List" 'Call OpnMain
Case Is = 112 And Shift = 0: Call Cmd_0_Click 'F1
Case Is = 112 And Shift = 1: Call OPEN_HELP((Me.Name)) 'Shift + F1
Case Is = 113: If Cmd_5.Enabled Then Call Cmd_5_Click 'F2
Case Is = 114 And Shift = 0: If Cmd_2.Enabled Then Call Cmd_2_Click 'F3
Case Is = 114 And Shift = 1: DoCmd.OpenForm "frm_Rooz_Change" 'Shift + F3
Case Is = 115 And Shift = 0: If Cmd_11.Enabled Then Call Cmd_11_Click 'F4
Case Is = 115 And Shift = 1: If Cmd_11.Enabled Then Call XCustemr 'Shift + F4
Case Is = 116 And Shift = 0: If Cmd_3.Enabled Then Call Cmd_3_Click 'F5
Case Is = 116 And Shift = 1: If Cmd_3.Enabled Then Call XRaygan 'Shift + F5
Case Is = 117: If Cmd_1.Enabled Then Call Cmd_1_Click 'F6
Case Is = 118 And Shift = 0: If Cmd_6.Enabled Then Call Cmd_6_Click 'F7
Case Is = 118 And Shift = 1: Call Cmd_Picture_Click 'Shift+F7
Case Is = 119: If Cmd_7.Enabled Then Call Cmd_7_Click 'F8
Case Is = 120 And Shift = 0: If Command91.Enabled Then Call Command91_Click 'F9
'Case Is = 120 And Shift = 1: Call RAYGAN_TRU ' ShiftF9
Case Is = 121: Call Command136_Click 'F10
Case Is = 122: If Command140.Enabled Then Call Command140_Click 'F11
Case Is = 123: If Command154.Enabled Then Call Command154_Click 'F12
End Select
Exit Sub
100:
MsgBox Err.Description & Err.Number
End Sub

[saeidmohammadi-hesabdar]

باتشکر از کليه دوستان عزيزبخاطر راهنمائي خوب و شايسته
البته يکي دو سؤال ديگه هم در همين رابطه دارم که ميخوام ضمن راهنمائي رفع ايراد هم بفرمائيد.
1- يکي از دوستان قبلاً به من گفته بود که هر زمان در تکس باکسي يا کامند باتوني بخواهم معادل اينکار رو انجام بده بايستي در Event - ON Got Focusيا Event- ON Lost Focus
هم ميشه چنين کدهايي رو نوشت که چنانجه اگردرست نيست لطف فرموده مجدداً راهنمائي بفرمائيد
2- سؤال دوم بنده اينکه که براي Save کردن اين تاپيک به عنوان يک Doument تلاش کردم ولي قسمت دستورهاي ذکر شده توسط دوست عزيزمان دچار مشکل شدم ميشه راهنمائي کنيد چطور اينکار رو انجام بدم.چون من فقط در محل کار دسترسي به اينتر نت پرسرعت دارم و براي انجام راهنمائيهاي لطف شده در خونه بايستي کار کنم.
ياعلي مدد
باتشکر حميدمحمدي

[wolfstander]

در مورد سوال آقای محمدی
1- خیر. شما باید در اونت Open Form این کد ها رو بنویسید تا در کل فرم اعمال بشه
مگر اینکه شما بخواید در یک تکست باکس خاص، مثلا کد معین ، دکمه F4 لیست معین ها و شرحشون رو از یک فرم دیگه فراخوانی کنی
اونوقت این کار امکانپذیره
در اونت On Key Press
2- شما کل صفحه رو انتخاب کنی
Ctrl+C
بعدش برو توی مایکروسافت ورد
Ctrl+V
کلش میره برات توی ورد

[انگوران]

سلام
برای اکسس 2003 راهی نداره که بتونیم از کلید های F استفاده کنیم به این صورت؟

بهرنگ جان، روشي كه آقا پيام گفتن تو اكسس 2003 هم جواب ميده.

[wolfstander]

سلام آقای انگوران
من نتونستم تو اکسس 2003
آخه وقتی که ماکرو باز میشه، یه قسمت داره به اسم Action و توش اطلاعات مختلفی داره
اینکه کجا بزنم {F3} رو معلوم نیست و من بلد نبودم
اگه زحمت نباشه و با یک عکس نمایش بدید ، ممنون میشم
وقت هم نکردیم بریم انتشاراتی، هی باید بیایم و سوال کنیم
ارادت فراوان

[انگوران]

سلام، در محيط طراحي ماكرو از منوي view و يا از نوار ابزار macro name رو انتخاب كن و عبارات دلخواره رو توش بنويس مثلا {f5} براي استفاده از كليدهاي تابعي و m^ براي استفاده از كليدهاي ميانبر مثل ctrl+m
عكس و نمونه زير رو ببينيد.