اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كيف اضيف اختصارات للنموذج ؟


GNMQ8

الردود الموصى بها

السلام عليكم ..

كيف أحوالكم شباب ...

سؤال بسيط الله لا يهينكم

رأيت هذه الحركة في برنامج آخر ولكن البرنامج كان محمي فلم أستطع أن آخذ هذه الحركة ...

الحركة تتلخص في أنه عند الضغط على مثلاً F2 أو F3 ... يذهب المؤشر إلى مربع نص معين أو يضغط زر معين ..

أرجوا أن تكون الفكرة واضحة ...

شكراً .

رابط هذا التعليق
شارك

السلام عليكم

في المرفق مثال للأستاذ أبو عقيل

فيه ما تطلب

الكود الذي يهمك هو :

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

Select Case KeyCode

Case vbKeyF2: DoCmd.OpenForm "f2"

Case vbKeyF3: DoCmd.OpenForm "f3"

Case vbKeyF4: DoCmd.OpenForm "f4"

Case vbKeyF5: DoCmd.OpenForm "f5"

Case vbKeyF6: DoCmd.OpenForm "f6"

End Select

End Sub

حيث قام الأخ أبو عقيل بتسمية نماذجه f2 f3 f4 f5

يمكنك أن تضع ما تريد مثلاً طباعة تقرير فتح تقرير تصفية إزالة تصفية

كما يمكنك أن تعمل ماكرو وتسميه autokeys حصراً

وتعمل ضمنه الأوامر التي تريد وهذه الطريقة تنفذ على كامل قاعدة البيانات أما الكود أعلاه فينفذ على النموذج الذي وضعت فيه الكود

ومرفق مثال عن ذلك أيضاً

________f1_to_f12.zip

autokeys.zip

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information