مطلوب عدد ايام العمل بناء على اكبر عدد في الحضور

[ابوخليل]

السلام عليكم

احبتي الكرام

في المثال المرفق  جدول  يشتمل على سجلات حضور لموظفين وهي متفاوتة في العدد

ونريد استخراج عدد ايام العمل الفعلية بناء على اكبر عدد حضور  من أي واحد (بدون تخصيص)  من الموظفين الموجودين في الجدول

بمعنى اي موظف عدد توقيعاته هي الاكبر  = عدد ايام العمل الفعلية

المطلوب : اقصر طريق لاستخراج الرقم 

سواء  من خلال كود برمجي او استعلام 

dbCountDays.mdbFetching info...

[رمهان]

هلا ابو خليل

شرايك نفكر خارج الصندوق

رتب عمود التاريخ للجميع وبدون تكرار وهذه ايام العمل !

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

وكذلك انتبه يا استاذنا من لو غابو جميعا !!

تحياتي

[طاهر الوليدي]

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

هل تريد  العدد في شهر ام على مستوى سنه كامله وضح اكثر واين اسم الحقل المقصود

تم تعديل مارس 20, 2018 بواسطه طاهر الوليدي

[ابوخليل]

ياهلا ألف بالاستاذ العزيز رمهان  ، تغيب وتجي سالم

  في 20‏/3‏/2018 at 11:24, رمهان said:

رتب عمود التاريخ للجميع وبدون تكرار وهذه ايام العمل !

Expand  

تمام  .. 

ولكني اريده رقما ، واريده كما في طلبي أقصر الطرق . ولا اخفيك اعرف طريقين للتنفيذ 

ولكني احببت ان استشير لأستنير  بالعقول والخبرة  ، للوصول الى الأفضل .. وسرني مداخلتك .

  اقتباس

وكذلك انتبه يا استاذنا من لو غابو جميعا

Expand  

 المشكلة الحقيقية لو واحد وقع حضور في يوم اجازة

  في 20‏/3‏/2018 at 11:30, طاهر الوليدي said:

هل تريد  العدد في شهر ام على مستوى سنه كامله وضح اكثر واين اسم الحقل المقصود

Expand  

اهلا استاذ طاهر  .. اريده على مستوى السجلات الموجودة في الجدول ، وكما بينت اعلاه 

[AlwaZeeR]

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

حسب ما فهمت اخي ابو خليل

 

 

dbCountDays.rar

[ابوخليل]

  في 20‏/3‏/2018 at 12:02, AlwaZeeR said:

حسب ما فهمت اخي ابو خليل

Expand  

شكرا استاذنا اطلعت على الحل

المطلوب : (الرقم 18) اللي هو عدد السجلات  الموجودة في Q1

الطريقتين اللي اعرفهما :

الاولى : عن طريق استعلامين الاول تجميعي  والثاني يقوم بعد التجميعي

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

فهل يوجد طريقة اقرب  مثلا :

1- استعلام واحد يظهر الرقم

أو

2- سطر برمجي باستخدام الدالة Dcount

[AlwaZeeR]

لماذا النتيجة 18 وليست 21؟

[ابوخليل]

لأن الايام التي تم التوقيع فيها 18 يوم

كما هو عندك في الاستعلام q1

وايضا رأي الاستاذ رمهان

  في 20‏/3‏/2018 at 11:24, رمهان said:

رتب عمود التاريخ للجميع وبدون تكرار وهذه ايام العمل !

Expand  

طبعا على حسب البيانات في الجدول الحالي

[رمهان]

  في 20‏/3‏/2018 at 11:57, ابوخليل said:

 المشكلة الحقيقية لو واحد وقع حضور في يوم اجازة

Expand  

صحيح وبرافو

معناته ليس اكبر عدد حضور لموظف هو الايام الفعلية !!

جرب هذا استاذنا وشيخنا

SELECT Count(*) from (SELECT DISTINCT tblcomIn.Datem
FROM tblcomIn)

تحياتي

[ابوخليل]

يا سلام   رائع .. رائع  كما عودتنا استاذنا الكريم

ولي عودة للاستفسار  لانه يحدث اشياء غريبة عند اللصق وعند اعادة فتح الاستعلام تختلف وتتغير بعض البيانات

لاني كنت اكتب ما ذكرته سابقا  مارأيكم :

Dim db1 As Database
Dim rs As Recordset
Set db1 = CurrentDb
Set rs = db1.OpenRecordset("SELECT tblcomIn.Datem FROM tblcomIn GROUP BY tblcomIn.Datem")
MsgBox rs.RecordCount

 

 

  في 20‏/3‏/2018 at 13:14, ابوخليل said:

ولي عودة للاستفسار  لانه يحدث اشياء غريبة عند اللصق وعند اعادة فتح الاستعلام تختلف وتتغير بعض البيانات

Expand  

نعم  .. اتضحت .. الاستعلام يضيف للكود اسماء مستعارة للحقل وللجدول 

[رمهان]

  في 20‏/3‏/2018 at 13:14, ابوخليل said:

 

Dim db1 As Database
Dim rs As Recordset
Set db1 = CurrentDb
Set rs = db1.OpenRecordset("SELECT tblcomIn.Datem FROM tblcomIn GROUP BY tblcomIn.Datem")
MsgBox rs.RecordCount

 

 

Expand  

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

دمتم بخير

[ابوخليل]

صحيح .. لا شك ان جملة سلكت افضل واسرع  

السؤال الآن استاذنا  كيف اعلن  عن هذا الرقم الناتج ؟

[رمهان]

  في 20‏/3‏/2018 at 13:31, ابوخليل said:

صحيح .. لا شك ان جملة سلكت اسرع  

السؤال الآن استاذنا  كيف اعلن  عن هذا الرقم الناتج ؟

Expand  

لم افهم المطلوب تمام يا غالي

هل تقصد كيف تحصل على الرقم ؟ حدد المكان ؟

[ابوخليل]

اريد استخدم الرقم الناتج من جملة سلكت  في اي مكان من البرنامج.

 تحويله الى متغير

 

[رمهان]

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

2. تحفظ الاستعلام و تستخدم دالة لوك اب

3. تحفظ الاستعلام التجميعي كما بمشاركتك وتستخدم دي كاونت

4. دالة بالكود

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

تحياتي

[ابوخليل]

  في 20‏/3‏/2018 at 13:45, رمهان said:

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

Expand  

الذي عندي بعضا مما عندكم ، جزاك الله خير 

  في 20‏/3‏/2018 at 13:45, رمهان said:

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

2. تحفظ الاستعلام و تستخدم دالة لوك اب

3. تحفظ الاستعلام التجميعي كما بمشاركتك وتستخدم دي كاونت

4. دالة بالكود

Expand  

الثلاث الاول واضحة ومفهومة .

نريد الرابعة  لا حرمك الله الأجر

[رمهان]

اوصل البيت وابشر

تحياتي

[ابوخليل]

تسلم  . تصل بالسلامة ..

[ابوخليل]

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

  لانها حقل واحد  

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT Count(*) as expr1 FROM (SELECT DISTINCT tblcomIn.Datem FROM tblcomIn)as expr2 ")
MsgBox rs!expr1

شكرا ابا جود ،،،

[ابو ياسين المشولي]

فكرة حلو استاذ ابو اخليل

زالرساله بتكون بهذا الشكل

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT Count(*) as expr1 FROM (SELECT DISTINCT tblcomIn.Datem FROM tblcomIn)as expr2 ")
MsgBox " (  عدد ايام العمل الفعلية  " & "  ( " & rs!expr1 & " ", vbOKOnly + vbInformation, "  تنبيه "

 

تم تعديل مارس 20, 2018 بواسطه ابو ياسين المشولي

[رمهان]

  في 20‏/3‏/2018 at 14:29, ابوخليل said:

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

  لانها حقل واحد  

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT Count(*) as expr1 FROM (SELECT DISTINCT tblcomIn.Datem FROM tblcomIn)as expr2 ")
MsgBox rs!expr1

شكرا ابا جود ،،،

Expand  

جميل استاذ 

ممكن نختصره كالتالي وداخل دالة لكي اناديها من اي مكان ()xc=

Function xc()
xc = CurrentDb.OpenRecordset("SELECT Count(*) FROM (SELECT DISTINCT tblcomIn.Datem FROM tblcomIn)")(0)
End Function

تحياتي