استعلام عن اليوم والحصة

[saffar]

السلام عليكم

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

TT.accdb

[Foksh]

أخي الكريم بعد الإطلاع على المرفق ممكن توضيح المسميات ( الحصة - الشعبة - ..... الخ )

 

[عمر ضاحى]

اولا هتحتاج الى هذه الدالة ضعها فى مديول

Function XDayNumber() As Integer
    XDayNumber = Weekday(Date, vbSunday)
End Function

فى الاتسعلام ممكن تستخدم هذا الاستعلام
 

SELECT Timetable.ID, Timetable.EVENT1, Timetable.GRP_CD, Timetable.DAY_NO, Timetable.HOUR_NO, Timetable.CRS_CD, Timetable.ROOM_CD, Timetable.TCH_SC_NO, Timetable.NAM, Timetable.SEC_NM, Timetable.EVENT
FROM Tdays INNER JOIN Timetable ON Tdays.ID = Timetable.DAY_NO
WHERE (((Timetable.GRP_CD)=[Forms]![result]![GRP_CD]) AND ((Timetable.DAY_NO)=XDayNumber()));

 

تم تعديل أكتوبر 11, 2023 بواسطه عمر ضاحى
اصلاح خطأ فى الاستعلام

[saffar]

اخ @Foksh المرفق مره ثانية بالمسميات داخل الجدول

اخ @عمر ضاحى خليت الكود في استعلام لم يعمل معي

 

TT.accdb

[عمر ضاحى]

جرب هذا الملف 
TT.rar

 

[saffar]

اخ ضاحي ليس هذا المطلوب

انظر الصور

اختيار الشعبة من النموذج الاول والنتيجة في النموذج الثاني 

مرفق الملف بعد التعديل

 

TT.accdb

تم تعديل أكتوبر 11, 2023 بواسطه saffar

[Foksh]

22 دقائق مضت, saffar said:

اختيار الشعبة من النموذج الاول والنتيجة في النموذج الثاني

جرب

TT.accdb

[saffar]

احسنت يمكن شرحي غير واضح 

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

مثال بعد اختيار الشعبة -- النتيجة (اليوم الاربعاء) ونفترض الوقت بين 8:05 الى 8:45 (الحصة الثانية) يعرض بيانات الحصة الثانية

[Foksh]

جرب المرفق ، واخبرني بالنتيجة ، 

انشغلت في العمل قليلاً وإلا لأرسلت المرفق منذ مدة 

TT.accdb

[saffar]

جربت المرفق المنتيجة غير صحيحة

اذا اخترت احدى الشعب يظهر يوم الاحد الحصة الاولى 

[Foksh]

6 ساعات مضت, saffar said:

جربت المرفق المنتيجة غير صحيحة

جرب المرفق بعد التعديل

 

 

TT.accdb

تم تعديل أكتوبر 12, 2023 بواسطه Foksh
تم تعديل الملف السابق

[ابوخليل]

مشاركة مع اخوتي ..

تم تحقيق الفكرة  مع مراعاة تغير نظام الحضور ( الشتوي / الصيفي)

Public Function funTestTimes()
On Error GoTo err_idt
Dim idt As String
idt = DLookup("[hour_no]", "[Ttime]", "[time_from] <=#" & Time() & "# And [time_to] >=#" & Time() & "# ")
funTestTimes = idt
err_exit:
Exit Function
err_idt:
If idt = "" Then
MsgBox "لا يوجد حصص في الوقت الحالي"
Resume err_exit
End If
End Function

 

 

TT2.rar

[saffar]

اشكر جميع الاخوه على المشاركة 🌹

اجابة الاستاذ @ابوخليل هي المطلوبه شكرا 👍

[ابوخليل]

ملحوظة

ملاحظة جميلة من الاستاذ @Foksh

حول ازرار اختيار الشعبة .. ماذا لو استجد مستقبلا زيادة في الشعب

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

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

TT3.rar

[Foksh]

1 دقيقه مضت, ابوخليل said:

ملاحظة جميلة من الاستاذ

منكم نتعلم أستاذنا ومعلمنا @ابوخليل ،

وقد كنت أفكر معك بصوت عالٍ ليس إلا 

[دروب مبرمج]

16 ساعات مضت, ابوخليل said:

تم تحقيق الفكرة  مع مراعاة تغير نظام الحضور ( الشتوي / الصيفي)

خير الكلام ما قل و دل

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

تم تعديل أكتوبر 12, 2023 بواسطه دروب مبرمج

[saffar]

اخي وأستاذي @ابوخليل  

كلامك صحيح وطريقة الاستاذ @Foksh صحيحة في اختيار الشعب احترافية

ولكن هدفي تسهيل عملية الاختيار عن طريق النقر على الأزرار

والأمر الثاني عملت البرنامج لاستخدام الطلبة يعني قد ما تقدر تبسط الأمور وانت أدرى بمستوى الطلبة 

بالنسبة لإضافة شعب اكثر في المستقبل ما راح تزيد عند شعبة او اثنين بالكثير