Calender To All Form _Form Form One (تغير نمط اكسس بعرض التواريخ هجري ميلادي لاي تفريع من التموذج ومن غير اي جدول)

[hanan_ms]

1- انسخ كود الزر لاي فورم نفس طريقة كود استاذي @ابو جودي❤️🌹

تقدر تغير في الكود حدث عند النقر او مزدوج :

=IIF([]="",Code,"") الغاء الكود او الى كود آخر لمثال صفاء @safaa salem5❤️

 

 يعمل مع اي فورم وتفريع الفورم داخل الفورم من غير استخدام جداول ينقل النص و التاريخ والرقم  

التقويم الهجري وميلادي بستخدام رزنامة استاذي @ابو جودي 😇

 ((طلب كيف اخصص اجازات الرسمية السنوية لتحكم بايام التقويم بعدم التمكين ))

وتجربة 

 

Sken_Calendr_One_Form.rar

[Foksh]

16 دقائق مضت, hanan_ms said:

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

اعتذر منك أخت @hanan_ms ، ولكني هل يمكنك التوضيح للمطلوب بشكل أوضح ؟؟؟؟
اعتذر منك ولكن فعلاً لم افهم المطلوب رغم قراءتي له أكثر من مرة 

[hanan_ms]

 

9 hours ago, Foksh said:

اعتذر منك أخت @hanan_ms ، ولكني هل يمكنك التوضيح للمطلوب بشكل أوضح ؟؟؟؟

كنت دايخة اشوي😇

 اشلون اضيف جدول واستعلام برقم السنة على سبيل المثال 2024 عيدالفطر 

اربع سجلات = اربع ايام 

 

اذا كان اليوم اجازة يخلي الزر عدم التمكين للضغط

 

بدل ما  استخدام كود 

Dim rung as integer

 For rung  = 0 to dcount ("[day]","[Ejazh]")  'Query (Ejazh) 

if me(lebl).name = me.day then

me(lebl).enable =false 

else 

true

end if

 بطيئ عند التقلب بالشهور والسنوات ؟! هل يوجد تعديل للكود او كود آخر او طريقة ثانية 

وشكرا

[Foksh]

39 دقائق مضت, hanan_ms said:

 

كنت دايخة اشوي😇

 اشلون اضيف جدول واستعلام برقم السنة على سبيل المثال 2024 عيدالفطر 

اربع سجلات = اربع ايام 

 

اذا كان اليوم اجازة يخلي الزر عدم التمكين للضغط

 

بدل ما  استخدام كود 

Dim rung as integer

 For rung  = 0 to dcount ("[day]","[Ejazh]")  'Query (Ejazh) 

if me(lebl).name = me.day then

me(lebl).enable =false 

else 

true

end if

 بطيئ عند التقلب بالشهور والسنوات ؟! هل يوجد تعديل للكود او كود آخر او طريقة ثانية 

وشكرا

تمام فهمتك ، يعني سيتم ادخال ايام العطل الرسمية بشكل يدوي عن طريق تحديد التواريخ من - إلى ، وعندما يكون تاريخ اليوم احد هذه التواريخ يتم الغاء تمكين زر محدد ؟؟؟

 

هل هذا صحيح ؟؟

[hanan_ms]

31 minutes ago, Foksh said:

تمام فهمتك ، يعني سيتم ادخال ايام العطل الرسمية بشكل يدوي عن طريق تحديد التواريخ من - إلى ، وعندما يكون تاريخ اليوم احد هذه التواريخ يتم الغاء تمكين زر محدد ؟؟؟

 

هل هذا صحيح ؟؟

صحيح 

صحيح في الجدول اربعة حقول

1- رقم السنة

2-رقم الشهر 

3- رقم اليوم

4- اسم العطلة الرسمية

كود عند اليوم 

==============================

باخذ قهوه بصحصح شوي

Dim rung as integer

Dim Scr as integer

تصحيح الكود 

if me("lebl" & Scr ).caption = me.day then

Next

Next 

الكود يعد سجلات الجدول 

Next

ولكل سجل  جدول يلف على الايام زر الى زر

Next

السجل التالي

الى الانتهاء

 

1 hour ago, hanan_ms said:

if me(lebl).name = me.day then

تم تعديل يوليو 20 بواسطه hanan_ms

[M.Abd Allah]

الله ينور شغل عالي يا استاذه

[hanan_ms]

15 hours ago, M.Abd Allah said:

الله ينور شغل عالي يا استاذه

شكرا استاذ @M.Abd Allah ❤️🌹

 

Update - Fix 😇 

من غير استخدام جدول 😏

1-تحكم كامل بأيام الاسبوع والشهول لكل السنوات 

cod ezy Next Next

2-اضافة الوقت مع التحكم 

3-تعديل وجعلة ListBox 

مو ListBox 😏

4-تعديل الواجهة وتغير ستايل ActiveX

من Tab الى Button

Add tab v6 to v2 ( Fix Contol )

----- 😇

 

استاذ @Foksh ❤️🌹

طلبي صعب اضافة جدول للاجازات الرسمية 😇

Up_Date_Sken_Calendr_One_Form.rar

[ابو جودي]

18 ساعات مضت, hanan_ms said:

طلبي صعب اضافة جدول للاجازات الرسمية 😇

مين قال انه صعب 

هذه الفكرة الاولى لتعديل المرفق الاساسى 

والتعديلات كالاتى
- من الجدول : tblHolidaySettings
يتم تحديد ايام الاجازات الاسبوعية لتغير لونها فى نموذج الـ frmCalendar لتكون باللون الاحمر ويمكن تغير اللون من الكود من السطر HolidayColor = vbRed

- تم عدم تفعيل ايام العطلات تبعا للتواريخ الموجودة بالجدول : tblPublicHolidays
 

- تم اضافة Label بأسفل النموذج  frmCalendar لعرض تواريخ العطلات واسمائها والغير مفعلة فى النموذج ليكون المستخدم على علم بسبب عدم تفعيل هذه التواريخ 

calendar V 2.0 .accdb

[hanan_ms]

اشكرك استاذي @ابو جودي❤️🌹🌹😘

الله يطولي بعمرك استاذي ❤️ 

 

انا جهزة التقويم بطريقة معقدة مع ترصيد الاجازات 

1- الرجوع للتاريخ المحدد ...تحديد التواريخ المطلوبة 

2- Sken Color ActiveX (For Month Chang LestBox And Not is LestBox 😏

3- قائمة اضافة الرصيد الاجازاة 

4-  سريع التنفيذ بتمرير 100

5-عدم التمكين الضغط على ايام الاجازة 

 

مع تعديلات 

كنت فتح موضوع جديد تحويل تقويم اكسس مع ترصيد الاجازات 😇

بتحديث كيف احتساب - DateSalari 

من جدول ينقصة استكمال الوقت بالتخصيص وعتماد جدول عند احتساب اي عمل او اجازة من الى 

 

تمة التجربة المرفق استاذي @ابو جودي ❤️

بس استاذ ليش ما  تخليها الازرار عدم التمكين 

 بنفس المرفق بالفيديو ❤️😘

Update_3_Sken_Calendr_One_Form.rar

تم تعديل يوليو 22 بواسطه hanan_ms