وليد الخميسي

على قدر فهمي قد يكون هذا أحد الحلول المقترحة 1111.rar

يفضل أن تأتي بنص القانون الخاص بتصفية مستحقات الموظف؛ لأن الشرح مبهم.

مثال بسيط لأحد الأخوة جزاه الله خيراً، لا أذكر اسمه صراحة، لذا فالدعاء له بظهر الغيب. Age.rar

أسأل الله أن يجزي كل من شارك في هذه الأعمال، فكل هذا محصلة البحث في المنتديات وغيرها، وحقيقة لا أذكر أصحابها، فالدعاء جملة لكل من ساهم بتصميمها ومشاركتها ونشرها. تحويل التاريخ من هجري إلى ميلادي والعكس _1.rar Age2.rar date.zip dates28-10-2008.rar FROM1 v1.rar DOB.rar الفرق بين تاريخين بالأيام.rar

عفواً أخي الكريم، نعم يمكنك استخدام ذلك في النماذج والتقارير والاستعلامات، وإن أحببت أن أرفق لك بعضاً من أمثلة التعامل مع التواريخ فلك ذلك.

راجع المرفق ربما تجد فيه ما تريد 12.rar

أخي الكريم تم وضع الشرط لمن هم في الخدمة ومن هم خارج الخدمة كل على حدة، انظر المرفق في الخدمة أم لا.rar

أخي الكريم إن لم يكن هدفك في المرفق فالتمس لي العذر فالملف الذي أرسلته لم يفتح عندي، وما فهمته ترجمته لك في الملف المرفق. في الخدمة أم لا.rar

الكود المستخدم تحت زر الأمر بهذا الشكل ، لقد استخدمت منه جزء وتركت الجزء الآخر ولهذا لم تظهر معك النتيجة كما تريد Private Sub Comb_AfterUpdate() If Comb.Value = "ãÊÚÇÞÏíä" Then Text1.Value = DCount("[M]", "Employee", " = 0") Text3.Value = DCount("[M]", "Employee") - (Text1.Value) ElseIf Comb.Value = "ãÑÓãíä" Then Text2.Value = DCount("[R]", "Employee", "=0") Text4.Value = DCount("[R]", "Employee") - (Text2.Value) Else Text1.Value = "" Text2.Value = "" Text3.Value = "" Text4.Value = "" End If End Sub أنصحك بأن ترفق مثالاً لتحصل على ما تريد، واعلم أن المنتدى مليء بالخيرات وفي المرفق مثالاً تظهر فيه النتيجة بدون استخدام الدالة ، فبمجرد التحديث تظهر البيانات

الكود المستخدم تحت زر الأمر بهذا الشكل ، لقد استخدمت منه جزء وتركت الجزء الآخر ولهذا لم تظهر معك النتيجة كما تريد Private Sub Comb_AfterUpdate() If Comb.Value = "ãÊÚÇÞÏíä" Then Text1.Value = DCount("[M]", "Employee", " = 0") Text3.Value = DCount("[M]", "Employee") - (Text1.Value) ElseIf Comb.Value = "ãÑÓãíä" Then Text2.Value = DCount("[R]", "Employee", "=0") Text4.Value = DCount("[R]", "Employee") - (Text2.Value) Else Text1.Value = "" Text2.Value = "" Text3.Value = "" Text4.Value = "" End If End Sub أنصحك بأن ترفق مثالاً لتحصل على ما تريد، واعلم أن المنتدى مليء بالخيرات وفي المرفق مثالاً تظهر فيه النتيجة بدون استخدام الدالة ، فبمجرد التحديث تظهر البيانات

الكود المستخدم تحت زر الأمر بهذا الشكل ، لقد استخدمت منه جزء وتركت الجزء الآخر ولهذا لم تظهر معك النتيجة كما تريد أنصحك بأن ترفق مثالاً لتحصل على ما تريد، واعلم أن المنتدى مليء بالخيرات وفي المرفق مثالاً تظهر فيه النتيجة بدون استخدام الدالة ، فبمجرد التحديث تظهر البيانات Private Sub Comb_AfterUpdate() If Comb.Value = "***********" Then Text1.Value = DCount("[M]", "Employee", "[s] = 0") Text3.Value = DCount("[M]", "Employee") - (Text1.Value) ElseIf Comb.Value = "**********" Then Text2.Value = DCount("[R]", "Employee", "[s]=0") Text4.Value = DCount("[R]", "Employee") - (Text2.Value) Else Text1.Value = "" Text2.Value = "" Text3.Value = "" Text4.Value = "" End If End Sub

انظر المرفق ربما يكون المطلوب Database1.rar

بالمثال يتضح المقال

تفضل مقطع يوضح طريقة إضافة أيام على تاريخ http://up.top4top.net/downloadf-top4top_7de3b3c6511-rar.html

تفضل أخي الكريم Date.rar