ارجو تصحيح الخطأ الذى يحدث فى الكومو بوكس

[إبراهيم ابوليله]

الاخوه الكرام

ستلاحظون عند مشاهده الملف الفلاشى

انه فى حالة استدعاء الفورم للمره الاولى

تظهر الكومو بوكس فارغه وعند الاختيار

تكون الارقام موجوده بدون تكرار

وبعد تنفيذ العمليه

وفتح الفورم مره اخرى

يتم تكرار الارقام فى الكومو بوكس

فارجو معالجة الخطأ

Copy of STAT-1.rar

AS.rar

[أبو حنــــين]

السلام عليكم

يجب مسح الكمبوبكس اولا ثم استدعاء البيانات فيكون الكود في UserForm_Activate كالتالي :

Private Sub UserForm_Activate()

Me.ComboBox1.Clear: Me.ComboBox2.Clear: Me.ComboBox3.Clear:

For Each cl In [B.CODE]

If cl <> "" Then

  Me.ComboBox1.AddItem cl

  End If

  Next

   For Each c2 In [AG.CODE]

If c2 <> "" Then

  Me.ComboBox2.AddItem c2

  End If

Next

    For Each c2 In [TAX]

If c2 <> "" Then

  Me.ComboBox3.AddItem c2

  End If

Next

End Sub

[إبراهيم ابوليله]

الاخ ابو حنين

فعلا والله

بارك الله فيك

على هذه المعلومه الجميله

ولكن لى سؤال اخر

كيف اجعل الكومو بوكس3

تظهر الارقام على انها %

اى تظهرها 10%و20%و30%

هكذا

ثم كيف اجعل المستخدم لا يستطيع ادخال بيانات فى الكومو بوكس

غير البيانات المسموح بها (البيانات التى تم عمل لها تسميه نطاق )

[أبو حنــــين]

في مكان هذا السطر

Me.ComboBox3.AddItem c2

ضع هذا السطر

Me.ComboBox3.AddItem Format(c2, "0%")

ليصبح التاتج على شكل نسبة

[إبراهيم ابوليله]

الاخ ابو حنين

بارك الله فيك

ولكن ماذا عن سؤالى

كيف اجعل المستخدم لا يستطيع ادخال بيانات فى الكومو بوكس

غير البيانات المسموح بها (البيانات التى تم عمل لها تسميه نطاق )

[أبو حنــــين]

إجعل مصدر البيانات بالكود التالي و ليس النطاق المسمى

و يكون هذه الكود في الحدث UserForm_Activate

Dim Ataxs

Ataxs = Array("10%", "20%", "30%", "40%", "50%", "60%")

ComboBox3.Style = fmStyleDropDownList

ComboBox3.List = Ataxs

[إبراهيم ابوليله]

الاخ ابو حنين

مشكورا على الرد