مساعدة في عمل استعلام

[سامر محمود]

الاخوة الكرام

تحية طيبة وبعد

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

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

اكون شاكر لحضراتكم

Graff.rar

تم تعديل يونيو 12, 2023 بواسطه Moosak
توضيح العنوان

[دروب مبرمج]

8 ساعات مضت, سامر محمود said:

معيار اطلع بيه كل مشرف

في أي جدول المشرفين يرجى تحديد اسم الجدول الذي يحتوي على المشرفين

 

 

 

[Moosak]

أخي @سامر محمود أنت تسأل عن طريقة عمل استعلام وليس معيار 🙂

[سامر محمود]

@Moosak

تمام حضرتك انا بس كنت اقصد معيار في الاستعلام 

 

@دروب مبرمج

تحياتي لحضرتك علي الاستجابة 

هو جدول المشرفين اسمه جدول الاخلاءات

وجدول نوع الاخلاء اسمه حالات الاخلاء

[دروب مبرمج]

تفضل اضف هذا الكود

ملاحظة : قد تجد بعض الصعوبات بالتعامل في الأكود بسبب المسميات العربية

انشئ Module جديد و الصق فيه الكود الخفيف السهل هذا

عبارة عن وظيفة أو دالة او سمها ماشئت

Public Function SubSuoer(ID As Integer) As Integer
Dim TbName, ColName
TbName = "[ادخال الاخلاءات]"
ColName = "[اسم مشرف القطاع]"
ColName = "[اسم مشرف القطاع] = " & ID
SubSuoer = DCount("*", TbName, ColName)
End Function

ولاستخدام الدالة بهذه الطريقة

[TEXTBOX1] = SubSuoer(1)

أو في الاستعلام

SubSuoer(1)

رقم 1
يعني رقم المشرف
بناء على رقم المشرف سوف يقوم الكود بجمع عدد الاخلاءات

مرفق برنامج بعد التعديل

التعديل في الاستعلام 

التعديل في الاستعلام

التعديل في الاستعلام

Graff.zip