الأستاذ الفاضل / خضر الرجبي ,,, أخونا الفاضل / ثبيت عرب
سأقوم بشرح المثالين حسب فهمي البسيط والذي لا يخلو من الخطأ , فأرجو تصحيح ما وقعت فيه من أخطاء
في مثال الأستاذ الفاضل / خضر الرجبي
يوجد مربعين نص:
أحدهما سمُي (wanted) وهو مربع للعد التسلسلي المعروف والذي يبدأ من الرقم (1) وهو مخفي.
المربع الآخر احتوى على الكود التالي
=[wanted]+ ما هي القيمة الابتدائية لتسلسل]]-1
[wanted] سيعطي القيمة 1 والتي تتسلسل إلى آخر سجل كما هو معروف
[ما هي القيمة الابتدائية لتسلسل] صندوق يطلب من المستخدم إدخال بداية العد التسلسلي ولنفرض انه (5)
ستكون النتيجة إلى الآن (1 + 5) أي (6)
ثم يأتي في نهاية الكود (1-) لطرح العدد قيمة واحدة لتصبح (6 - 1) والتي تساوي (5) , هو العدد الذي ادخله
المستخدم
ثم يبدأ العد التسلسلي بداية من (5)
أما مثال الأخ الفاضل / ثبيت عرب
يوجد مربعين نص:
الأول سمُي (txt1) وهو مربع فارغ لم يغير فيه أي شيء سوى اسمه الذي أصبح txt1 وانه مخفي
المربع الآخر اسمه (txt2) احتوى على الكود التالي
=[txt1]+[Counter]-1
وكتب في كود في حدث Activate للتقرير
TxtRegNum = InputBox("الرجاء إدخال بداية العد التسلسلي")
Me.txt1 = TxtRegNum
الكود الموجود في حدث Activate يظهر صندوق Input Box يطلب من المستخدم إدخال العدد المطلوب لنفرض انه العدد (5)
ثم يجعل قيمة المربع (txt1) تساوي ما ادخله المستخدم والذي يساوي (5) في هذا المثال
الكود الموجود في مربع نص (txt2) هو الذي لم افهمه , فأنا لم اعلم ماهو سبب وجود كلمة (Counter)
ابتدائيا : اعتقد انه يعطي عداً تسلسلياً ابتداءً بالرقم 1 , فتصبح النتيجة إلى الآن (5 + 1) أي (6) ثم يأتي بعد ذلك العدد (1-) لطرح قيمة واحدة من العدد الكلي فتصبح (6 – 1 ) = 5 هو العدد الذي ادخله المستخدم.
ولكن معلومتي هذه ليست أكيدة فأنا كما قلت لا اعلم ولكن هذا الذي فهمته.
أما المعلومة الأكيدة فإني اترك إجابتها للأخ ثبيت عرب أو من يعلم من إخواننا الأفاضل أعضاء المنتدى
أخيرا وليس آخرا:
لا يسعني إلا قول جزاكما الله عني كل خير ولكما علي دعاء بظهر الغيب شكرا لكما على مساعدتكما ,ومن لا يشكر الناس لا يشكر الله.
كلا المثالين رائعين وقد حصل لي المطلوب ,استخدمت الطريقتين في تقريرين مختلفين حرصا على عدم إضاعة جهودكما معي
سلمت يداكما , وزادكما الله علماً ونورا , وسهل لكما طريق الجنة
تحياتي
أبو عمار