ابوخليل

مشاركة مع اخي @Foksh تم التصرف بكثير من التنسيق والتسميات مثلا تسمية الكائنات الأفضل ان تكون اسماؤها تدل على محتواها Data126.rar

الف مبروك اخي العزيز فادي .. وأهلا بك بين اخوانك

مبروك التشريف .. والانضمام الى كوكبة الخبراء .. تستاهل اكثر زادك الله علما .. ووفقك وسددك

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

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

تطيب المجالس بمشاركتك عقول الرجال اين المرفق ؟ ام تريد طلابك يتعبوا كما تعبت

هل اعتمد الحل ؟ .. ام لك رأي آخر افضل ؟

صح .. ولكن الوقت يحمل معياره الخاص لم اغير في معيار الأخ موسى

ان امكن دمج الدالتين بدالة واحدة .. جيد بحيث تصبح الدالة يوم الخميس = 1 أو 2

وجدت حلا عملت دالة بل اثنتين .. لأن يوم الخميس مشترك هذه لوسط الاسبوع جميع الأيام ..... ولآخر الاسبوع فقط الجمعة والسبت Public Function funDayInweek() Dim i As Integer If Weekday(Date) >= 1 And Weekday(Date) <= 5 Then i = 1 funDayInweek = i ElseIf Weekday(Date) >= 6 And Weekday(Date) <= 7 Then i = 2 End If funDayInweek = i End Function ثم عملت الثانية وخصصتها لنهاية الاسبوع يوم الخميس فقط Public Function funDayInweek5() If Weekday(Date) = 5 Then funDayInweek5 = 2 Else funDayInweek5 = Null End If End Function يوجد في المثال نسخة طبق الأصل من الدالتين .. استبدلت فيها دالة استخراج اليوم بمتغير .. من اجل الفحص والتأكد من النتيجة Database3.rar

تصفحت العمل على عجل واضح مليء بالأفكار النيرة الجميلة شكرا @Ahmos

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

لم اوفق في التسمية .. كان الأولى أيام الاسبوع تكون تسميتها : وسط الاسبوع

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

السلام عليكم اخواني واحبتي في الجدول tblCtrlDetails اريد من خلال استعلام اظهار السجل الذي يمثل الوقت الحالي حسب اليوم والفترة فقط الوقت الحالي محصور بين وقتين (بداية ونهاية ) ...................................................... الأيام : أيام الأسبوع : الأحد /الاثنين / الثلاثاء / الأربعاء / الخميس نهاية الأسبوع : الخميس / الجمعة / السبت لاحظ ان يوم الخميس مشترك .................................................................. لك مطلق الحرية في تغيير اوقات الفترات ... والأيام واعتقد من اجل التجربة يجب العبث بوقت جهاز الحاسوب Database1.accdb

تفضل Data125.rar

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

ينفع ونص .. بكذا نختصر ما يمكننا من ادوات Data124.rar

ايضا من الملاحظات ان بيانات الفورم NewPP معتمدة على جدول النتائج وهذا ما يصير .. لأن النتائج تأتي لاحقا .. والصحيح ان يتم عرض فقط جدول الاسماء مع من تم تسجيله في جدول التحاليل فقط يجب فورم newpuok يتم عرض من تم تسجيل نتائج له فقط .. ويوضح عدد نتائج التحاليل المسجلة ( نوعها او اسمها ) جدول النتائج يجب ان يكون قابل للتكرار .. والافضل تخصيص كل تحليل بجدول نتائج يخصه من ملاحظاتي اهتمامك كثيرا بالمظهر والتعامل مع البيانات في الواجهات .. واغفلت القلب ضبط الجداول = 80 % من انجاز المشروع 20 % تكميل وتجميل وتحسينات

لا اعلم لماذا تبخل بالشرح الوافي الآن لدينا قائمة تشمل 5 انواع من التحليل .. وفي المقابل لا يوجد الا ثلاث صفحات لتسجيل النتائج هذه واحدة . الثانية : حسب فهمي المتواضع يجب ان يظهر الى القائمة التي على اليسار كل من تم تسجيل نتيجة له دعنا نفترض ان التحاليل 3 بعدد الصفحات هنا لا بد ان يكون امام المريض ما يدل على تسجيل النتائج الثلاث له ايضا لو تم ازالة علامة الصح من امامه لا يرجع الى القائمة اليمنى ابدا حتى يتم حذف نتيجته اولا شيء آخر مهم كبرمجة مشروع : ماذا لو اعاد المريض الفحص والتحليل مرة أخرى ؟ اين بياناته التاريخية؟

؟؟؟؟؟؟؟؟

على كل حال اجتهدت حسب فهمي وقمت بضبط العلاقات كما يجب ان تكون اخ يوسف جرب ووافني بأي ملاحظات JO2_2025.rar

عزيزي المشكلة في العلاقات المريضة ولاء لا تظهر لأن اسمها غير موجود في مصدر بيانات النموذج NewPara وعندما تتبعتها وجد لها فقط Creatinine في جدول Tbl_NewRequest ولا يوجد لها شيء في جدول Tbl_NewResults لهذا لا تظهر او اي مريض يشبهها كما ذكرت لك المشكلة في العلاقات اريد افهم عمل النموذجين الفرعيين NewPP و NewPU_OK ماذا يعرضان اشرح لي بالتفصيل عند الاختيار من القائمة مالذي يتم عرضه في النموذج NewPP حسب البند المختار .. وبالمقابل ما يتم عرضه في النموذج NewPU_OK انا متأكد بعد فهمي للفكرة انك لست بحاجة الى كثير من الأكواد العرض سيتم من خلال الجداول والاستعلامات من دون الاستعانة بأي كود

تفضل فقط تحديث JO 2027_new.rar

هذا شيء جديد سوف انظر في امره ولكن طلبك السابق عبارة عن : 1- اخفاء الصفحات الفارغة 2- عرض جميع التحاليل .. لأنك قلت يعرض تحليل ولا يعرض الآخر كان المفترض ان تراعي في ردودك .. ما تم انجازه فتذكره ثم تذكر ما استجد