ارجو المساعدة في جلب الصورة داخل التقرير

السلام عليكــم ورحمـة الله وبركاتــه ،،

:wacko:

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

بحيث يعرض الاسم والصورة

Set DataReport3.Sections("section1").Controls("Image2").Picture = LoadPicture(App.Path & "\Cards\" & aaa & ".JPG")

لقد استخدمت هذا الكود لقد مشى الكود معاي تمام .لكن المشكلة انه في التقرير يعرض فقط آخر صورة للموظف ويكررها لجميع الموظفين

bringInf.MoveFirst

While Not bringInf.EOF = True

aaa = bringInf!allcode

Set DataReport3.Sections("section1").Controls("Image2").Picture = LoadPicture(App.Path & "\Cards\" & aaa & ".JPG")

bringInf.Update

bringInf.MoveNext

Wend

* aaa = bringInf!allcode المقصود به رقم الموظف علما ان اسم الموظف هو نفسه رقم الصورة.

ارجوا مساعدتي .واشكركم اولا واخيرا والمعذرة

ولازات مشكلة عرض الصور لجميع الموظقفين