الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

استبدال Navigation Buttons

مغلق
بدأه شوقي في 20 يناير 2002 · 5 رد · 518 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمه الله وبركاته

لدي نموزج مبني علي استعلام ولقد ضبطت خصاصيه Navigation Buttons علي لا واانشات بدلا منها ازرار للاضافه والتحرك للخلف والامام

والتحرك الي اخر واول سجل

المشكله انني اريد ان انشي text box يعطيني رقم السجل الذي تحركت اليه وكذلك العدد الكلي للسجلات

ارجوا المساعده في ذلك باي طريقه حتي وان لم يكن الاظهار في text box

وشكرا جزيلا

#2

بالنسبة للعدد الكلي للسجلات

ضع زر امر وفي حدث عند النقر ضع الكود التالي

MsgBox Recordset.RecordCount

بالنسبة للسجل الحالي

ضع زر امر وفي حدث عند النقر ضع الكود التالي

MsgBox Me.CurrentRecord
#3

الأخ شوقي

ضع مربعي نص Textbox على النموذج وفي خاصية الأول في خاصية بيانات _ مصدر عنصر التحكم أكتب التالي:

=Count

ضع بعد كلمة " Count " قوسين هلاليين وضع بينهما نجمة لأنني حاولت كتابتها هنا ولكن تظهر لي صورة ويبدوا أنها أستدعا لأحد الرموز هنا في المنتدى هذا يعرض مجموع السجلات في الجدول الذي هو مصدر للنموذج0

في خاصية بيانات _ مصدر عنصر التحكم الخاص بالـ Textbox الثاني اكتب التالي:

=[screen].[ActiveForm].[CurrentRecord]

هذا التعبير يعطيك رقم السجل الحالي0

#4

الأخ 5060

عند كتابة موضوع يحوي رموز خاصة الغي عرض الابتسامات (تعطيل الإبتسامات في هذه المشاركة ) في الخيارات أسفل نموذج الرد .

انظر الطريقة الأولى بعد الإلغاء :

=Count("*")

وايضا إذا وضع السطر الذي ذكر في الرد الأول في مصدر عنصر التحكم لمربع النص يؤدي لنفس النتيجة :

=Recordset.RecordCount

الأمر الآخر الطريقة الثانية يكفي فيها :

=[CurrentRecord]

ولك تحياتي

#5

أشكرك على التوجيه الذي لا غنى لنا عنه حتى نستفيد

#6

جزاكم الله خيرا

هذا الموضوع مغلق.

مواضيع مشابهة