اريد كود ملئ كومبو بوكس من حقل في الدتا قريد
انا وصعت هذ الكود لكنه يقوم بملى عنصر واحد من الحقل فقط والحقل فيه 7 عناصر
المثال في المرفقات
انا وصعت هذ الكود لكنه يقوم بملى عنصر واحد من الحقل فقط والحقل فيه 7 عناصر
كود :
On Error Resume Next: Err.Clear
SQLs = "select NFacture from sto where Fournisseur='" & Text1.Text & "'"
If cc.State = adStateOpen Then cc.Close
cc.Open SQLs, CN, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = cc
Combo2.AddItem cc![NFacture]
المثال في المرفقات