ارجو المساعده فى اكواد البحث فى اليوزر فورم

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

الاخوه الافاضل

مرفق شيت

فيه عدد 2 يوزر فورم

اليوزرفورم الاولى هى التى يتم عن طريقها البحث

وفى اليوزر فورم 2

كومبوكس اريد عند الضغط عليها دبل كليك

يتم ظهور اليوزر فورم1 الخاصه بالبحث

ثم بعد عمليه البحث

يتم الضغط على الرقم الذى اريده دبل كليك

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

ارجو توضيح الخطأ.rar1

[الـعيدروس]

السلام عليكم

تفضل

Ad_1.rar

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

الخ عباد

بارك الله فيك

ونسأل الله ان يجعلك نافعا بعلمك

ويزيدك من فضله

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

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

تحيه طيبه وبعد

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

عند البحث

والترحيل الى التيكست بوكسات عند الضغطAd_1(2).rar

[الـعيدروس]

السلام عليكم

تفضل كود حدث ListBox1_Click

Private Sub ListBox1_Click()

On Error Resume Next

ii = 2

For i = 0 To Me.ListBox1.ColumnCount

Me.Controls("TextBox" & ii).Value = Me.ListBox1.List(ListBox1.ListIndex, i)

ii = ii + 1

Next

End Sub

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

اخى الكريم عباد

بارك الله فيك

ولكن ماذا بخصوصو سؤالى بظهور الاعمده المظلله بالون الاصفر فى الليست بوكس

حيث اننى حاولت

ولكن يتم ظهور 10اعمده فقط

والاعمده المظلله 12عامود

[الـعيدروس]

السلام عليكم

جرب المرفق

Ad_2.rar

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

اخى الكريم

عباد

بارك الله فيك

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

اما انا اريد اظهار اعمده معينه وهى الاعمده المظلله باللونى الاصفر فى المشاركه4

ولو انك لا حظت ان عدد الاعمده بالشيت 14 عمود

اما الاعمده المظلله 12عمود فقطAd_1(2).rar

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

للرفع

[الـعيدروس]

السلام عليكم

حسب معطاياتك تحديد اعدة معينه

طال الكود حبتين

إن شاء الله يعمل معك

جرب المرفق

Ad_3.rar

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

الاخ الكريم عباد

بارك الله فيك

ولكن يحدث خطأ

مثلا حاول البحث برقم 1

ستلاحظ ان رقم 101 لا يظهر فى اليست بوكس

ولكن لو قمت بالبحث برقم101 سوف يظهر

وكذلك الرقم 201

[الـعيدروس]

السلام عليكم

جرب المرفق

Ad_4.rar

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

اخى الكريم

عباد

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

الجميله والرائعه

بارك الله فيك