بحث داخل كومبو اليه يحلها يبقي استاذ

السلام عليكم لو تقصد الأكمال التلقائى جرب الكود التالى

Private Declare Function SendMessage _
	  Lib "user32" Alias "SendMessageA" _
	  (ByVal hwnd As Long, ByVal wMsg As Long, _
	  ByVal wParam As Long, lParam As Any) As Long
'____________________________________________________

Public Sub ComboBoxSpeedFill(cmboBox As ComboBox)
   Dim rtn As Long, lngPos As Long
   With cmboBox
	  lngPos = Len(.Text)
	  If lngPos <> 0 Then
		 rtn = SendMessage(.hwnd, &H14C, -1&, ByVal .Text)
		 .ListIndex = rtn
		 .SelStart = lngPos
		 .SelLength = Len(.Text) - lngPos
	  End If
   End With
End Sub

Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
	Case 32, &H30 To &H6F, Is > &H7F
		ComboBoxSpeedFill Combo1
End Select
End Sub

Private Sub Form_Load()
Combo1.AddItem "الأقصي", 0
Combo1.AddItem "القدس", 1
Combo1.AddItem "فلسطين", 2
Combo1.AddItem "الجهاد", 3
Combo1.AddItem "الاسلام", 4
Combo1.AddItem "الحق", 5
Combo1.AddItem "العدل", 6
End Sub

طبعا سيتم الأستغناء عن كتابة كود أضافة البيانات للكمبو يدويا

وسيتم ربطه باحد الحقول بالكود أو بالداتا كنترول

وفى حالة ربطه بالكود راعى أن يتم تحميل البيانات للكمبوا أولا قبل أتمام عمليه الاكمال التلقائى

بالتوفيق

مشكور اخي ولكن هذا الكود سيعمل مع اول حرف في الكومبو يعني لمه ادوس ف هيقف علي فلسطين.

لكن انا عندي البينات مضافه بالشكل ده

1 - ram kingston 100
2 - H.D.D Malyese 250 500
3 - Kayboard 15

في في الاول رقم وبعدين - انا عايز اتجاهلهم يعني لمه يكتب مثلا ram يقف علي رام رغم اني مش في الاول يعني يتجاهل الرقم وال - اليه جمبه

حد فاهمني

.....

هل من منقذ :wacko:

لك 4 أمثلة تتعلق بطلبك و لك الأختيار

تحميل الأمثلة

جاري التجربه وياريت ياباشا يكون تمام

للأسف ليس هذا طلبي انا اريد عمل اوتو كومبليت لل كلمة التانيه اليه في الكمبو يعني اكني ال Id مش موجود والبحث يبقي علي الكلمة اليه بعديها

3 - Kayboard 15

عايز لمه يكتب K بقف علي كيبور

ملحوظة الاسم المراد البحث عنه ليس في اول الكلام