استخدمي هذا الكود في Choose:
Dim i As Integer
Dim rs2 As Recordset
rs1.Index = "fornkey"
Set rs2 = db1.OpenRecordset("SELECT * FROM Names WHERE Month = " & num)
If rs2.BOF And rs2.EOF Then Exit Sub
rs2.MoveFirst
Do Until rs2.EOF
Combo2.AddItem rs2!fname
rs2.MoveNext
Loop
rs2.Closeيسلموا كتير اخوي hamohd70:o:o:o:p:p:p:p:p
و اللع عن جد انك عضو مميز انا هلا مو على الجهاز
إن شاء الله لما اروح عالبيت رح اجربه
;);););)
و اللي عنده برنامج ال Fusion أو Vb-Power Wrap
ليش ما حدا عم برد ؟ انا لازمني هادول البرامج او واحد منهم على الأقل
و شكرا كمان مره(f)(f)(f)(f)
NaD00000000000000000sH(gift)(gift)
هذا الموضوع مغلق.