كيف يمكن ملئ الكومبو بواسطة الكود

أنشيء استعلام وجمع فيه الحقول التي تريد عرضها في مربع التحرير والسرد ثم اعرض الاستعلام في عرض لغة SQL وانسخ عبارة SQL وافتح النموذج الذي عليه مربع التحرير ( الكمبوبوكس) ثم في حدث الحالي للنموذج في الوحدة النمطية أكتب التالي:

Me.cbo1.RowSource = ("قم بلصق جملة SQL هنا كما هي ")

ويمكنك كتابة هذه العبارة على زر أمر أو على النموذج عند الفتح

جرب واخبرنا إذا لم تعمل هذه الطريقة معك 0

ملاحظة: هما سميت مربع التحرير والسرد بـ cbo1 استبدله بالاسم الموجود لديك0

أخى العزيز مصلح

سأجرب هذه الطريقة و سأخبرك عن الحل

و لك تحياتى

هذا الإجراء يمكنك من تعبئة اي كمبوبكس مهما كانت بس اكتب اسم الاجراء وبين القوسين اسم الكمبو فاصلة جملة سيلكت

'ÈÈáß áÅÖÇÝÉ ÈíÇäÇÊ Ýí Ãí áÓÊ Ýí Ãí ÝæÑã

Public Sub AddToCbo(Objcbo As ComboBox, Optional Sqlstr As String)

Set AdoRecordset = New ADODB.Recordset

Set AdoRecordset = AdoConnect.Execute(Sqlstr)

Objcbo.Clear 'áÅáÛÇÁ ãÇßÇä ãßÊæÈ Úáì ÇáßæãÈæ ÚäÏ ßá ÚãáíÉ ÏÎæá æÎÑæÌ ÍÊì áÇÊÊßÑÑ ÇáãÍÊæíÇÊ

If Not AdoRecordset.EOF Then

Do While Not AdoRecordset.EOF

Objcbo.AddItem IIf(IsNull(AdoRecordset.Fields(0)), "", AdoRecordset.Fields(0))

AdoRecordset.MoveNext

Loop

End If

End Sub

وهكذا تستدعيه

If Combo1.Text = "" Or Combo1.Text = " " Then

Exit Sub

Else

Module1.AddToCbo Combo2, "select city from country where coutry ='" & Trim(Combo1.Text) & "'"

Combo2.ListIndex = -1

End If