[VB_Coder]

السلام عليكم

- في البداية قم بتغيير إسم الحقل لأنه يسبب مشكلة عند الإستعلام حيث لايتم الإستعلام . وقم بوضع دالة الإتصال بقاعدة البيانات التي في حدث اللود الخاص بالفورم في أعلى كود حدث اللود للفورم الدالة التي بإسم ConData .

- ثم ضع هذا الكود للزر :

كود :

On Error Resume Next: Err.Clear

SQLs = "select NFacture from sto where Fournisseur='" & Combo1.Text & "'"
If cc.State = adStateOpen Then cc.Close
cc.Open SQLs, CN, adOpenDynamic, adLockOptimistic

If cc.RecordCount > 0 Then
   Combo2.Text = cc![NFacture]
Else
   Combo2.Text = ""
End If

If cc.State = adStateOpen Then cc.Close

- تحياتي .