الاخوة الاعزاء مشرفين المنتدي
هل يمكن عمل كود معين للسجل التالى عن طريق مفتاح الكيبورد ( لوحة المفاتيح ) وليكن F1 او F2 او F3 كمثال
وماهى الطريقة لعمل ذلك
هل يمكن عمل مفتاح مخصص للكيبورد للتنقل بالسجلات
تفضل هذه المشاركة
/index.php?showtopic=213507&st=0&p=1057852&hl=%E3%DD%C7%CA%ED%CD&fromsearch=1entry1057852
بالتوفيق
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
الاخوة الاعزاء
انا مبتدئ فى الاكسيس هل يمكن شرح مبسط لعمل كود السجل التالى عن طريق مفتاح F2 كمثال
ويكون عن طريق كود برمجى وليس ماكرو حيث ان الماكرو يحدث به اخطاء فى التشغيل
عبده الطوخى كتب:الاخوة الاعزاء
انا مبتدئ فى الاكسيس هل يمكن شرح مبسط لعمل كود السجل التالى عن طريق مفتاح F2 كمثال
ويكون عن طريق كود برمجى وليس ماكرو حيث ان الماكرو يحدث به اخطاء فى التشغيل
يبدو ان لايوجد ردود على الاسئلة المطروحة بالمنتدى لانى لى سؤالين مطرحين بالمنتدى وليس هناك اى اجابات
وهذه اول مره تحدث فى المنتدى وليس كما تعودنا من اهل الخبرة ان يفيدونا باجاباتهم النموذجية العلمية
وكما ذكرت باننى اواجه مشكلة عويصة لانى استعملت قاعدة البيانات فى الشهر السابق وعند تطبيقها فى الشهر الحالى واجهتنى مشكلة فارجو منكم سرعة الرد جزاكم الله خيرا عنا
اخي الفاضل : عبده الطوخي
تفضل المثال بناء على طلبك
تنقل بين السجلات بالمفاتيح F1 ,F2 ,F3 ,F4
بإستخدام الكود التالي
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) On Error Resume Next Select Case KeyCode Case vbKeyF1: DoCmd.GoToRecord , , acFirst Case vbKeyF2: DoCmd.GoToRecord , , acNext Case vbKeyF3: DoCmd.GoToRecord , , acPrevious Case vbKeyF4: DoCmd.GoToRecord , , acLast End Select End Sub
ومن خصائص النموذج اجعل مفتاح العرض التمهيدي على نعم
بالتوفيق
المرفقات
zahrah كتب:اخي الفاضل : عبده الطوخي
تفضل المثال بناء على طلبك
تنقل بين السجلات بالمفاتيح F1 ,F2 ,F3 ,F4
بإستخدام الكود التالي
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) On Error Resume Next Select Case KeyCode Case vbKeyF1: DoCmd.GoToRecord , , acFirst Case vbKeyF2: DoCmd.GoToRecord , , acNext Case vbKeyF3: DoCmd.GoToRecord , , acPrevious Case vbKeyF4: DoCmd.GoToRecord , , acLast End Select End Subومن خصائص النموذج اجعل مفتاح العرض التمهيدي على نعم
بالتوفيق
بارك الله فيكى يا أخت زهرة على مرورك الطيب
والحل المطروح بمشاركتك هو انسب حل
لكى جزيل الشكر والاحترام