Rawannnna قام بنشر مايو 5, 2017 قام بنشر مايو 5, 2017 السلام عليكم ورحمة الله وبركاته لدي نموذج لادخال نتيجة تحليل السكر , عند عمل المريض لتحليل السكر يدخل النتيجة في تكست بوكس مستوى السككر ويحدد وقت اخذ العينة هل قبل الإفطار اوبعد الإفطار قبل الغذاء بعد الغذاء ( قائمة سرد ) عندما يدخل مريض السكر مستوى السكر ويكون ( اصغر من 85 ) واختيار وقت العينة ( قبل الإفطار ) هذا يعني ان مستوى السكر منخفض جدا واذا كان السكر منخفض اذاَ التكست بوكس لمستوى السكر يظهر باللون الأصفر واذا اذا كانت نتيجة التحليل ( اكبر من 135 ) وكان وقت اخذ العينة ( قبل الإفطار ) يعني ان مستوى السكر مرتفع ويظهر اللون الأحمر في التكست بوكس لمستوى السكر لحد الان تمام , سؤالي اذا كان مستوى السكر في المعدل الطبيعي قبل الإفطار يعني مابين (85 الى 135 ) اريد ان يظهر التكست بوكس باللون الأخضر ؟ كيف اعمل هذا الشرط .؟
jjafferr قام بنشر مايو 5, 2017 قام بنشر مايو 5, 2017 (معدل) وعليكم السلام 1. عندك مجموعة اختيارات ، منها: vbBlack vbRed vbGreen vbYellow vbBlue vbMagenta vbCyan vbWhite 2. او استخدام الامر RGB: R = Red G = Green B = Black وهو عبارة عن خلط هذه الالوان الثلاث للحصول على 16 مليون لون ، والكود هكذا: me.TS.backcolor= RGB(0,0,0) 'اسود ومن هذا الرابط مثلا ، تستطيعين معرفة خلطة جميع الالوان تقريبا http://www.rapidtables.com/web/color/RGB_Color.htm 3. واذا كانت عندك خلفيه في برمجة صفحات الانترنت ، فتستطيعين استخدام Hex Code (للأكسس 2007 فما فوق) ، والوانه كذلك موجود في الرابط اعلاه ، مثل #FF0000 للون الاحمر وعلى هذه الاساس ، طلبك يكون: if me.MS>=85 and me.MS<=135 then me.MS.backcolor=vbGreen end if جعفر تم تعديل مايو 5, 2017 بواسطه jjafferr 4
ابو جودي قام بنشر مايو 5, 2017 قام بنشر مايو 5, 2017 الكود اعتقد راح يظبط بهذا الشكل 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 3
Rawannnna قام بنشر مايو 5, 2017 الكاتب قام بنشر مايو 5, 2017 11 دقائق مضت, ابا جودى said: الكود اعتقد راح يظبط بهذا الشكل 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 طبقت الكود حق أستاذ جعفر على نفس طريقة الكود اللي بالاكسيس واشتغل تمام اللون الأخضر واضفت ايلس اف كمان وكمان عندي سؤال عند الضغط على تحليل جديد يبقى اللون حق التحليل السابق موجود كيف اعدله من الكود بحيث لما يضغط المريض على تحليل جديد يصير التكست بوكس ابيض 3 ساعات مضت, jjafferr said: وعليكم السلام 1. عندك مجموعة اختيارات ، منها: vbBlack vbRed vbGreen vbYellow vbBlue vbMagenta vbCyan vbWhite 2. او استخدام الامر RGB: R = Red G = Green B = Black وهو عبارة عن خلط هذه الالوان الثلاث للحصول على 16 مليون لون ، والكود هكذا: me.TS.backcolor= RGB(0,0,0) 'اسود ومن هذا الرابط مثلا ، تستطيعين معرفة خلطة جميع الالوان تقريبا http://www.rapidtables.com/web/color/RGB_Color.htm 3. واذا كانت عندك خلفيه في برمجة صفحات الانترنت ، فتستطيعين استخدام Hex Code (للأكسس 2007 فما فوق) ، والوانه كذلك موجود في الرابط اعلاه ، مثل #FF0000 للون الاحمر وعلى هذه الاساس ، طلبك يكون: if me.MS>=85 and me.MS<=135 then me.MS.backcolor=vbGreen end if جعفر شكرا على المعلومات المفيدة 1
ابو جودي قام بنشر مايو 5, 2017 قام بنشر مايو 5, 2017 الان, Rawannnna said: طبقت الكود حق أستاذ جعفر على نفس طريقة الكود اللي بالاكسيس واشتغل تمام اللون الأخضر واضفت ايلس اف كمان وكمان عندي سؤال عند الضغط على تحليل جديد يبقى اللون حق التحليل السابق موجود كيف اعدله من الكود بحيث لما يضغط المريض على تحليل جديد يصير التكست بوكس ابيض اتفضلى جربى الكود بهذه الطريقة على زر جديد ضيفى هذا الكود MS.BackColor = vbWhite MS.ForeColor = vbBlack Me.Requery 3
Rawannnna قام بنشر مايو 5, 2017 الكاتب قام بنشر مايو 5, 2017 1 دقيقه مضت, ابا جودى said: اتفضلى جربى الكود بهذه الطريقة على زر جديد ضيفى هذا الكود MS.BackColor = vbWhite MS.ForeColor = vbBlack Me.Requery شككككرا أستاذ محمد حطيت كود اللون تحت MS="" ومسحتها ورجعت حطيتها قبل الكويري واشتغل يعطيك العافيه :) 1
ابو جودي قام بنشر مايو 5, 2017 قام بنشر مايو 5, 2017 الان, Rawannnna said: شككككرا أستاذ محمد حطيت كود اللون تحت MS="" ومسحتها ورجعت حطيتها قبل الكويري واشتغل يعطيك العافيه :) الحمد لله الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل 1
Rawannnna قام بنشر مايو 5, 2017 الكاتب قام بنشر مايو 5, 2017 1 دقيقه مضت, ابا جودى said: الحمد لله الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل اخر سؤال وبعدها بروح خلاص ههههه :) هل لو ططبقنا الكود هذا على جميع الخيارات لوقت اختيار العينة حيسبب مشاكل ؟ يعني راح نكرر هذا الكود على كل خيارات وقت اخذ العينة ... قبل وبعد هل اكتفي بخيار قبل الاكل بعد الاكل افضل ؟؟ بدلا من قبل الفطور بعد الفطور قبل الغداء بعد الغداء قبل العشاء بعد العشاء 1
ابو جودي قام بنشر مايو 5, 2017 قام بنشر مايو 5, 2017 الان, Rawannnna said: اخر سؤال وبعدها بروح خلاص ههههه :) هل لو ططبقنا الكود هذا على جميع الخيارات لوقت اختيار العينة حيسبب مشاكل ؟ يعني راح نكرر هذا الكود على كل خيارات وقت اخذ العينة ... قبل وبعد هل اكتفي بخيار قبل الاكل بعد الاكل افضل ؟؟ بدلا من قبل الفطور بعد الفطور قبل الغداء بعد الغداء قبل العشاء بعد العشاء ولو اسالى براحتك اختنا الكريمة انا راى المتواضع تظل كما هى اعتقد لو النسب راح تتغير عند المريض قبل الفطار عن قبل الغداء او العشاء واتكرر الامر راح يجعل الطبيب يراجع المريض لذلك اعتقد انها ستكون مفيده ولكن ممكن نجمعهم بالكود البرمجى لو نفس القيم واحده قبل الفطور = قبل الغداء = قبل العشاء وكذلك لو نفسم القيم واحده بعد الفطور = بعد الغداء = بعد العشاء هل القيم التى نريد تلوين مرع النص بناء عليها ثابته قبل كل والجبات 2
Rawannnna قام بنشر مايو 5, 2017 الكاتب قام بنشر مايو 5, 2017 2 دقائق مضت, ابا جودى said: ولو اسالى براحتك اختنا الكريمة انا راى المتواضع تظل كما هى اعتقد لو النسب راح تتغير عند المريض قبل الفطار عن قبل الغداء او العشاء واتكرر الامر راح يجعل الطبيب يراجع المريض لذلك اعتقد انها ستكون مفيده ولكن ممكن نجمعهم بالكود البرمجى لو نفس القيم واحده قبل الفطور = قبل الغداء = قبل العشاء وكذلك لو نفسم القيم واحده بعد الفطور = بعد الغداء = بعد العشاء نعم , تقريبا القيم نفسها بأجمعهم واشوف النتيجة :)
ابو جودي قام بنشر مايو 6, 2017 قام بنشر مايو 6, 2017 (معدل) 12 دقائق مضت, Rawannnna said: نعم , تقريبا القيم نفسها بأجمعهم واشوف النتيجة :) اختنا الكريمة برجاء كتابة القيم بهذا الشكل - مابين (85 الى 135 ) قبل الفطور التكست بوكس باللون الأخضر - اقل من ( 85 ) قبل الفطور التكست بوكس باللون الأصفر -اكبر من ( 135 ) قبل الفطور التكست بوكس باللون الأحمر - مابين (85 الى 135 ) بعد الفطور التكست بوكس باللون الأخضر - اقل من ( 85 ) بعد الفطور التكست بوكس باللون الأصفر -اكبر من ( 135 ) بعد الفطور التكست بوكس باللون الأحمر ------------------------------------------------------------------------- وكذلك فى الباقى تم تعديل مايو 6, 2017 بواسطه ابا جودى 1
Rawannnna قام بنشر مايو 6, 2017 الكاتب قام بنشر مايو 6, 2017 35 دقائق مضت, ابا جودى said: اختنا الكريمة برجاء كتابة القيم بهذا الشكل - مابين (85 الى 135 ) قبل الفطور التكست بوكس باللون الأخضر - اقل من ( 85 ) قبل الفطور التكست بوكس باللون الأصفر -اكبر من ( 135 ) قبل الفطور التكست بوكس باللون الأحمر - مابين (85 الى 135 ) بعد الفطور التكست بوكس باللون الأخضر - اقل من ( 85 ) بعد الفطور التكست بوكس باللون الأصفر -اكبر من ( 135 ) بعد الفطور التكست بوكس باللون الأحمر ------------------------------------------------------------------------- وكذلك فى الباقى تم التعديل على كل الخيارات بس MS.ForeColor = vbWhite ايش الفائدة من هذا الكود ؟
ابو جودي قام بنشر مايو 6, 2017 قام بنشر مايو 6, 2017 الان, Rawannnna said: تم التعديل على كل الخيارات بس MS.ForeColor = vbWhite ايش الفائدة من هذا الكود ؟ هذا الكود بتقدرى تغيرى من خلاله لون الفونت اى الخط يعنى لما انا اضفته جعلت لون النص ابيض لما بيكون لون التيكست بوكس احمر 2
Rawannnna قام بنشر مايو 6, 2017 الكاتب قام بنشر مايو 6, 2017 3 دقائق مضت, ابا جودى said: هذا الكود بتقدرى تغيرى من خلاله لون الفونت اى الخط يعنى لما انا اضفته جعلت لون النص ابيض لما بيكون لون التيكست بوكس احمر أأأها لان ظهر لون الخط ابيض لما صار لون التسكت بوكس اصفر وكان غير واضح الرقم شكرا للتوضيح أستاذ محمد
ابو جودي قام بنشر مايو 6, 2017 قام بنشر مايو 6, 2017 1 دقيقه مضت, Rawannnna said: أأأها لان ظهر لون الخط ابيض لما صار لون التسكت بوكس اصفر وكان غير واضح الرقم شكرا للتوضيح أستاذ محمد الشكر لله اختنا الكريمة 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.