بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته وبعد
عندي سؤال اتمنى أن أجد الإجابة في أحضان منتداكم الذي استقيت منكم الكثير وفقكم الله جميها
* المطلوب هو انشاء كود يقوم بإخفاء زر أمر في حال وصل المتصفح للسجلات للسجل الأخير
وشاكر لكم تعاونكم جميعا
أخي الفاضل
بعد التحية
يا ليت ترفق القاعدة حتى نستطيع مساعدتك.
[يمين]
إذا كـان تـرك الـدين يعــنــي تقــدمــاً
فـيا نفــس مـوتــي قبــل أن تتقـدمــي
[/يمين]
ما يحتاج أخي الكريم لأن العمل بعد لم يكتمل
المطلوب فقط : كود عام لإخفاء زر أمر عند وصول مستعرض السجلات على النموذج الأساسي إلى السجل الأخير ، ويعاود الظهور عند العودة للسجلات السابقة خلاف السجل الأخير ؟؟
وسيتم ارفاق نموذج توضيحي ان لم تصل الفكرة
شكرا لكرمك أخي كمال
أخي المبارك ...
أحياناً لايكون السؤال واضحاً بالقدر الكافي ... فمن الأفضل أن ترسل طلبك لكي يقوموا الإخوة بمحاولة التعديل عليه.
وليس بالضروري إرسال كل القاعدة ... وإنما قم بإنشاء قاعدة بيانات لاتحتوي إلا على جدول واحد أو حسب ماتراه مناسباً...
ولك مني جزيل الشكر
تفضل اخي الكريم
جرب هذا المثال وقم بالتنقل بين السجلات وانظر لزر الأمر متى يختفي ومتى يعود لوضعه الطبيعي
ألف ألف ألف شــــــــــــــــــــــــــــــكر أخت زهرة
بالململيمتر تماماً هذا هو المطلوب
لاتكفي كلمة شكر بحقكم جميعاً
دعواتي لكم بالتوفيق والنجاح الدائم
وأن تعتبروني أخ لكم في هذا المنتدى المتجدد
كتب لك الخير أختي zahrah ولجميع الأخوة
أخوكم
ممكن طلب آخر -waf
الكود الذي تم عملة يقوم بإخفاء الزر في السجل الجديد NewRecord
حاولت أن اعدله ليقوم بالإخفاء للزر عند السجل الأخير acLast
لكن لم أصل هل لديكم استطاعه لذلك ؟
الأخت زهرة ومن جميع الأعضاء وفقكم الله وزادكم علماً وجعل النور في بصائركم
لقد عملت مشرفتنا الغالية زهرة طريقة الغاء عجلة الماوس وانا استخدمها في برامجي ...
المراد ان يتم الغاء زري PgUp و PgDn الصفحة العليا والصفحة السفلي ليكون تحريك السجلات عن طريق ازرار مخصصة فقط من قبل المبرمج ؟
ثانياً أود منكم جميعاً التكرم بالرد على ما اعجزني وهو الغاء تفعيل زر أو اخفاءه سيان الامر عند التحرك للسجل الأخير وليس للسجل الجديد مثل ما عمل سابقاً ؟؟
وانا اعلم ان كل هذا ليس بالصعب عليكم لمعرفتي بهذا المنتى وقوة اعضاءه
اخي الفاضل
لا يوجد شيء اسمه عند السجل الأخير في أوامر الأكسيس ولكن يمكن التغلب على هذه المشكلة بهذه الطريقة
1. نقوم بإنشاء مربع نص جديد وليكن اسمه مثلا Xid ومهمته عد السجلات من خلال التعبير التالي الذي يوضع مصدر التحكم في مربع النص الجديد
=Count([id])
من خلال هذا المربع نستطيع معرفة عدد السجلات الصحيح
ننتقل الآن الى محرر الفيجول بيسك للنموذج وفي حدث الحالي للنموذج نضع هذا الكود
Private Sub Form_Current() If Me.id = Xid Then Me.NextRec.Enabled = False Else Me.NextRec.Enabled = True End If End Sub
وهذا يعني انه اذا تساوت قيمة الحقل id مع قيمة الحقل Xid الخاص بعد السجلات فإن زر الأمر " NextRec " السجل التالي يختفي وعدى ذلك يظهر
ملاحظة : يمكنك استخدام خاصية مخفي للحقل Xid اذا لم ترغب في اظهاره على النموذج.
اما خاصية الغاء مفتاحي PAGE UP الصفحة العليا و PAGE DOWN الصفحة السفلى من لوحة المفاتيح فالطريقة تكون كالتالي :
1. افتح النموذج في وضع التصميم ثم اختر خصائص ثم اختر تبويب حدث ومن هذا التبويب اختر عند ضغط المفتاح للأسفل ضع هذا الكود
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Me.KeyPreview = True Select Case KeyCode Case 33, 34 KeyCode = 0 End Select End Sub
وهذا مثالك بعد التعديل
يعجز قلمي عن الشكر بما يفي هذا العطاء الكبير والغير محدود
واستمد الدعاء لك بمزيد من العلم والخير الوفير والذرية الصالحة
وبالفعل خير الناس أنفعهم للناس
سدد الله خطاك وكفاك شرور الخلائق
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
