كيف ابحث بواسطة الكمبو بوكس

السلام عليكم و رحمة الله و بركاته

هذا كود لملئ الكمبو ببيانات حقل معين

اما باقى السؤال فهو غير مفهوم ارجو ارفاق مثال للتعديل عليه

Private Sub Combo1_GotFocus()
	Combo1.Clear
	If RS.RecordCount < 1 Then Exit Sub
	RS3.MoveFirst
	N = RS.RecordCount
	For i = 1 To N
		Combo1.AddItem RS![اسم الحقل]
		RS.MoveNext
	Next i

End Sub

بارك الله فيكم يا شباب

رائع ومشكور على الرد الجميل

الامر بسيط

هاتكتب جملة select

ولو عايز الكود بالضبط ف ارجو ارفاق مثال للتعديل عليه

السلام عليكم مرفق لكم صورة ألاجوا أن توضح لكم

اخى memoon

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

لو ما نجح معاك ارفق مثال اسهل من ان ترفق صووورة

انا منتظر المثال و سيتم التعديل عليه

ان شاء الله

:^) :^) السلام عليكم أرفقت لكم المثال :^) :^)

;) فكوة في السي لأن القاعدة حاطها في السي ;)

:blink: :blink: :blink: :blink: :blink:

Drive_C.zip

سؤااااال مهم جداااااااااااااااااااا

هل ممكن أختار أسم السيارة وينزل رقمها بالداتا غريد ؟؟