استفسار عاجل عن

من خلال مشاركة سابقة لك اخي الكريم المشكلة كانت تتمثل في الترتيب التلقائي للرتب و كيفية الحفاظ عليها, لكن في المثال المرفق سوف تجد الحل لمشكلتك بطريقة سهلة تعتمد على جدول تدخل في الرتب حسب الترتيب الذي تريده و من ثم استعمال هذا الجدول من خلال حقل تحرير و سرد و تخزن الرتبة التي تريدها في الجدول الخاص بالبيانات.

طبعا توجد طريقة اخرى بواسطة select أو عبارة if.

___.rar

طريقة الأستاذ biskra طريقة سليمة و مريحة

و لكن إذا ألححت على الحل بطريقتك فإليك هذا الملف المرفق.

لاحظ أن مجموعة الخيار غير مرتبطة بالحقل المعني (مخفي)، فقيمة الحقل نصية ، أما المجموعة فقيمها رقمية

بمعنى أنه يستطيع إدخال البيانات و لكنه يعجز عن قرائتها عند التنقل من سجل لآخر.

لذلك تجد أن الماكرو يفرض القيمة النصية بالترجمة عند إدخال البيانات ( على مستوى الحقل )

ويفرض القراءة على المجموعة أيضاً بالترجمة ( على مستوى النموذج )

أنظر الماكرو.

OptionGroup.zip

شكراً جزيلاً اساتذتي الأعزاء

وهنا احب ان اضيف مشاركة استاذي ابو افنان في احدى المنتديات والتي افادتني كثير

الكود هو

Select Case aa

Case Is = 1

mm = "جامعي"

Case 2

mm = "ماجستير"

Case 3

mm = "دكتوراه"

Case Else

mm = " "

End Select

aa والحقل باسم mmعلى افتراض أن مجموعة الخيار باسم

شكراً جزيلاً لجميع المشرفين والأعضاء الفاعلين في المنتدى