النجاشي قام بنشر أكتوبر 25, 2018 قام بنشر أكتوبر 25, 2018 السلام عليكم ورحمه الله وبركاته حبتي الكرام اريد تعديل الكود بالطريقه الصحيحه اذا كانت قيمه الحقل سالب يعطي اخضر واذا كانت اكبر من موجب يعطي احمر واذا كانت القيمه بالحقل صفر يعطي ابيض تحياتي If Me.Text11 > 1 Then [Text11].BackColor = vbRed End If If Me.Text11 < 1 Then [Text11].BackColor = vbGreen End If If Me.Text11 <> 1 Then [Text11].BackColor = vbWhite End If
ابو ياسين المشولي قام بنشر أكتوبر 25, 2018 قام بنشر أكتوبر 25, 2018 انا في المبايل ولم اجرب الكود جرب هذا If Me.Text11 > 0 Then [Text11].BackColor = vbRed elseif Me.Text11 <0 Then [Text11].BackColor = vbGreen elseIf Me.Text11 =0Then [Text11].BackColor = vbWhite End if 1
ابو ياسين المشولي قام بنشر أكتوبر 27, 2018 قام بنشر أكتوبر 27, 2018 لم تجيب بعد هل ضبط معك الكود ام لا 1
النجاشي قام بنشر أكتوبر 27, 2018 الكاتب قام بنشر أكتوبر 27, 2018 2 ساعات مضت, ابو ياسين المشولي said: لم تجيب بعد هل ضبط معك الكود ام لا راح اليوم اجربه يالغالي انشغلت بأشياء أخري السموحه استاذي الغالي راح اوفيك بالنتيجة الليله بإذن الله
ابوعبدالله 2030 قام بنشر أكتوبر 27, 2018 قام بنشر أكتوبر 27, 2018 اين نضع الكود ...مثلا عند الفتح او قبل التحديث....ارجو التوضيح للفائدة 1
عبد الله قدور قام بنشر أكتوبر 27, 2018 قام بنشر أكتوبر 27, 2018 السلام عليكم اخي الكريم يمكنك القيام بذلك عن طريق التنسيق الشرطي ولست بحاجة الى كود 1
النجاشي قام بنشر أكتوبر 27, 2018 الكاتب قام بنشر أكتوبر 27, 2018 (معدل) 23 دقائق مضت, ابوعبدالله 2030 said: اين نضع الكود ...مثلا عند الفتح او قبل التحديث....ارجو التوضيح للفائدة عند الضغط على زر 21 دقائق مضت, عبد الله قدور said: السلام عليكم اخي الكريم يمكنك القيام بذلك عن طريق التنسيق الشرطي ولست بحاجة الى كود ممكن مثال مصغر استاذي عبدالله لأننا على الموبيل لم أستطع رفع مثال لكن المقصود في قيمة سالب اعطيني اخضر قيمة موجب اعطي احمر فاضي اعطي ابيض تحياتي اليكم جميعا تم تعديل أكتوبر 27, 2018 بواسطه ابو زاهر
النجاشي قام بنشر أكتوبر 27, 2018 الكاتب قام بنشر أكتوبر 27, 2018 في ٢٥/١٠/٢٠١٨ at 13:26, ابو ياسين المشولي said: انا في المبايل ولم اجرب الكود جرب هذا If Me.Text11 > 0 Then [Text11].BackColor = vbRed elseif Me.Text11 <0 Then [Text11].BackColor = vbGreen elseIf Me.Text11 =0Then [Text11].BackColor = vbWhite End if ممتاز بارك الله فيك استاذ ابو ياسين
ابو ياسين المشولي قام بنشر أكتوبر 27, 2018 قام بنشر أكتوبر 27, 2018 8 دقائق مضت, ابو زاهر said: ممتاز بارك الله فيك استاذ ابو ياسين بالتوفيق اخي ابو زاهر 1
النجاشي قام بنشر أكتوبر 27, 2018 الكاتب قام بنشر أكتوبر 27, 2018 3 ساعات مضت, ابو ياسين المشولي said: بالتوفيق اخي ابو زاهر الله يعطيك العافيه
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.