عد السجلات المحددة (بنعم) بناء على خانة الاختيار

[ابو انس 2015]

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

ارجو مساعدتي بخصوص  اظهار عدد السجلات المحددة بنعم بناء على خانة الاختيار(check box)

وكود لتفريغ جميع السجلات المحددة بنعم عن طريق زر بنقرة واحدة.

[jjafferr]

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

 

لو ترفق هذه الجزئية من قاعدة بياناتك يكون افضل 

 

 

جعفر

[ابو انس 2015]

بارك الله فيك اخي جعفر ولكن الامر بالنسبة لكم بسيط جدا لا يحتاج لمثال فالمطلوب كود عدد السجلات المحددة بنعم (صح) وكود تفريغ التحديد( الصح) لجميع السجلات. 

[jjafferr]

منذ ساعه, ابو انس 2015 said:

1. ارجو مساعدتي بخصوص  اظهار عدد السجلات المحددة بنعم بناء على خانة الاختيار(check box)

2. وكود لتفريغ جميع السجلات المحددة بنعم عن طريق زر بنقرة واحدة.

تفضل 

 

1.

SELECT Count(Field_YN) AS How_Many
FROM Table1
GROUP BY Field_YN
HAVING Count(Field_YN)=True;

2.

UPDATE Table1 SET [Field_YN] = 0
WHERE [Field_YN]=True

.

48 دقائق مضت, jjafferr said:

لو ترفق هذه الجزئية من قاعدة بياناتك يكون افضل لك 

 

جعفر

[شامل2]

26 دقائق مضت, jjafferr said:

تفضل 

 

1.

SELECT Count(Field_YN) AS How_Many
FROM Table1
GROUP BY Field_YN
HAVING Count(Field_YN)=True;

2.

UPDATE Table1 SET [Field_YN] = 0
WHERE [Field_YN]=True

.

 

جعفر

السلام عليكم

اخ جعفر اين توضع هذه الاكواد؟

[jjafferr]

2 دقائق مضت, alshamal said:

اخ جعفر اين توضع هذه الاكواد؟

 

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

 

هذه استعلامات بحد ذاتها 

 

واذا اردناها في النموذج ، على زرين مختلفين:

1.

A= DCount("*","Table1","[Field_YN]=-1")

2.

mySQL= "UPDATE Table1 SET [Field_YN] = 0 WHERE [Field_YN]= -1"
currentdb.execute(mySQL)

 

جعفر

[ابو انس 2015]

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

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

[jjafferr]

حياك الله اخي ابو انس 

 

2 ساعات مضت, ابو انس 2015 said:

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

 

لهذا السبب اردت منك ان:

14 ساعات مضت, jjafferr said:

لو ترفق هذه الجزئية من قاعدة بياناتك يكون افضل لك 

.

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

 

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

 

جعفر

[ابو انس 2015]

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

في ١‏/٣‏/٢٠١٦ at 18:37, jjafferr said:

DCount("*","Table1","[Field_YN]=-1")

حيث تم اضافته في مصدر عنصر التحكم لمربع نص لعد السجلات مع تغيير اسم الجدول والحقل.

[jjafferr]

حياك الله 

 

للعلم:

هناك فارق في السرعة بين الامرين التاليين (طبعا لن تلاحظ فرق السرعة على بضع مئات من السجلات):

هذه الطريقة
DCount("*","Table1","[Field_YN]=-1")

اسرع من هذه الطريقة
DCount("[Field_YN]","Table1","[Field_YN]=-1")

 

جعفر

[ابو انس 2015]

احسنت بارك الله فيك وزادك الله علما.

وللفائدة انا استخدمت الكود التالي لتفريغ جميع السجلات المحددة بنعم (الصح) وكان ناجحا بزر عن النقر

DoCmd.RunCommand acCmdRefresh
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE table1 SET field_yn = False"

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

DoCmd.RunCommand acCmdRefresh
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE table1 SET field_yn = True"

[jjafferr]

الامر

DoCmd.RunCommand acCmdRefresh

يساوي

me.Refresh

والذي يعمله هو انه يجدد معلومات النموذج (اي انه يحفظ معلومات السجل) بمعلومات جديدة من من مصدر النموذج ، يعني يعمل me.Requery ،

ومشكلة me.Refresh هي انها تعمل لك وميض بسيط في النموذج ، ولكن المشكلة الاكبر انها تأخذك من اختيار السجل الذي انت عليه الى اول سجل في النموذج ،

لذلك ، يفضل استعمال الامر:

docmd.runcommand accmdsaverecord

 

وكلما تستخدم امر عدم اعطاء اي تنبيه:

DoCmd.SetWarnings False

فيجب عليك استخدام امر إعادة التنبيه في نهاية الكود:

DoCmd.SetWarnings True

 

 

جعفر

[ابو انس 2015]

جزاك الله خيرا على هذه المعلومات والنصائح القيمة .ابو انس