كيف اظهر البيانات في ComboBox

أرجو أني يفيدك المثال التالي :

اتبع الخطوات التالية :

1 ـ صمم برنامج جديد وضع به combo ولتكن ombo1 .

2 ـ أكتب الكود التالي :

Option Explicit

Private m_blnBackspaced As Boolean

Private Sub Form_Load()

With combo1

.AddItem "Achim"

.AddItem "Adelheid"

.AddItem "Adolf"

End With

End Sub

Private Sub combo1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyBack Or KeyCode = vbKeyDelete Then

If Len(combo1.Text) > 0 Then m_blnBackspaced = True

End If

End Sub

Private Sub combo1_Change()

Dim i As Integer, lngPos As Long

With combo1

If m_blnBackspaced = True Or Len(.Text) = 0 Then

m_blnBackspaced = False

Else

For i = 0 To .ListCount - 1

If InStr(1, .List(i), .Text) <> 0 Then

lngPos = .SelStart

.Text = .List(i)

.SelStart = lngPos

.SelLength = Len(.Text) - lngPos

Exit For

End If

Next i

End If

End With

End Sub

مع تمنياتي لك بالتوفيق

أخوك أشرف المسماري من البيضاء ـ ليبيا

اسف نسيت أن أخبرك بالنسبة للطريقة التي ترغب فيها بعرض محتويات حقل ما في جدول ما في قاعدة البيانات ، ما عليك إلا أن تغيير ما في الفورم لود وتكتب :

أولا تعرف قاعدة البيانات .

ثانياً تعرف الجدول الذي موجود به الحقل الذي ترغب في عرض بيناته.

ثالثاً هذا الكود :

Set mydata = OpenDatabase(App.path & "" & "db1")

Set myrs = mydata.OpenRecordset("stat")

Dim i As Integer

For i = 1 To myrs.RecordCount

Combo1.AddItem (myrs.Fields("stat"))

myrs.MoveNext

Next i

Combo1.ListIndex = 0

والسلام

لك مني جزيل الشكر على هذه المساعدة

اخوك ابو بدر