مشكلة الترقيم التلقائي

[ابو محمد 1]

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

الى اخواني الأعزاء من خبراء ومشرفين واعضاء هذا المنتدى المعطاء

انني اعاني من مشكلة في برنامج قمت بتصميمه حيث وضعت في التقرير ترقيم تلقائي بهذه الصيغة ( =1 )

لكل العمليات التي يقوم بها العميل والبرنامج يحتوي على اكثر من عميل المشكله تكمن انه في التقرير عن العميل الاول يمكون الترقيم ممتاز

ولاكن العميل الثاني يتم استكمال الترقيم ولا يبداء الترقيم من جديد وذلك في حالة طلب طباعة بيانات كل العملاء ، اما في حالة طلب طباعة اي

عميل بواسطة المفتاح الاساسي له فلا توجد مشكله

ارجو ممن لديه الحل لهذه المشكله ان يمد لي يد المساعده ولكم مني جزيل الشكر والعرفان

[أبو تماضر]

السلام عليكم

أكيد أخي أن يحدث معك هذا لآنك اخترت العد التراكمي , والحل طبعا بتجديد أمر الطباعة لكل عميل على حدة , وأكيد أن العملية يدويا جد متعبة ومملة , ولك الحل البرمجي :

dim MySQL AS String
MySql="SELECT [Table].* From [Table] Where [Table].ID = "
Dim R, I AS integer 
R = Dcount("ID","[Table]
For I  = 0  TO R-1
MySQL = MySQL & I
Me.RecordSource = MySQL
   docmd.OpenReport [Report],acViewNormal 
    
next I

على أن [Table] جدول العملاء

و "ID" المفتاح الاساسي

و [Report] التقرير موضوع السؤال

والله الموفق

تم تعديل ديسمبر 8, 2008 بواسطه أبو تماضر

[ابو محمد 1]

جزاك الله خير وجاري التجربه ان شاء الله

[ابو محمد 1]

مشكور لسرعة ردك وجزاك الله خير

جاري التجربه ان شاء الله

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

تم تعديل ديسمبر 10, 2008 بواسطه ابو محمد 1

[ابو محمد 1]

اخي الكريم مشكور لجهدك

اخي لم تنجح الطريقه معي ( ربما لم احسن وضع الكود في المكان الصحيح )

اخي هل بالامكان وضع الكود في مثال لكي استفيد منه في ولك جزيل الشكر والعرفان

[ابو عبدالمحسن2]

شكرا لك ابو تماضر نفس المشكة عندي في التقرير جاري التجربة

تم تعديل يوليو 16, 2009 بواسطه ابو عبدالمحسن2