النجاشي قام بنشر أكتوبر 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 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أكتوبر 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 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أكتوبر 27, 2018 مشاركة قام بنشر أكتوبر 27, 2018 لم تجيب بعد هل ضبط معك الكود ام لا 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أكتوبر 27, 2018 الكاتب مشاركة قام بنشر أكتوبر 27, 2018 2 ساعات مضت, ابو ياسين المشولي said: لم تجيب بعد هل ضبط معك الكود ام لا راح اليوم اجربه يالغالي انشغلت بأشياء أخري السموحه استاذي الغالي راح اوفيك بالنتيجة الليله بإذن الله رابط هذا التعليق شارك More sharing options...
ابوعبدالله 2030 قام بنشر أكتوبر 27, 2018 مشاركة قام بنشر أكتوبر 27, 2018 اين نضع الكود ...مثلا عند الفتح او قبل التحديث....ارجو التوضيح للفائدة 1 رابط هذا التعليق شارك More sharing options...
عبد الله قدور قام بنشر أكتوبر 27, 2018 مشاركة قام بنشر أكتوبر 27, 2018 السلام عليكم اخي الكريم يمكنك القيام بذلك عن طريق التنسيق الشرطي ولست بحاجة الى كود 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أكتوبر 27, 2018 الكاتب مشاركة قام بنشر أكتوبر 27, 2018 (معدل) 23 دقائق مضت, ابوعبدالله 2030 said: اين نضع الكود ...مثلا عند الفتح او قبل التحديث....ارجو التوضيح للفائدة عند الضغط على زر 21 دقائق مضت, عبد الله قدور said: السلام عليكم اخي الكريم يمكنك القيام بذلك عن طريق التنسيق الشرطي ولست بحاجة الى كود ممكن مثال مصغر استاذي عبدالله لأننا على الموبيل لم أستطع رفع مثال لكن المقصود في قيمة سالب اعطيني اخضر قيمة موجب اعطي احمر فاضي اعطي ابيض تحياتي اليكم جميعا تم تعديل أكتوبر 27, 2018 بواسطه ابو زاهر رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أكتوبر 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 ممتاز بارك الله فيك استاذ ابو ياسين رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أكتوبر 27, 2018 مشاركة قام بنشر أكتوبر 27, 2018 8 دقائق مضت, ابو زاهر said: ممتاز بارك الله فيك استاذ ابو ياسين بالتوفيق اخي ابو زاهر 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أكتوبر 27, 2018 الكاتب مشاركة قام بنشر أكتوبر 27, 2018 3 ساعات مضت, ابو ياسين المشولي said: بالتوفيق اخي ابو زاهر الله يعطيك العافيه رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.