عدم وجود فایل درمسیرمورد نظز

[kamkam1]

باسلام خدمت دوستان عزیز
من از یک فایل تصویری درمسیر تعیین شده با دستور if استفاده می کنم.
چنانچه در فیلد ، مسیر فایل ذکرشده باشد(C:\test.bmp) و فایل مورد نظر(تصویری) موجود نباشد شرط مورد نظر انجام شود از چه دستوری باید استفاده کرد
جهت خالی بودن فیلد از دستور is null استفاده می کنم ولی عدم وجود فایل در مسیر مورد نظر را نمی دانم از چه دستوری باید استفاده کرد


باتشکر

[مهدی قربانی]

سلام
شما كدي كه استفاده مي كنيد اينجا بذاريد تا از روي همون راهنمايي بشيد ، در مجموع اينجور مواقع ميشه از رويه كنترل خطاها استفاده كرد .

[kamkam1]

باسلام و تشکر
نمونه کد:

If IsNull(DLookup("[pathBackgrund]", "option")) Then
Me.PICTURE = CurrentProject.path & "\Main Wallpaper3.bmp"
Else
Me.PICTURE = Nz(DLookup("[pathBackgrund]", "option"))
End If

[مهدی قربانی]

سلام
با توجه به كدهايي كه شما گذاشتيد و استنباط من ، همونطور كه در پست قبلي خدمتتون عرض كردم يكي از راهها استفاده از رويه كنترل خطاست بنابراين شما مي تونيد بواسطه كنترل خطا اقدامات بعدي رو در خلال رويه مورد نظرتون تعبيه كنيد :

On Error GoTo errcheck
If IsNull(DLookup("[pathBackgrund]", "option")) Then
Me.Picture = CurrentProject.path & "\Main Wallpaper3.bmp"
Else
Me.Picture = Nz(DLookup("[pathBackgrund]", "option"))
End If
errcheck:
If Err.Number = 2220 Then
MsgBox "تصوير مورد نظر يافت نشد", vbCritical + vbMsgBoxRight, "خطا"

دستوراتي كه مايليد اجرا بشه در اين قسمت قرار ميگيره
'
'
'
Else
MsgBox Err.Number & " " & Err.Description
Exit Sub
End If