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

استعلام جدول مدرسي

saffar

بواسطه saffar
في قسم الأكسيس Access

 مشاركة

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

saffar

saffar

قام بنشر
قام بنشر

السلاو عليكم اخواني الكرام

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

الامر الاخر هو اذا في امكانية تلويين الحصة حسب الوقت الحالي - مثال المشرف يستعلم عن جدول طالب برقمة لعرف مكانة وفي اي حصة حسب توقيت الحصص اي انه لو استعلم بين الساعة 7:20 الى 8:05 يوم الاحد تكون الحصة بلون مختلف لسهولة وسرعة المعرفة 

timetable 2022.accdbFetching info...

Barna

Barna

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

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

بالمناسبة ملف الدكتور @د.كاف يار شغال ما في مشكلة بس اصبر عليه شوي

1.png

timetable 2022.accdbFetching info...

تم تعديل بواسطه Barna
  • Like 4
saffar

saffar

قام بنشر
  • الكاتب
قام بنشر

اشكرك جزيل الشكر د.كاف يار واعتذر عن الخطأ كان من جهازي الماكرو كان معطل لما فعلته فتح الملف

الاخ Barna اضفت التعديلات الي لكن البيانات ليست في محلها بعض اسماء المدرسين في خانة الصف وهكذ

بيانات رقم الطالب واسم الطالب والصف غير صحيحة

 

timetable 2022.accdbFetching info...

Barna

Barna

قام بنشر
قام بنشر
  في 30‏/3‏/2022 at 19:39, saffar said:

اشكرك جزيل الشكر د.كاف يار واعتذر عن الخطأ كان من جهازي الماكرو كان معطل لما فعلته فتح الملف

الاخ Barna اضفت التعديلات الي لكن البيانات ليست في محلها بعض اسماء المدرسين في خانة الصف وهكذ

بيانات رقم الطالب واسم الطالب والصف غير صحيحة

Expand  

طيب جرب كده .....

 

1.png

timetable 2022 (3).accdbFetching info...

  • Like 4
saffar

saffar

قام بنشر
  • الكاتب
قام بنشر

بارك الله فيك اخوي Barna

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

ممكن اضافة جدول للمعلمين وجدول للصفوف انا جهزت الاستعلامين 

ايضا حاول اعمل شرط تنسيقي بين وقتين لكن ما ضبط 

 

sss.png.3abbeffd0f5094518ca763875a735b93.png

 

timetable 2022 (3).rarFetching info...

Barna

Barna

قام بنشر
قام بنشر
  في 31‏/3‏/2022 at 16:54, saffar said:

ايضا حاول اعمل شرط تنسيقي بين وقتين لكن ما ضبط 

sss.png.3abbeffd0f5094518ca763875a735b93.png

 

 

Expand  

طيب جرب يوم الاحد كدة ...... 

If Me.to.Value = "الأحد" Then
If Me.from >= #7:20:00 AM# And Me.from < #8:05:00 AM# Then
Me.bac1.BackColor = vbYellow
ElseIf Me.from >= #8:05:00 AM# And Me.from < #8:50:00 AM# Then
Me.bac2.BackColor = vbYellow
ElseIf Me.from >= #8:50:00 AM# And Me.from < #9:35:00 AM# Then
Me.bac3.BackColor = vbYellow
ElseIf Me.from >= #9:35:00 AM# And Me.from < #10:20:00 AM# Then
Me.bac4.BackColor = vbYellow
ElseIf Me.from >= #10:45:00 AM# And Me.from < #11:30:00 AM# Then
Me.bac5.BackColor = vbYellow
ElseIf Me.from >= #11:30:00 AM# And Me.from < #12:15:00 PM# Then
Me.bac6.BackColor = vbYellow
ElseIf Me.from >= #12:15:00 PM# And Me.from < #1:00:00 PM# Then
Me.bac7.BackColor = vbYellow
ElseIf Me.from >= #1:00:00 PM# And Me.from < #1:45:00 PM# Then
Me.bac8.BackColor = vbYellow
End If
End If

 

1.png

timetable 2022 (3) (1).accdbFetching info...

  • Like 3
Barna

Barna

قام بنشر
قام بنشر

انا لم اعدل شيئ .... انت جربت الملف سابقا ...

  في 31‏/3‏/2022 at 16:54, saffar said:

بارك الله فيك اخوي Barna

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

Expand  

ولكن على كل حال يبدو انك غيرت اعدادات جهازك .... تاكد من اعدادات التاريخ ....

 

1.png

  • Like 2
saffar

saffar

قام بنشر
  • الكاتب
قام بنشر

تسلم ايدك وتعبناك اخ Barna

اشتغل ليوم الاحد وباقي الايام 🙂

وبالنسبة لجدول المدرسين والغرف فيه امكانية ؟

 

 

  • 2 weeks later...
Barna

Barna

قام بنشر
قام بنشر
  في 1‏/4‏/2022 at 21:52, saffar said:

تسلم ايدك وتعبناك اخ Barna

اشتغل ليوم الاحد وباقي الايام 🙂

Expand  

طيب جرب لجميع الايام .... لكن الكود كتبته للاسف طويل ويمكن اختزاله .... 

If Me.to.Value = "الأحد" Then
If Me.from >= #7:20:00 AM# And Me.from < #8:05:00 AM# Then
Me.bac1.BackColor = vbYellow
ElseIf Me.from >= #8:05:00 AM# And Me.from < #8:50:00 AM# Then
Me.bac2.BackColor = vbYellow
ElseIf Me.from >= #8:50:00 AM# And Me.from < #9:35:00 AM# Then
Me.bac3.BackColor = vbYellow
ElseIf Me.from >= #9:35:00 AM# And Me.from < #10:20:00 AM# Then
Me.bac4.BackColor = vbYellow
ElseIf Me.from >= #10:45:00 AM# And Me.from < #11:30:00 AM# Then
Me.bac5.BackColor = vbYellow
ElseIf Me.from >= #11:30:00 AM# And Me.from < #12:15:00 PM# Then
Me.bac6.BackColor = vbYellow
ElseIf Me.from >= #12:15:00 PM# And Me.from < #1:00:00 PM# Then
Me.bac7.BackColor = vbYellow
ElseIf Me.from >= #1:00:00 PM# And Me.from < #1:45:00 PM# Then
Me.bac8.BackColor = vbYellow
End If

ElseIf Me.to.Value = "الإثنين" Then
If Me.from >= #7:20:00 AM# And Me.from < #8:05:00 AM# Then
Me.bac9.BackColor = vbYellow
ElseIf Me.from >= #8:05:00 AM# And Me.from < #8:50:00 AM# Then
Me.bac10.BackColor = vbYellow
ElseIf Me.from >= #8:50:00 AM# And Me.from < #9:35:00 AM# Then
Me.bac11.BackColor = vbYellow
ElseIf Me.from >= #9:35:00 AM# And Me.from < #10:20:00 AM# Then
Me.bac12.BackColor = vbYellow
ElseIf Me.from >= #10:45:00 AM# And Me.from < #11:30:00 AM# Then
Me.bac13.BackColor = vbYellow
ElseIf Me.from >= #11:30:00 AM# And Me.from < #12:15:00 PM# Then
Me.bac14.BackColor = vbYellow
ElseIf Me.from >= #12:15:00 PM# And Me.from < #1:00:00 PM# Then
Me.bac15.BackColor = vbYellow
ElseIf Me.from >= #1:00:00 PM# And Me.from < #1:45:00 PM# Then
Me.bac16.BackColor = vbYellow
End If

ElseIf Me.to.Value = "الثلاثاء" Then
If Me.from >= #7:20:00 AM# And Me.from < #8:05:00 AM# Then
Me.bac17.BackColor = vbYellow
ElseIf Me.from >= #8:05:00 AM# And Me.from < #8:50:00 AM# Then
Me.bac18.BackColor = vbYellow
ElseIf Me.from >= #8:50:00 AM# And Me.from < #9:35:00 AM# Then
Me.bac19.BackColor = vbYellow
ElseIf Me.from >= #9:35:00 AM# And Me.from < #10:20:00 AM# Then
Me.bac20.BackColor = vbYellow
ElseIf Me.from >= #10:45:00 AM# And Me.from < #11:30:00 AM# Then
Me.bac21.BackColor = vbYellow
ElseIf Me.from >= #11:30:00 AM# And Me.from < #12:15:00 PM# Then
Me.bac22.BackColor = vbYellow
ElseIf Me.from >= #12:15:00 PM# And Me.from < #1:00:00 PM# Then
Me.bac23.BackColor = vbYellow
ElseIf Me.from >= #1:00:00 PM# And Me.from < #1:45:00 PM# Then
Me.bac24.BackColor = vbYellow
End If

ElseIf Me.to.Value = "الأربعاء" Then
If Me.from >= #7:20:00 AM# And Me.from < #8:05:00 AM# Then
Me.bac25.BackColor = vbYellow
ElseIf Me.from >= #8:05:00 AM# And Me.from < #8:50:00 AM# Then
Me.bac26.BackColor = vbYellow
ElseIf Me.from >= #8:50:00 AM# And Me.from < #9:35:00 AM# Then
Me.bac27.BackColor = vbYellow
ElseIf Me.from >= #9:35:00 AM# And Me.from < #10:20:00 AM# Then
Me.bac28.BackColor = vbYellow
ElseIf Me.from >= #10:45:00 AM# And Me.from < #11:30:00 AM# Then
Me.bac29.BackColor = vbYellow
ElseIf Me.from >= #11:30:00 AM# And Me.from < #12:15:00 PM# Then
Me.bac30.BackColor = vbYellow
ElseIf Me.from >= #12:15:00 PM# And Me.from < #1:00:00 PM# Then
Me.bac31.BackColor = vbYellow
ElseIf Me.from >= #1:00:00 PM# And Me.from < #1:45:00 PM# Then
Me.bac32.BackColor = vbYellow
End If

ElseIf Me.to.Value = "الخميس" Then
If Me.from >= #7:20:00 AM# And Me.from < #8:05:00 AM# Then
Me.bac33.BackColor = vbYellow
ElseIf Me.from >= #8:05:00 AM# And Me.from < #8:50:00 AM# Then
Me.bac34.BackColor = vbYellow
ElseIf Me.from >= #8:50:00 AM# And Me.from < #9:35:00 AM# Then
Me.bac35.BackColor = vbYellow
ElseIf Me.from >= #9:35:00 AM# And Me.from < #10:20:00 AM# Then
Me.bac36.BackColor = vbYellow
ElseIf Me.from >= #10:45:00 AM# And Me.from < #11:30:00 AM# Then
Me.bac37.BackColor = vbYellow
ElseIf Me.from >= #11:30:00 AM# And Me.from < #12:15:00 PM# Then
Me.bac38.BackColor = vbYellow
ElseIf Me.from >= #12:15:00 PM# And Me.from < #1:00:00 PM# Then
Me.bac39.BackColor = vbYellow
ElseIf Me.from >= #1:00:00 PM# And Me.from < #1:45:00 PM# Then
Me.bac40.BackColor = vbYellow
End If
End If

 

‏‏timetable 2022 (3) 3.accdbFetching info...

لي ملاحظات عامة سريع على برنامجك بشكل سريع ::::::::::

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

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

هذا ما يحضرني من ملاحظات الان ... واذا ظهر لي ملاحظات اخرى سوف اذكرها ...

 

  • Like 4
ناقل

ناقل

قام بنشر
قام بنشر
  في 10‏/4‏/2022 at 12:15, Barna said:

لي ملاحظات عامة سريع على برنامجك بشكل سريع ::::::::::

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

Expand  

هل تقصد كده مثلا ........... 

If Me.to.Value = "الأحد" Then
If Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 1"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 1"), "hh:mm:ss AMPM") Then
Me.bac1.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 2"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 2"), "hh:mm:ss AMPM") Then
Me.bac2.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 3"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 3"), "hh:mm:ss AMPM") Then
Me.bac3.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 4"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 4"), "hh:mm:ss AMPM") Then
Me.bac4.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 5"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 5"), "hh:mm:ss AMPM") Then
Me.bac5.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 6"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 6"), "hh:mm:ss AMPM") Then
Me.bac6.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 7"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 7"), "hh:mm:ss AMPM") Then
Me.bac7.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 8"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 8"), "hh:mm:ss AMPM") Then
Me.bac8.BackColor = vbYellow
End If

ElseIf Me.to.Value = "الإثنين" Then
If Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 1"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 1"), "hh:mm:ss AMPM") Then
Me.bac9.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 2"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 2"), "hh:mm:ss AMPM") Then
Me.bac10.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 3"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 3"), "hh:mm:ss AMPM") Then
Me.bac11.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 4"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 4"), "hh:mm:ss AMPM") Then
Me.bac12.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 5"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 5"), "hh:mm:ss AMPM") Then
Me.bac13.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 6"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 6"), "hh:mm:ss AMPM") Then
Me.bac14.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 7"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 7"), "hh:mm:ss AMPM") Then
Me.bac15.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 8"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 8"), "hh:mm:ss AMPM") Then
Me.bac16.BackColor = vbYellow
End If

ElseIf Me.to.Value = "الثلاثاء" Then
If Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 1"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 1"), "hh:mm:ss AMPM") Then
Me.bac17.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 2"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 2"), "hh:mm:ss AMPM") Then
Me.bac18.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 3"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 3"), "hh:mm:ss AMPM") Then
Me.bac19.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 4"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 4"), "hh:mm:ss AMPM") Then
Me.bac20.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 5"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 5"), "hh:mm:ss AMPM") Then
Me.bac21.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 6"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 6"), "hh:mm:ss AMPM") Then
Me.bac22.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 7"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 7"), "hh:mm:ss AMPM") Then
Me.bac23.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 8"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 8"), "hh:mm:ss AMPM") Then
Me.bac24.BackColor = vbYellow
End If

ElseIf Me.to.Value = "الأربعاء" Then
If Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 1"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 1"), "hh:mm:ss AMPM") Then
Me.bac25.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 2"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 2"), "hh:mm:ss AMPM") Then
Me.bac26.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 3"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 3"), "hh:mm:ss AMPM") Then
Me.bac27.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 4"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 4"), "hh:mm:ss AMPM") Then
Me.bac28.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 5"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 5"), "hh:mm:ss AMPM") Then
Me.bac29.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 6"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 6"), "hh:mm:ss AMPM") Then
Me.bac30.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 7"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 7"), "hh:mm:ss AMPM") Then
Me.bac31.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 8"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 8"), "hh:mm:ss AMPM") Then
Me.bac32.BackColor = vbYellow
End If

ElseIf Me.to.Value = "الخميس" Then
If Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 1"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 1"), "hh:mm:ss AMPM") Then
Me.bac33.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 2"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 2"), "hh:mm:ss AMPM") Then
Me.bac34.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 3"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 3"), "hh:mm:ss AMPM") Then
Me.bac35.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 4"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 4"), "hh:mm:ss AMPM") Then
Me.bac36.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 5"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 5"), "hh:mm:ss AMPM") Then
Me.bac37.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 6"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 6"), "hh:mm:ss AMPM") Then
Me.bac38.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 7"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 7"), "hh:mm:ss AMPM") Then
Me.bac39.BackColor = vbYellow
ElseIf Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] = 8"), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] = 8"), "hh:mm:ss AMPM") Then
Me.bac40.BackColor = vbYellow
End If
End If

 

  • Like 3
  • Thanks 1
kanory

kanory

قام بنشر
قام بنشر
  في 10‏/4‏/2022 at 12:15, Barna said:

طيب جرب لجميع الايام .... لكن الكود كتبته للاسف طويل ويمكن اختزاله ....

Expand  

نعم ممكن اختزاله ... وذلك بتعديل مسميات مربعات النص قليلا .... انظر الكود وحاول قرائته ..... وسوف ارفق المرفق قريبا ..... 

myT = Array("الأحد", "الإثنين", "الثلاثاء", "الأربعاء", "الخميس")
For Each t In myT
If Me.to.Value = t Then
    For i = 1 To 8
  If Format(Me.from, "hh:mm:ss AMPM") >= Format(DLookup("from", "timing", "[period] =" & i), "hh:mm:ss AMPM") And Format(Me.from, "hh:mm:ss AMPM") < Format(DLookup("to", "timing", "[period] =" & i), "hh:mm:ss AMPM") Then
Me.Controls(t & i).BackColor = vbYellow
  End If
    Next i
End If
Next t

 

  • Like 2
  • Thanks 1
Barna

Barna

قام بنشر
قام بنشر
  في 10‏/4‏/2022 at 14:11, ناقل said:

هل تقصد كده مثلا ...........

Expand  

بالضبط أخي ناقل هو ذاك ..... بارك الله فيك ....

  في 10‏/4‏/2022 at 14:17, kanory said:

نعم ممكن اختزاله ... وذلك بتعديل مسميات مربعات النص قليلا .... انظر الكود وحاول قرائته ..... وسوف ارفق المرفق قريبا .....

Expand  

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

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

  I accept