مطلوب كود يقوم باجراء تغيير على جميع السجلات

[محمد إبراهيم أبو القاسم]

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

أرجو المساعدة فى فى ايجاد كود يقوم بعمل تغيير على كافة السجلات دفعة واحدة

على سبيل المثال عندى برنامج بسيط يقوم بطباعة البيانات المحدد عليها بعلامة تصويب (نعم) وبعد الطباعة اقوم باخلاء علامات التصويب من السجلات المحددة لالغاء الطباعة

اريد عمل زر امر يقوم باخلاء علامات التصويب دفعة واحدة من جميع السجلات 

مرفق مثال للبرنامج

مع خالص الشكر وكل عام وحضراتكم بخير

مثال.rar

[jjafferr]

وعليكم السلام 

 

اعمل استعلام تحديث:

.

ثم كود الطباعة سيكون:

1. احفظ السجلات حتى نرى التغييرات في التقرير ،

2. قد لا تستطيع ان تستخدم معاينة التقرير ، لأننا في الخطوة 3 سنقوم بتحديث جميع علامات الصح الى لا شئ ،

3. سنقوم بطباعة التقرير مباشرة ،

4. وبعد طباعة التقرير ، سنقوم بتحديث علامات الصح الى لا شئ 

 

وقد تحتاج الى عمل التالي ، حتى تنعكس النتائج على النموذج:

me.form.requery

 

جعفر

[محمد إبراهيم أبو القاسم]

أحسنت استاذى جعفر بارك الله فيك ,, كانت فكرة جيدة استخدام استعلام التحديث 

تبدو الفكرة بسيطة ولكنها لم تخطر ببالى ، ربما كنت ايحث عن شئ اخر 

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

اتمنى من الله ان يحفظكم وان يجزيكم خيرا بما علمتم الناس .

مع خالص تحياتى ،،

تم تعديل ديسمبر 21, 2015 بواسطه محمد إبراهيم أبو القاسم

[jjafferr]

[jjafferr]

وتقدر تعمل الكود التالي (انا طابعه هنا مباشرة دون تجربته ، فقد يكون فيه خطأ ما ) بدل الاستعلام:

set rst=me.recordsetclone
rst.movelast:rst.movefirst
RC=rst.recordcount

for i=1 to RC

rst.edit
rst!commprint=0
rst.update

rst.movenext

next i

rst.close: set rst=nothing

 

 

جعفر

[محمد إبراهيم أبو القاسم]

أحسنت ياستاذى ,,