ابو جودي

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

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

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

اولا انا طالب من طلاب العلم فى هذا الصرح الشامخ ثانيا جزاكم الله خيرا على شعوركم الطيب واسمحوا لى ان اول مشاركة لى تكون المرفق الاتى - اخفاء اطار الاكسس -تغيير ايقونة الاكسس وتصغير القاعدة على شريط المهام بايد عربية وبدون اى مشاكل ان شاء الله اولا اخص بالشكر كل من 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= الخــيــــــــــ( دمتم بكل )ــــــــــــــر

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

متابع فى صمت ☺

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

اخى الحبيب @النهر العطشان اتفضل اضبط اعداد الويندوز من لوحة التحكم control panel كما هو موضح فى تلك الصور المرفقة

اخى الكريم جزاكم الله تعالى كل الخير على دعواتكم الطيبة المرفق يحتوى على صورة من البرنامج لو عند حضرتك بيظهر انجليزى يبقى محتاج تغير شئ فى اعدادت الويندوز هأصور لك الشاشات وارفعها لحضرتك ان شاء الله حاضر بعد صلاة المغرب ان شاء الله

الشكر لله سبحانه وتعالى اختنا الكريمه الحمد لله تعالى الذى تتم بنعمته الصالحات

اتفضلى الملف بعد التعديل باضافة الرسالة نظام متابعة مواعيد مرضى السكر_UP.rar يتم وضع الرسالة فى نموذج سكرك على زر الامر أمر21 "ادخال" فيصبح الكود بهذا الشكل If IsNull([MS]) Then MsgBox "من فضلك ادخل مستوى السكر" MS.SetFocus ElseIf IsNull([TS]) Then MsgBox "من فضلك حدد وقت اخذ العينة" TS.SetFocus Else DoCmd.SetWarnings False DoCmd.OpenQuery "سكرك" DoCmd.SetWarnings True 'لمسح قيم عناصر التحكم على النموذج بعد ادخال القيم MS = "" TS = "" MsgBox "تم تسجيل نتيجة التحليل" Me.Requery End If

بعد اذن اخويا الغالى واستاذى الحبيب @محمدنجار يوضع سطر الكود الذى تفضل به اخى العزيز فى التقرير فى مربع النص فى control source ويكون الكود بهذا الشكل =DLast("Current_Research_budget";"Balance") وممكن وضعه فى الاستعلام ويكون بهذا الشكل Last Research Budget: DLast("Current_Research_budget";"Balance") بس للتوضيح لو ترك الكود بهذا الشكل بدون تصفيه ستكون اخر قيمة فى المطلق ولكن لو اردتى اخر قيمة ل id user على سبيل المثال يجب عمل تصفية اولا على هذا الحقل حتى تكون اخر قيمة لهذا id user والله اعلى واعلم

اتفضل ان شاء الله يكون هو المطلوب ارجو الدعاء بالشفاء لوالدتى بظهر الغيب print ID71_ up.rar

انا طالب علم وهانا تعلمت معلومه جديدة من استاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ @jjafferr اسال الله تعالى لكم الخير كله واسال الله تعالى لكم البركة فى العمر والعلم والعمل والاهل والولد وان يغفر لكم ولوالديكم ولكل المسلمين ان شاء الله التعديل والتطبيق على المرفق بلمسات ساحر الاكسس الاستاذ @jjafferr Run Button Command _ up_by_ mr jjafferr .rar اسألكم الدعاء بظهر الغيب لوالدتى

اخى الحبيب @Amr Ashraf ارفع مرفقك قد يكون فيه جديد عن مرفقى فاتعلم انا منك وادعو لك واسال الله تعالى ان يجعلكم سباقون الى الخير دائما وابدا