ابو جودي

جزانا الله واياكم خير الجزاء استاذى العزيز ومعلمى الجليل استاذ @محمد ايمن

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

لان انا عملت زى كل الاعضاء ما عملوا اكيد فتحنا النموذج فقط لان حضرتك وجهت فكرنا ككلنا فى اول الموضوع ان عند فتح النموذج تحدث المشكله وذلك بعد تغير منبثق ومشروط الى نعم والموضوع مالهوش اى علاقة بالمنبثق والمشروط مطلقا

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

انا مش قادر افهم ممكن مرفق طيب وتحاول توضح على المرفق المطلوب

السبب هو التوجيه الى سجل غير موجود اصلا علشان كده بتظهر لك الرساله

طيب استخدم الكود ده على زر امر عرض قبل الطباعة DoCmd.OpenReport "report name", acViewPreview

لا لا انا نزلت اول مرفق مخدتش بالى طيب ايه رايك جرب تضع السطر ده فى بداية الاكواد التى بها مشكلة On Error Resume Next هتتحل المشكلة كده ان شاء الله وعلى فكرة اعتقد انت بتوجه بالكود الى سجل غير موجود اصلا علشان كده بتظهر لك الرساله اتفضل جرب كده يا استاذ @Amr Ashraf ان شاء الله يكون كل شئ تمام كده new (1).rar

وحدث معى مثل استاذ @Shivan Rekany لا وجود لاى اخطاء او اى رسائل

الشكر لله وحده اخى الحبيب @ابو عبدلله طيب جرب المرفق ده طبعا هتحتاج تعمل بعض التعديلات لو عجبتك الحيلة دى وممكن تلاقى حل عند اساتذتنا الكرام انا مش عارف بصراحه هل هناك طريقة برمجيه لعمل طلب حضرتك واللا لا انا كل اللى عملته بفضل الله تعالى احتالت بهذه الحيلة للوصول للهدف المنشود وتم من وجهة نظرى اخى الكريم انا مجرد طالب علم هاو ليس اكثر قد تجد فى جعبة اساتذتنا الكرام ما يثلج صدرك وفى انتظار رد حضرتك لو عجبتك الفكرة لو احتاجت تعدل اى شئ تانى طبعا انا تغاضيت عن الاضافة الان فقط حتى تقوم بتجربة المرفق على هذا الوضع فالاصل عندنا كما فهمت من حضرتك هو عدم التعديل الا على السجل الاخير فقط فى النموذج stu.rar

طيب وسجل الاضافة لاضافة سجل جديد محتاجه يكون موجود ؟

السلام عليكم ورحمة الله تعالى وبركاته ماشاء الله عليك وتسلم ايدك استاذ @king5star عمل رائه ومجهود تشكر عليه وكل الشكر والتقدير لحضرتك على اهدائك الطيب وكما اشاد اساتذتا الكرام بارك الله فيهم وفيك عمل خارج عن المألوف وكنت اتمنى يكون فى 1000 لايك ولكن للاسف الموجود لايك واحده

لان الفكرة بتعتمد على تغير الحروف داخل التيكست بوكس مع تغيير تسيق الخط من Plain Text الى Rich Text ولكن حضرتك تستخدم ليست بوكس لذلك لا يمكن تفيذ ما تقدم عليه

للاسف اخى الحبيب فى مرفق حضرتك مش ينفع

الله يعزك اخى الحبيب جزاكم الله خيرا

السلام عليكم ورحمة الله تعالى وبركاته على راى المثل الكتاب بيبان من العنوان واعتذر لكبر حجم الملف تم رفع الملف على رابط خارجى يمكنكم التحميل من هنا واستغلال وقت الانتظار اثناء التحميل بالاستغفار

اولا انا طالب من طلاب العلم فى هذا الصرح الشامخ ثانيا جزاكم الله خيرا على شعوركم الطيب واسمحوا لى ان اول مشاركة لى تكون المرفق الاتى - اخفاء اطار الاكسس -تغيير ايقونة الاكسس وتصغير القاعدة على شريط المهام بايد عربية وبدون اى مشاكل ان شاء الله اولا اخص بالشكر كل من 1- الاستاذ @أبا عمر اخفاء اطار الاكسس والذى يعمل مع اكسس 2000-2002-2003-2007-2010-2013-2016 وقمت بتجربته دون اى مشاكل مطلقا 2- الاستاذ Naser Masarwa صاحب فكرة تصغير قاعدة البيانات الغاء اطار اكسس + تغيير ايقونة الاكسس.rar

الشكر لله اختنا الكريمة

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

اختنا الكريمة برجاء كتابة القيم بهذا الشكل - مابين (85 الى 135 ) قبل الفطور التكست بوكس باللون الأخضر - اقل من ( 85 ) قبل الفطور التكست بوكس باللون الأصفر -اكبر من ( 135 ) قبل الفطور التكست بوكس باللون الأحمر - مابين (85 الى 135 ) بعد الفطور التكست بوكس باللون الأخضر - اقل من ( 85 ) بعد الفطور التكست بوكس باللون الأصفر -اكبر من ( 135 ) بعد الفطور التكست بوكس باللون الأحمر ------------------------------------------------------------------------- وكذلك فى الباقى

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

الحمد لله الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل

اتفضلى جربى الكود بهذه الطريقة على زر جديد ضيفى هذا الكود MS.BackColor = vbWhite MS.ForeColor = vbBlack Me.Requery

الكود اعتقد راح يظبط بهذا الشكل If Me!TS = "قبل الفطور" And Me![MS] >= 0 And Me![MS] <= 84 Then MS.BackColor = vbYellow ElseIf Me!TS = "قبل الفطور" And Me![MS] >= 85 And Me![MS] <= 125 Then Me.MS.BackColor = vbGreen ElseIf Me!TS = "قبل الفطور" And Me![MS] >= 126 Then MS.BackColor = vbRed MS.ForeColor = vbWhite End If