kmaal قام بنشر يوليو 16, 2012 مشاركة قام بنشر يوليو 16, 2012 (معدل) السلام عليكم ورحمة الله وبركاته أسأل الله أن يبلغنا ويبلغكم رمضان في أتم الصحة والعافية يرجى تكرمكم بمساعدتي بكود تفعيل زر موافق بشرط اختيار أي عنصر من عناصر الكمبوبوكس اما إذا كانت العناصر كلها على القيمة 0 يعني (فارغ) فإن الزر يكون غير مفعل نا جربت هذا الكود بس ما نفع معي : If ComboBox1.ListIndex = 0 And ComboBox2.ListIndex = 0 And ComboBox3.ListIndex = 0 And ComboBox4.ListIndex = 0 And ComboBox5.ListIndex = 0 And ComboBox6.ListIndex = 0 And ComboBox7.ListIndex = 0 And ComboBox8.ListIndex = 0 Then Me.CommandButton2.Enabled = False وشكراً جزيلاً وجزيتم خيراً التوقيع1.rar تم تعديل يوليو 16, 2012 بواسطه kmaal رابط هذا التعليق شارك More sharing options...
أبو ردينة قام بنشر يوليو 16, 2012 مشاركة قام بنشر يوليو 16, 2012 (معدل) و عليكم السلام و رحمة الله و بركاته كل عام و أنتم جميعا بخير أخي الكريم جرب هذا التعديل إن شاء الله يكون هو طلبك If ComboBox1.ListIndex <> 0 OR ComboBox2.ListIndex <> 0 OR ComboBox3.ListIndex <> 0 OR ComboBox4.ListIndex <> 0 OR ComboBox5.ListIndex <> 0 OR ComboBox6.ListIndex <> 0 OR ComboBox7.ListIndex <> 0 OR ComboBox8.ListIndex <> 0 Then Me.CommandButton2.Enabled = True Else Me.CommandButton2.Enabled = False End If أو يمكنك أستبدال ( OR ) ب ( AND ) و التبديل بين ( FALSE) و ( TRUE ) حسب المطلوب تأديته و جرب هذا أيضا If ComboBox1.ListIndex = 0 And ComboBox2.ListIndex = 0 And ComboBox3.ListIndex = 0 And ComboBox4.ListIndex = 0 And ComboBox5.ListIndex = 0 And ComboBox6.ListIndex = 0 And ComboBox7.ListIndex = 0 And ComboBox8.ListIndex = 0 Then Me.CommandButton2.Enabled = False Else Me.CommandButton2.Enabled = True End If تم تعديل يوليو 16, 2012 بواسطه أبو ردينة رابط هذا التعليق شارك More sharing options...
kmaal قام بنشر يوليو 17, 2012 الكاتب مشاركة قام بنشر يوليو 17, 2012 بارك الله فيك اخي على الرد جربت الكودات بس ما نفع انا حطيت الكود في هذا المكان Private Sub ComboBox1_Change() يمكن مكان الكود هو الغلط . مع خالص الشكر رابط هذا التعليق شارك More sharing options...
kmaal قام بنشر يوليو 17, 2012 الكاتب مشاركة قام بنشر يوليو 17, 2012 وجدت الحل إضافة هذا السطر إلى كل صندوق : CommandButton2.Enabled = (ComboBox1.ListIndex > 0 Or ComboBox2.ListIndex > 0 Or ComboBox3.ListIndex > 0 Or ComboBox4.ListIndex > 0 Or ComboBox5.ListIndex > 0 Or ComboBox6.ListIndex > 0 Or ComboBox7.ListIndex > 0 Or ComboBox8.ListIndex > 0) شكراً جزيلاً في أمان الله رابط هذا التعليق شارك More sharing options...
أبو ردينة قام بنشر يوليو 18, 2012 مشاركة قام بنشر يوليو 18, 2012 أخي كمال ضع الكود في زر الأمر موافق رابط هذا التعليق شارك 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.