[وادي العوضي]

السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته جمعة طيبة مباركة عليكم
طلبي مشروح بالتفصيل الممل داخل النموذج مع وافر التحايا
وهذا البرنامج في المرفقات

[Taha Okla]

وعليكم السلام ..

كود :

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 جزاك الله خيرا
نعم هذا هو المطلوب تماما اللهم ربي يمن عليك بالصحة والعافية والخير والبركات ... اللهم آمين

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