كود إضافة أسماء نماذج قاعدة بيانات لمربع تحرير وسرد

[صالح حمادي]

السلام عليكم و رحمة الله تعالى وبركاته إخوتي الكرام حياكم الله.

قمت بتصميم برنامج عندما  اختار قاعدة بيانات معينة من خلال مربع الحوار يقوم مباشرة بإضافة أسماء نماذج هذه القاعدة إلى مربع تحرير و سرد.

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

بارك الله بكم و جزاكم خير الجزاء

صالح.rar

[sandanet]

اخي صالح هل يمكنك وضع الملف بصيغة mdb لكي يتسنى لنا الاطلاع عليه 

تحياتي

[صالح حمادي]

تفضل أخي sandanet

 

صالح.rar

[رمهان]

هذا تعديل حسب طريقتك استاذ صالح

For i = 1 To xm.CurrentProject.AllForms.Count
salah.AddItem xm.CurrentProject.AllForms(i - 1).Name

تحياتي

[صالح حمادي]

ممتاز أستاذ رمهان الكود يعمل بشكل جيد و الحمد لله

ما جاء على بالي إنه CurrentProject تستعمل مع الملفات الخارجية

بارك الله فيك و جزاك خير الجزاء

[sandanet]

بحضور العمالقة لايسعنا سوى الانبهار 

[essam zidan]

For i = 1 To xm.CurrentProject.AllForms.Count
salah.AddItem xm.CurrentProject.AllForms(i - 1).Name