نمایش عکس بدون ذخیره در برنامه (از فولدر) در گزارش

[MahanMahanPorNejad]

با سلام
در نمونه پیوست 4 قطعه عکس که روی درایو c آدرس دهی شده با شماره مرتبط هر عکس در گزارش(report) نمایش داده میشه
اگه یکی از این عکسها تغییر (یا حذف) بشه میخوام جای عکس اون شماره در گزارش به شکلی که نشان دهنده نداشتن عکس هست بیاد.
متشکرم

[انگوران]

سلام، يه عكس ديگه درست كن و روي اون بنويس "فاقد عكس" و كنترل كن زمان بروز خطا اين عكس قرار بگيره(در قسمت else )

[MahanMahanPorNejad]

سلام، يه عكس ديگه درست كن و روي اون بنويس "فاقد عكس" و كنترل كن زمان بروز خطا اين عكس قرار بگيره(در قسمت else )

باسلام وتشکر- قبل از ایجاد تایپیک این کار روی else انجام شد ولی نتیجه نگرفتم حتی به شکل

Me.AksRpt.Picture = "c:\Aks\" & 5 & ".Jpg"

[انگوران]

سلام، تو خط اول كد نويسي دستور on error goto x رو بذار و در قسمت else ابتدا برچشب(:x) بعد كد بالا رو بنويس

[MahanMahanPorNejad]

باسلام-
نمیدونم اشکال از کجاست؟ به هر شکل جواب نمیده.

[hamid-nice]

با سلام نمونه شما با استفاده از تابع دیگری اصلاح شد
موفق باشید

[MahanMahanPorNejad]

با سلام نمونه شما با استفاده از تابع دیگری اصلاح شد
موفق باشید

باسلام و تشکر ازراهنمایی شما
یه مشکل هست که احتمالا برخورد نکردید اینکه اگر همه عکسها را داشته باشی ولی اولین شماره توی جدول(تیبل) عکس نداشته باشه کلا نمایش نمیده.مثلا شماره های جدول (تیبل) به ترتیب 1و2و3و5 باشه ولی بجای عکس 1 (اولین رکوردجدول) شماره دیگر در فولدر عکسها باشه.

[hamid-nice]

با سلام
ابتدا یک عکس با متن " عکسی موجود نمی باشد با نام No image find و فرمت Jpg در فولدر عکسها اضافه کنید سپس مراحل زیر را انجام دهید
1- در فایل ضمیمه پست قبل لیبلی را که بامتن "فایل این عکس وجود ندارد " اضافه کرده بودیم حذف کنید
2- در کدهای نوشته شده کد های
Else
Me.AksRpt.Picture = "c:\Aks\" & "No image find" & ".Jpg"
End If
را جایگزین کدهای
Else
Label15.Visible = True
AksRpt.Visible = False
End If
که قبلا نوشته بودیم کنید
موفق باشید