اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر (معدل)

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

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

عدد تكرار كل موظف.rar

عدد تكرار اسم موظف.jpg

تم تعديل بواسطه ahmus
قام بنشر

تفضل هذه الطريقة استخدمها مع الاستعلام و النماذج و التقارير

مرفق التعديل

Public Function Total_Duplicate(Eployee_ID As Integer) As Integer
Dim TbName As String
Dim Sheft1, Sheft2, Sheft3, Sheft4, Sheft5 As Integer
TbName = "جدولدوام"
Sheft1 = DCount("*", TbName, "[موظف1]=" & Eployee_ID)
Sheft2 = DCount("*", TbName, "[موظف2]=" & Eployee_ID)
Sheft3 = DCount("*", TbName, "[موظف3]=" & Eployee_ID)
Sheft4 = DCount("*", TbName, "[موظف4]=" & Eployee_ID)
Sheft5 = DCount("*", TbName, "[موظف5]=" & Eployee_ID)
Total_Duplicate = Sheft1 + Sheft2 + Sheft3 + Sheft4 + Sheft5
End Function

 

عدد تكرار كل موظف.rar

  • Like 6
قام بنشر
21 minutes ago, د.كاف يار said:

تفضل هذه الطريقة استخدمها مع الاستعلام و النماذج و التقارير

مرفق التعديل

Public Function Total_Duplicate(Eployee_ID As Integer) As Integer
Dim TbName As String
Dim Sheft1, Sheft2, Sheft3, Sheft4, Sheft5 As Integer
TbName = "جدولدوام"
Sheft1 = DCount("*", TbName, "[موظف1]=" & Eployee_ID)
Sheft2 = DCount("*", TbName, "[موظف2]=" & Eployee_ID)
Sheft3 = DCount("*", TbName, "[موظف3]=" & Eployee_ID)
Sheft4 = DCount("*", TbName, "[موظف4]=" & Eployee_ID)
Sheft5 = DCount("*", TbName, "[موظف5]=" & Eployee_ID)
Total_Duplicate = Sheft1 + Sheft2 + Sheft3 + Sheft4 + Sheft5
End Function

 

عدد تكرار كل موظف.rar 817.64 kB · 0 downloads

 

 

مبدع دائما دكتور... المشكلة انه

Dcount make slow operation in VBA

قام بنشر (معدل)

تفضل هذا التعديل 

اذا وضعت المؤشر على الاسم سيتم تلوين الحقل في الأسفل - مجرد فكرة 

image.png.3b6335729ed955272f06d7461b162dfb.png

20 دقائق مضت, Eng.Qassim said:

 

 

 

 

مبدع دائما دكتور... المشكلة انه

 

Dcount make slow operation in VBA

 

العفو لكن لا اتوقع ان البيانات تكون كبيرة الحجم لأن هذا جدول اسبوعي او شهري ( متغيير )

كمية البيانات بسيطة فالبطئ المعني لن يكون ملموس

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

من الواضح ان البرنامج مستخدم لمستشفى واحدة و لأقسام جدا محدودة

عدد تكرار كل موظف.rar

تم تعديل بواسطه د.كاف يار
  • Like 1
  • Thanks 1
قام بنشر
منذ ساعه, د.كاف يار said:

تفضل هذا التعديل 

اذا وضعت المؤشر على الاسم سيتم تلوين الحقل في الأسفل - مجرد فكرة 

image.png.3b6335729ed955272f06d7461b162dfb.png

العفو لكن لا اتوقع ان البيانات تكون كبيرة الحجم لأن هذا جدول اسبوعي او شهري ( متغيير )

كمية البيانات بسيطة فالبطئ المعني لن يكون ملموس

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

من الواضح ان البرنامج مستخدم لمستشفى واحدة و لأقسام جدا محدودة

عدد تكرار كل موظف.rar 856 kB · 16 downloads

مبدع استاذى بارك الله فيك اخي الكريم وجزاك الله كل الخير يا رب

قام بنشر (معدل)

السلام عليكم؛

امس أرسلت لكم ملف مختصر لجدول دوام وطلبت منكم المساعدة وفعلا بادر بالابداع د.كاف يار مشكور  وتمت بنجاح واليوم ارسل لكم الجدول كاملا ليستفيد الجميع ومشاركة الآراء.

و اريد طلب جديد منكم وهو حساب مجموع الساعات بناء على جدول نوع الورديات المحدد فيه بداية ونهاية الدوام  وأيضا إضافة رقم مسلسل حسب ما انا موضح بالصورة المرفقة

شرح البرنامج:

 1.      في الوردية الواحدة ممكن ان يعمل عدد 5 موظفين

2.      الدوام ثلاث ورديات صباحي ومسائي وسهر

3.      وردية الصباحي 6 ساعات

4.      وردية المسائي 6 ساعات

5.      وردية السهر 12 ساعة

6.      الورديات مستندة الى جدول تحديد الورديات وساعة بدايتها وساعة نهايتها وناتج فرق ساعات الدوام

7.      عند الضغط على زر الطباعة يصدرامر طباعة ومن ثم امر ارشف الجدول الى سجل اخر ومن ثم تصديره الى ملف pdf يحمل نفس بيانات القسم للجدول وتاريخ بداية الجدول ويخزن في المستندات

8.      زر الإضافة لاصافة سجل للجول

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

مجموع ساعات.jpg

‏‏شؤون الموظفين حساب ساعات المكرر.rar

تم تعديل بواسطه ahmus
قام بنشر
34 دقائق مضت, ahmus said:

السلام عليكم؛

امس أرسلت لكم ملف مختصر لجدول دوام وطلبت منكم المساعدة وفعلا بادر بالابداع د.كاف يار مشكور  وتمت بنجاح واليوم ارسل لكم الجدول كاملا ليستفيد الجميع ومشاركة الآراء.

و اريد طلب جديد منكم وهو حساب مجموع الساعات بناء على جدول نوع الورديات المحدد فيه بداية ونهاية الدوام  وأيضا إضافة رقم مسلسل حسب ما انا موضح بالصورة المرفقة

شرح البرنامج:

 1.      في الوردية الواحدة ممكن ان يعمل عدد 5 موظفين

2.      الدوام ثلاث ورديات صباحي ومسائي وسهر

3.      وردية الصباحي 6 ساعات

4.      وردية المسائي 6 ساعات

5.      وردية السهر 12 ساعة

6.      الورديات مستندة الى جدول تحديد الورديات وساعة بدايتها وساعة نهايتها وناتج فرق ساعات الدوام

7.      عند الضغط على زر الطباعة يصدرامر طباعة ومن ثم امر ارشف الجدول الى سجل اخر ومن ثم تصديره الى ملف pdf يحمل نفس بيانات القسم للجدول وتاريخ بداية الجدول ويخزن في المستندات

8.      زر الإضافة لاصافة سجل للجول

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

مجموع ساعات.jpg

‏‏شؤون الموظفين حساب ساعات المكرر.rar 864.5 kB · 0 downloads

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

قام بنشر
5 دقائق مضت, YASSER1573 said:

يا دكتور كاف يار انا محتاج حضرتك ضروري لكن مش عارف اوصل لك خالص ولا ابعت لك 

اتفضل اخوي راسلني على الايميل

راح تجده في ملفي الخاص

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information