التعداد التقائي في التقرير

اضف مربع نص واحذف التسميه الخاصة به

اكتب داخل مربع النص

=1

افتح خصائص مربع النص وفي لسان التبويب بيانات اختر مجموع تراكمي

شامل

الأخ fahadam

ماشاء الله عليك .

أشرف خليل

الأخ fahadam

أشكرك على سرعة الإجابة كما أشكر الأخ أشرف على الإطلاع

ولكنني طبقت الطريقة فلم أصل إلى نتيجة حيث يطلع في كل إيصال

(1 ) ولم يتغير رقم واحد كأنني وضعته ثابت أو عنوان لايتغير مهما طبعت من الإيصالات وهذا ما لا أريده

شكرا على تجاوبك معي

ماذكره الأخ fahadam هو وضع ترقيم تلقائي للسجلات في تقرير يعني يعد لك السجلات الموجودة في صفحات التقرير ، ويجب أن تضع مربع النص في مقطع تفصيل أو إذا كان لديك مقاطع أخرى على التقرير تريد وضع التعداد لها فضعه في رأس المقطع .

أما إذا كنت ترغب في وضع تعداد على النموذج فاجعل أحد حقول الجدول من نوع ترقيم تلقائي أو أعمل بهذه الطريقة التي ذكرها الأخ أشرف :

كيف تصنع ترقيم تلقائي بنفسك ؟

ولك تحياتي

أخواني الإعزاء

أريد أن يكون التعداد لكل إيصال تطبعه الطابعة من أول عمل البرنامج وليس السجلات بعنى ألايد أن أخرج ايصال يعطيني رقم واحد ثم أخرج ايصال آخر يعطيني رقم 2 وهكذا ........... إلى ما لانهاية حتى ولوكررت نفس السجل يعطيني رقم مختلف ( بمعنى آخر ) يعد لي جميع الإيصالات التي تخرج من الطابعة حتى ولو كلن السجل خليا

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

وشكرا

الأخ ابوعبدالله

الذي فهمته من كلامك أنك تريد من الأكسس أن يحسب عدد الإيصالات التي طبعتها أو بمعنى آخر عدد مرات طباعة الإيصال .

فإن كان فهمي صحيحاً فما هو اسم النموذج الذي تطبع تقرير الإيصالات منه ؟

ولك تحياتي

الأخ أبو عبد الله :

لعلي أكون فهمت قصدك .

نفترض أن مسلسل الايصال لديك اسمه (رقم) أو أي اسم آخر

انشء مربع نص وضع فيه ما يلي فى خاصية مصدر البيانات .

=count([رقم])

أو استبدل كلمة رقم باسم الحقل المطلوب تعداده لديك .

أشرف خليل

أخي أبا حمود : أخي أشرف

زكل من اطلع عاى هذا السؤال لكم مني كل تحية وتقدير

بالنسبة أخي أبو حمود أنت قريب من مما أريده ولكنني ليس لإيصال واحد وإنما كل إيصال يعطيه رقم ( 1،2 ، 3 ، 4 ،.....) وهكذا حتى لايخرج إيصالان بنفس الرقم ولايخرج إيصال إلا برقم فعندما يعطي طباعة لإيصال يعطيه رقم تسلسلي ومن ثم الذي بعده حتى يمكن محاسبة المدخل كما تتم في طريقة البوك عند اختفاء أي سند وذلك بكشفه بالرقم الذي قبله والذي بعد فيسأل أين السند رقم ( كذا ؟) ولايتم التلاعب في إخراج الإيصالات

بالنسبة لإسم النوذج فهو بحث برقم الإيصال

ولك مني جزيل الشكر

أخي أشرف قمت بتطبيق تاطريقة ولكن ( count)لم يعمل شيئا وضعت مربع نص ووضعت في مصدر التحكم الكود ولكن بلا فائدة

ولك مني وافر التقدير

اشكركم على ما قدمتم

الأخ أبو عبد الله :

ممكن تضع رابط للملف أو ترسله على الإيميل وإن شاء الله نجد حل له .

أشرف خليل

السلام عليكم

أضف جدول به حقل واحد أسمه BillNo

و عند حدث الطباعة تأكد من أن طباعة الايصال تتم لكل ايصال علي حدة و عند حدث فتح التقرير الخاص باالايصال الواحد

استخدم الدالة Dlookup فى الحصول علي القيمة المسجلة فى الجدول و هي الخاصة بالايصال السابق

ثم أضف عليها و احد و ليكن ذلك رقم الايصال الحالي و احفظ القيمة الجديدة فى الجدول

:o

أخي أشرف مع شكري لك وتقديري لجهودك ولكن اعتقد أن الأمر ليس بهذه الصعوبة حتى أرسل لك الملف

ويمكن أن نصل لهذا الأمر بطريقة التحايل على النموذج والتقرير ولا يستطيع المدخل أن يصل لشئء

أشكرك على جهودك المميزة وأتمنى لك دوام التوفيق ولا نستغني عن جهودك ولك مني جزيل الشكر

أخوك / أبو عبد الله

من خلال ردود الأخوان فهمت أنك ترغب أن يسجل لكل إيصال يتم طباعة رقم يتلو الرقم السابق فمثلا لو طبعت آخر مرة وكان رقم الإيصال 15 فالجديد يأخذ الرقم 16 .

أفضل طريقة هي التي ذكرها الأخ مصراوي ولكن الموضوع يحتاج إلى توضيح أكثر :

هل يتم فتح التقرير في وضع المعاينة أم فقط طباعة مباشرة ؟ وهل يكون هناك احتمال قيام المستخدم بمعاينة التقرير دون طباعته ؟

وإذا أجبتني على هذا السؤال فالأمر إن شاء الله متيسر بطريقة الأخ مصراوي .

ولك تحياتي

الأخ أبو عبد الله :

والله أنا زعلان إن العيد داخل ولسه ماحليتش المشلكة ولكن جرب هذه القاعدة لعل فيها حل . أكسيس 2000

http://www.libya.ly/user/ashrafk/autono.zip

أشرف خليل

الأخ أبو حمود التقرير مباشرة على الطابعة

الأخ أشرف ما يهمكش حاقه لاتزعل وأنا لست زعلان

ما فش حاقه تستاهل الزعل وبالنسبة للموضوع تراني ممكن أحله كما قلت عن طريق التحايل وبعد العيد يفرجها ربك

وأنت والأخ أبو حمود حقيقة عاجز عن شكركما ولكن ربي يقدرني على رد المعروف وكل عام وأنت بألف خير وعافية

وأتمنى أن تنالوا ثواب الحجاج ويمد ربي لإي أعماركم وتحجو

ولكم مني جزيل الشكر وأي معلومة مفيدة بخصوص الموضوع حتى ولو ما نفعت في ذها الموضوع تنفع في موضوع أخر قد ينتفع بها أخرون

1- أنشئ جدول باسم رقم الإيصال وضع فيه حقل باسم رقم الإيصال ونوعه عدد صحيح طويل .

2- ضع مربع نص على التقرير بأي اسم وفي مصدر عنصر التحكم له ضع :

=DLookUp("[رقم الإيصال]";"رقم الإيصال")

3- في حدث عند الفتح للتقرير ضع التالي :

If DCount("[رقم الإيصال]", "رقم الإيصال") = 0 Then
DoCmd.RunSQL ("INSERT INTO [رقم الإيصال] ( [رقم الإيصال] ) SELECT 1 AS Expr1;")
Else
DoCmd.RunSQL ("UPDATE [رقم الإيصال] SET [رقم الإيصال].[رقم الإيصال] = [رقم الإيصال]+1;")
End If

ضع الأسماء كما وضعتها أنا بدون تغيير .

ولك تحياتي

أخي أبو حمود جزاك الله خيرا على ما تقوم به من جهد في هذا القسم من المنتدى

ولكن أخي طبقت الطريقة التي أعطيتني إياها حرفيا ولكن للأسف لم أجد النتيجة المطلوبة ليت يكون هناك مثال إن لم يكن عليك كلفة

وشكرا لك