كيف يتم اظهارعدد مرات طباعة باسم شخص

[فؤاديحيى]

كيف يمكنني ان اعرف عدد مرات طباعة بيانات شخص في نموذج او تقرير

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

مثلا لدي شخص باسم محمد وشخص اخر باسم علي

طبعت لكلا منهم المرة الاولى فيظهر على صفحة كل واحد الرقم 1

طبعت لمحمد مرة ثانية ولم اطبع لعلي فيظهر على صفحة محمد2 وعلي 1 وهكذا

ارجوا ان تكون الفكرة واضحة

تم تعديل ديسمبر 9, 2012 بواسطه فؤاديحيى

[ابوخليل]

انت بحاجة الى ادراج حقل جديد في الجدول لحفظ عدد مرات الطباعة ، ويتم تحديثه عند كل امر طباعة

[فؤاديحيى]

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

[ابوخليل]

Dim x As Integer

x = Nz(DLookup("printCount", "table1", "id=" & Me.id)) + 1

DoCmd.RunSQL "UPDATE table1 SET table1.printCount=" & x

التجديث يكون آليا

الكود اعلاه ضعه في حدث الطباعة ، تحت سطر الطباعة

على اعتبار :

printCount الحقل في الجول

id معرف

table1 الجدول

غير حسب الاسماء عندك

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

[فؤاديحيى]

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

علمي.rar

[ابوخليل]

النموذج المذكور لعرض جميع الطلاب ، فحين تضع امر طباعة سيتم طباعة الكل

اما الكود اعلاه فهو مخصص لحصر عدد مرات الطباعة لطالب محدد

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

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

علمي2.rar