[elgokr]

(30-08-18, 03:45 PM)larbihamri كتب : اخي elgokre شكرا على مرورك العطر
لكن الكود لم ينجح معي بهذه الطريقة لانه يقوم بحذف التكست الموجود داخل الكومبوبكس و لا يظهر النافذة المنسدلة للاكمال التلقائي

---

استاذ mero5000 نعم الاكمال التلقائي للبيانات لكن بشرط 
الكومبوبكس لا يمتلأ حتى اقوم بالكتابة عليه و كلما اضغط على حرف تبدأ عملية البحث عن السجلات  و من ثم يُملأ الكومبوبكس بنتيجة البحث حتى يتم ايجاد السجل المراد...ارجوا اني قربت لك الفكرة

بعد وضوع ما تريده

فى هذه الحالة انت لا تحتاج الى عملية تفريغ اى لا تحتاج الى هذا السطر

كود :

      ComboBox1.Items.Clear()

كل ما عليك فعله التالى

فى حدث KeyDown لما تقوم به عند الكتابة

كل ما عليك ان تجعل كود البحث بداخله بهذا الشكل

كود :

If e.KeyCode = Keys.Enter Then
      Nom_pBindingSource.Filter = "nom_p LIKE '%" & Me.ComboBox1.Text.Trim & "%'"
      For fil = 0 To Me.Nom_pBindingSource.Count - 1
          ComboBox1.Items.Add(Nom_pBindingSource(fil)("nom_p"))
      Next
end if

وبكده عند اتمام الانتهاء من الكتابة فقط اضغط Enter

وستجد انه قام ببداء البحث وقائم باضافة النتائج الى الكمبو

اتمنى ان تكون الفكرة مبسطة ووضحة لك

تحياتى لك

وتمنياتى لك التوفيق