اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

saffar

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

 مشاركة

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

saffar

saffar

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

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

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

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

timetable 2022.accdb

رابط هذا التعليق
شارك
Barna

Barna

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

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

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

1.png

timetable 2022.accdb

تم تعديل بواسطه Barna
  • Like 4
رابط هذا التعليق
شارك
saffar

saffar

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

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

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

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

 

timetable 2022.accdb

رابط هذا التعليق
شارك
Barna

Barna

قام بنشر
قام بنشر
منذ ساعه, saffar said:

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

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

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

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

 

1.png

timetable 2022 (3).accdb

  • Like 4
رابط هذا التعليق
شارك
saffar

saffar

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

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

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

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

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

 

sss.png.3abbeffd0f5094518ca763875a735b93.png

 

timetable 2022 (3).rar

رابط هذا التعليق
شارك
Barna

Barna

قام بنشر
قام بنشر
21 ساعات مضت, saffar said:

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

sss.png.3abbeffd0f5094518ca763875a735b93.png

 

 

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

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).accdb

  • Like 3
رابط هذا التعليق
شارك
Barna

Barna

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

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

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

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

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

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

 

1.png

  • Like 2
رابط هذا التعليق
شارك
  • 2 weeks later...
Barna

Barna

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

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

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

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

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.accdb

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

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

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

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

 

  • Like 4
رابط هذا التعليق
شارك
ناقل

ناقل

قام بنشر
قام بنشر
1 ساعه مضت, Barna said:

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

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

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

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

قام بنشر
قام بنشر
1 ساعه مضت, Barna said:

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

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

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

قام بنشر
قام بنشر
9 دقائق مضت, ناقل said:

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

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

3 دقائق مضت, kanory said:

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

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

رابط هذا التعليق
شارك

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