منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : عند فتح الكومبو بوكس تظهر فيها جميع اسماء الزبائن
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته جمعة طيبة مباركة عليكم
طلبي مشروح بالتفصيل الممل داخل النموذج مع وافر التحايا
وهذا البرنامج في المرفقات
وعليكم السلام ..

كود :
Private Sub Form_Load()

   Set db = OpenDatabase(".\compny.mdb")
   Set rs = db.OpenRecordset("tbl1")
   Do Until rs.EOF
       Combo4.AddItem (rs!Namee)
       rs.MoveNext
   Loop
End Sub

Private Sub Combo4_Click()
   Text15.Text = Combo4.Text
End Sub
قم بمراجعة الموضوع
http://vb4arb.com/vb/thread-41733.html
الله يبارك بعمرك استاذي الفاضل Taha Okla جزاك الله خيرا
نعم هذا هو المطلوب تماما اللهم ربي يمن عليك بالصحة والعافية والخير والبركات ... اللهم آمين

والشكر موصول لاستاذي الفاضل المتوكل بالله جزاك الله خيرا