ابو جودي

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

طيب استخدم الكود ده على زر امر عرض قبل الطباعة 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

الله اعلم المرفق اللى ارسلته لحضرتك من واقع قاعدة بيانات حضرتك طيب ممكن الاكروبات ريدر اللى عندك هو اللى مش بيدعم العربى طيب اقول على حاجة هو ملف ال pdf اللى موجود فى المرفق بتاعى بيفتح عند حضرتك وبيظهر فيه الارقام عربى بالشكل ده ؟

اخى الكريم حضرتك جربت المرفق اللى انا ارسلته لحضرتك ومتأكد من الاعدادت من لوحة التحكم ؟؟؟؟؟ ارجوك تأكد من الاعدادت كما فى الصورة ورجاء تجربة المرفق الاتى print ID71_ up.rar

كل الشكر والتقدير استاذ @Shivan Rekany ولإكمال الفائدة بيانات تسجيل البرنامج كالاتى Name : Johny Khan CODE : HP4ANyamVnhPkJUTTsOx2CdPhAyLTMSZiXxkNERW KAwkZC+a6+sTipI7MMPyhJam0jdUttMT4Ebo9USN o9IcmHB9FGrgYIeDPhW7WujYCM1s/bpe7hzoE5tj RKphe5N1gew6I1BDJ37EMijaO+x0ROUw/YUbXOjv V1ZeSKDFqlo= الخــيــــــــــ( دمتم بكل )ــــــــــــــر

اخى الكريم @النهر العطشان ان شاء الله فى انتظار ردك فى المشاركة التاليه بان الله سبحانه وتعالى يسر لك الخير ووجدت ضالتك المنشودة دمتم بكل الخير

متابع فى صمت ☺