طلب داله حسابيه للاضافى

[عمر ضاحى]

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

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

واسف عن التاخير بسبب المشاغل وبسبب ان الكيبورد تبعي (قافل معاي)

 

حضور وانصراف موظفين_TestV31Q.accdb 1.97 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

اولا احب اقول لك حمد لله على السلامه 

ثانيا نحن سعداء جدا بان نراك حاضر بيننا 😍

ثالثا حمد لله على السلام 

 

-----

 

للاسف انا ظهرت لى المشكله 
حتى انى فكرت ان اقسم المعادلة واجعل كل شرط لوحده حتى ارى النتيجه وكانت النتيجه للشرطين يوم الخميس والجمعه هى 0

 

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

لدرجة ان راسي طارت منى ولا قادر افكر فى حل ليها 

عمال اقلب فيها يمين و شمال ما وصلت لشي 

حتى رأيت ردك هنا ودب النشاط فى من جديد 

فلا تغيب كثيرا عنا الله يراضيك 

 

وهذه صورة من النتيجه ( من الملف الذي ارسلته لى

 

استاذي المهندس قاسم @Eng.Qassim  

هناك موضوع لاستاذى الجليل @jjafferr

اظن ان هذا الموضوع قد يكون فيه مفتاح حل مشكلتى من الاساس 

وكل المشاكل التى تعتمد على المسميات الايام والشهور 

لكن مش عارف كيف ممكن استفاد من هذا الموضوع واحل بيه مشكلتى 

[عمر ضاحى]

عرفت كيف ممكن استفاد من الجدول 

لكن الداله بتدين يوم خطأ 

يعنى يوم 1-1-2020 هو يوم سبت الداله بتدهومي يوم جمعه

[Eng.Qassim]

انا شغال معاي تمام

[jjafferr]

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

1-1-2020

.

1-1-2021

.

1-1-2022

.

جعفر

[عمر ضاحى]

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

انا شغال معاي تمام

اكيد هيكون شغال معاك تمام 

لان عرفت المشكله الاكيد فين

وهو فى مسمي التاريخ 

مره يظهر لى عربي ومره انجليزي

وشويه وهيظهر هندي هههههههههههههههههههههه

حيرني

مكنش امامي غير انى استعين بجدول استاذي جعفر @jjafferr

والحمد لله 

حليت المشكله 

المشاكل كانت هي  :

1- التقويم (^_^) عندي تقريبا شارب حاجه 

2- ترتيب الشروط انا كنت بادئ بالشرط الاول وهو اذا كان كذا لا يساوي كذا او لا يساوي كذا 

ولما جعلتها اخر حاجه اتحلت المشاكل 

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

OverTime:IIf([ThisDay]="Friday";DateDiff("n";[Dwam_Start];[Dwam_End])\60 & ":" & DateDiff("n";[Dwam_Start];[Dwam_End]) Mod 60;IIf([ThisDay]="Thursday";DateDiff("n";[txtStanderTimeOut2];[Dwam_End])\60 & ":" & DateDiff("n";[txtStanderTimeOut2];[Dwam_End]) Mod 60;IIf([ThisDay]<>"Friday" Or [ThisDay]<>"Thursday";DateDiff("n";[txtStanderTimeOut1];[Dwam_End])\60 & ":" & DateDiff("n";[txtStanderTimeOut1];[Dwam_End]) Mod 60)))

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

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

1-1-2020

.

1-1-2021

.

1-1-2022

.

جعفر

هو اشتغل دلوقتي تمام لما غيرت اليوم فى الجدول ( Auto_Date ) معرفش ايه العلاقه او ازاي ام ممكن يكون من خطأ اخر عندي لكنها اتحلت (والاخيره اظنها الصواب)


فلكم منى جزيل الشكروالعرفان اساتذتى ومعلمي 

@Eng.Qassim 

 @jjafferr  

 

[Eng.Qassim]

4 دقائق مضت, عمر ضاحى said:

انى اجعل كل العمليات الحسابيه داخل الاستعلام وبكده مش هحتاج اى معلمات فى النموذج

طبعا استاذ عمر.. الاستعلام اسرع من حلقة الدوران

الحمد لله ان حليت مشكلتك

[jjafferr]

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

 

ننادي الدالة fOver_Time في الوحدة النمطية ، ونرسل لها البيانات المطلوبة

OverTime: fOver_Time([ThisDay], [Dwam_Start], [Dwam_End], [txtStanderTimeOut1], [txtStanderTimeOut2])

.

وهذه هي الدالة fOver_Time ، والتي يمكن تعديلها ببساطة :

Public Function fOver_Time(TD, DS, DE, STO1, STO2)


    'TD = [ThisDay]
    'DS = [Dwam_Start]
    'DE = [Dwam_End]
    'STO1 = [txtStanderTimeOut1]
    'STO2 = [txtStanderTimeOut2]
    
    
    If TD = "Friday" Then
    
        fOver_Time = DateDiff("n", DS, DE) \ 60 & ":" & DateDiff("n", DS, DE) Mod 60
    
    ElseIf TD = "Thursday" Then
    
        fOver_Time = DateDiff("n", STO2, DE) \ 60 & ":" & DateDiff("n", STO2, DE) Mod 60
    
    ElseIf TD <> "Friday" Or TD <> "Thursday" Then
    
        fOver_Time = DateDiff("n", STO1, DE) \ 60 & ":" & DateDiff("n", STO1, DE) Mod 60
    
    End If
    
End Function

.

جعفر

[عمر ضاحى]

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

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

 

ننادي الدالة fOver_Time في الوحدة النمطية ، ونرسل لها البيانات المطلوبة

OverTime: fOver_Time([ThisDay], [Dwam_Start], [Dwam_End], [txtStanderTimeOut1], [txtStanderTimeOut2])

.

وهذه هي الدالة fOver_Time ، والتي يمكن تعديلها ببساطة :

Public Function fOver_Time(TD, DS, DE, STO1, STO2)


    'TD = [ThisDay]
    'DS = [Dwam_Start]
    'DE = [Dwam_End]
    'STO1 = [txtStanderTimeOut1]
    'STO2 = [txtStanderTimeOut2]
    
    
    If TD = "Friday" Then
    
        fOver_Time = DateDiff("n", DS, DE) \ 60 & ":" & DateDiff("n", DS, DE) Mod 60
    
    ElseIf TD = "Thursday" Then
    
        fOver_Time = DateDiff("n", STO2, DE) \ 60 & ":" & DateDiff("n", STO2, DE) Mod 60
    
    ElseIf TD <> "Friday" Or TD <> "Thursday" Then
    
        fOver_Time = DateDiff("n", STO1, DE) \ 60 & ":" & DateDiff("n", STO1, DE) Mod 60
    
    End If
    
End Function

.

جعفر

والله يا استاذي الجليل جعفر 

ما فكرت فيها 

ولكن هذا درس لى لكي اتعلم جيدا

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

لما اشوف حلك  وطريقة تفكيرك فى الحل 

ربنا يبارك لك فى صحتك وعلمك ونفع الله بك 

[أبو عبدالله الحلوانى]

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

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

احب دوما أعوض عن القيم النصية بقيم رقمية بالأكواد كلما كان ذلك متاحا

تجنبا لمشكلات الترجمة واختلاف اللغة بالأجهزة التي سيعمل عليها البرنامج وهذا مثال تعديلا بسيطا علي كود استاذا جعفر لنتفادي وجود اسم اليوم داخل الكود وارجو التجربة مع تغير اعدادات الويندوز للغة العربية والانجليزية بعد التعديل.

    If Weekday(TD) = 6 Then
    
        fOver_Time = DateDiff("n", DS, DE) \ 60 & ":" & DateDiff("n", DS, DE) Mod 60
    
    ElseIf Weekday(TD) = 5 Then
    
        fOver_Time = DateDiff("n", STO2, DE) \ 60 & ":" & DateDiff("n", STO2, DE) Mod 60
    
    ElseIf Weekday(TD) < 5 Or Weekday(TD) > 6 Then   'Or you can say Else Only Here
    
        fOver_Time = DateDiff("n", STO1, DE) \ 60 & ":" & DateDiff("n", STO1, DE) Mod 60
    
    End If

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

تمنياتي بالتوفيق

[jjafferr]

10 ساعات مضت, أبو عبدالله الحلوانى said:

ارجو ان يصوب

مقترح صحيح 100% 🙂

 

جعفر