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

[أبو ماجد الغامدي]

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

احبابي الكرام 

اسعد الله أوقاتكم 

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

الدالة موجوده بالاستعلام وزر الأمر على النموذج أرغب في تفعيل الاستعلام والزر الذي على النموذج حسب الدالة الموجودة بالاستعلام

لحساب الوقت والتاريخ والأيام  تلقائينموذج.rar

نموذج.rar

[ابو جودي]

بصراحة لم افهم شئ 

[أبو ماجد الغامدي]

ابا جودي 

بشرني عنك عساك طيب

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

بمعني ارغب في تطبيق هذه الداله على الأستعلام والنموذج الفرعي تحسب لي تلقائي الايام والوقت والتاريخ بمجرد ما ادوس على زر الامر الموجود على النموذح وأنا لك من الشاكرين وجميع الاخوان المشاركين

[ابو جودي]

منذ ساعه, تقنيتي said:

ابا جودي 

بشرني عنك عساك طيب

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

بمعني ارغب في تطبيق هذه الداله على الأستعلام والنموذج الفرعي تحسب لي تلقائي الايام والوقت والتاريخ بمجرد ما ادوس على زر الامر الموجود على النموذح وأنا لك من الشاكرين وجميع الاخوان المشاركين

طيب انت تجكى الدالة لا تعمل معك ياللى بالاستعلام سيبك منها 

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

ايه هى المعطيات ياللى اشتغل عليها فى الحساب منشان نخصل على النتيجة

 

لو تكرمت اطتب لى مثال هنا نظرى منشان اقدر افهم عليك

 

يعنى مثلا

من تاريخ 1/1/200  الى تاريخ 5/1/2020  يساوى كم يوم   .... المفروض  5

[أبو ماجد الغامدي]

ابشر

 

 

المطلوب
1-ان يحسب استلام الموظف حسب ساعته المستلم فيها على مدار شهر وكذلك الشهر الذي بعده وما بعده  وهكذا بالتاريخ الهجري حسب ساعات المستلم في اليوم مثلا يستلم اليوم ثلاثة موظفين بمعنى  محمد اليوم مستلم من 6 ص الى 2 م وخالد من 2م الى 10 م وأحمد من  10الى 6ص وهكذا والاسبوع القادم يوضح لي استلام الموظفين والذي بعده وهكذا مثل المواعيد على اسبوع أو شهر أو ستة أشهر اوسنه  وي ليت يعطيني تنبيه او اشاره بأستلام الموظفين القادم وشكرا لكم

[ابو جودي]

43 دقائق مضت, تقنيتي said:

ابشر

 

 

المطلوب
1-ان يحسب استلام الموظف حسب ساعته المستلم فيها على مدار شهر وكذلك الشهر الذي بعده وما بعده  وهكذا بالتاريخ الهجري حسب ساعات المستلم في اليوم مثلا يستلم اليوم ثلاثة موظفين بمعنى  محمد اليوم مستلم من 6 ص الى 2 م وخالد من 2م الى 10 م وأحمد من  10الى 6ص وهكذا والاسبوع القادم يوضح لي استلام الموظفين والذي بعده وهكذا مثل المواعيد على اسبوع أو شهر أو ستة أشهر اوسنه  وي ليت يعطيني تنبيه او اشاره بأستلام الموظفين القادم وشكرا لكم

 

يعنى تريد جمع عدد ساعات كل موظف من وقت حضوره الى انصرافه  ؟

 

واللا تقصد جدول ورديات ؟

 

تم تعديل نوفمبر 24, 2020 بواسطه ابا جودى

[أبو ماجد الغامدي]

اللي اقصده ورديات حسب الساعات المذكوره 

يومي او شهري او اسبوع او ستة اشهر اوسنه 

والحقول

التاريخ اليوم الساعه تلقائي 

لكل موظف

[ابو جودي]

طيب والبرنامج يوزع الورديات ازاى ؟

[أبو ماجد الغامدي]

صحيح

 

[ابو جودي]

بص البرمجة عاملة زى معادلة الرياضة

معطى          مجهول          =      ( مطلوب )

5        +    ( مجهول)         =          10    

 

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

[أبو ماجد الغامدي]

[ابو جودي]

16 دقائق مضت, تقنيتي said:

 

طيب ممكن المرفق

[أبو ماجد الغامدي]

هذا هو

Work shift program v0.1.rar

[ابو جودي]

7 دقائق مضت, تقنيتي said:

هذا هو

Work shift program v0.1.rar 962.15 kB · 0 downloads

اتفضل شوف الكود ياللى على زر الامر اضافة 

دى اكواد تخص ادارة الاقساط مالها ومال الورادى للموظفين

انا مش فاهم حاجة

Dim strSQL As String
strSQL = "DELETE G2.[رقم القسط], G2.رقم, G2.التاريخ, G2.المبلغ1 ,G2.المبلغ, G2.[المبلغ كتابه] FROM G2 WHERE (((G2.رقم)=[FORMS]![f1]![رقم]));"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings False
Me.Requery
Refresh
DoCmd.GoToRecord , , acFirst
For i = 0 To Forms![f1]![no] - 1
Me.رقم = Forms![f1]![رقم]
If Form_f1.القسط.Value = "يومي" Then Me.التاريخ = DateAdd("D", i, Forms![f1]![Date])
If Form_f1.القسط.Value = "شهر" Then Me.التاريخ = DateAdd("m", i, Forms![f1]![Date])
If Form_f1.القسط.Value = "اسبوع" Then Me.التاريخ = DateAdd("WW", i, Forms![f1]![Date])
If Form_f1.القسط.Value = "ثلاث اشهر" Then Me.التاريخ = DateAdd("Q", i, Forms![f1]![Date])
If Form_f1.القسط.Value = "سنة" Then Me.التاريخ = DateAdd("yyyy", i, Forms![f1]![Date])
If Form_f1.القسط.Value = "ستة اشهر" Then Me.التاريخ = DateAdd("Q", i * 2, Forms![f1]![Date])
DoCmd.GoToRecord , , acNext
Next
DoCmd.Requery

 

[أبو ماجد الغامدي]

ابا جودي

الله يفتح لك الخير حيث كان قووول آمين

ثانيا البرنامج ما عملته ولا اعلم ايش اللي جواته

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

وانت ما قصرت الله يعطيك العافيه 

سوف احاول تطبيق الكود على مرفقي وإذا مشى الحال كان بها واذا لم يمشي سوف اتواصل معك على نفس الموضوع والله يحفظك ويرزقك من حيث لا تحتسب

 

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

تم تعديل نوفمبر 24, 2020 بواسطه تقنيتي

[ابو جودي]

شوف ياريت لو تشرح انت عاوز تعمل ايه

انا مش فاهم اصلا البرنامج اللى اعطتنى اياه بيعمل ايه

ع العموم اتفضل نسخة مفتوحة لو حابب تشوف الاكواد وتتعلم منه

 

1962163050_Workshiftprogramv0.1(2).accdb

[أبو ماجد الغامدي]

الله يوفقك ي ابا جودي

[أبو ماجد الغامدي]

المطلوب طال عمرك برنامج مثل البرنامج الذي ارفقته لك في البدايه الصغير اللي انا عامله

ويتكون من حقول

الرقم -الاسم - اليوم -التاريخ -الوقت وهو ساعة الوردية (من و الى ) وهي ثلاث فترات فقط من 8 ساعات خلال 24 ساعه تتكرر كل موظف او موظفين على فتره والفترات هي من 6 ص الى 2 م ومن 2م الى 10 م ومن 10 م الى 6 صباحا .

الموظفين في هذه الورديات عددهم على حسب 50 أو 30 أو 40 اللي يكون

واللي اريده عند ما اضغط على زر أمر  يحسب لي وردية الموظف  خلال شهر او اسبوع او سنه او ستة اشهر او يومي تلقائي حسب اختياري ولكن يحسب لهم بدون تدخل مني اللهم اني اضغط على زر الأمر فقط وهو يحسب مثلا انا عندي ورديه اليومن من 6ص الى 2 مساء الاسبوع القادم كذلك وقد تكون الفتره الأولى أو الثانيه أو الثالثه وكذلك قد تكون ثابته يوم أو يومين أو ثلاثه ايام في الأسبوع

ويشمل كل ايام الاسبوع بدون استثناء وسلامتك ي غالي