جستجوي فايلهاي excel در پوشه پروژه Access

[Pasargad3]

سلام دوستان
يه دستور مي خوام كه فايلهاي اكسل موجود در كنار برنامه رو كه 14 فايل با نام هاي 1910 تا 1923 هستند چك كنه و وجودشون رو تائيد كنه و اگه حتي يكي از اونها وجود نداشت پيغام خطا بده .
هر 370 صفحه تاپيك ها رو رفتم ولي فقط براي جستجوي عكس در كنار برنامه بود كه اونم كدش اينه كه من هم خيلي ازش ير در نياوردم:



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





اگر ممكنه يا اين كد رو اصلاح بفرمائيد يا كد جديدي بهم بديد تا رويداد كليك يه دكمه بنويسم .



با تشكر