السلام عليكم ورحمة الله وبركاته
اعمل على برنامج به سجلات لأراضي (المساحة والأبعاد وغيرها) بالإضافة إلى صورة لكل قطعة أرض.
المشكلة هي أني أقوم بطباعة تقرير عن جميع الأراضي بحيث تظهر كل قطعة أرض في صفحة مستقلة وذلك عن طريقة جملة sql وكل شيء تمام ما عدا الصور.
استخدمت الكود التالي :
Dim rptPic As StdPicture
Dim rptImg As RptImage
Dim picLno, PathAno, tt As String
Set rptPic = LoadPicture(SP & "\areas\" & rptAno & "\" & RSLno.Fields("lno").Value & ".jpg")
Set rptImg = rptPIqrars.Sections("section1").Controls("image3")
Set rptImg.Picture = rptPicولكن المشكلة هي أنه تظهر فقط الصورة للقطعة الأولى وتتكرر على جميع السجلات في كل الصفحات.
المطلوب هو أن يكون لكل سجل خاص بقطعة أرض صورة الأرض الخاصة بها والمخزنة في مجلد في الجهاز.
الرجـــــــاااااااااااااااااء المساعدة.