كيفية عمل أداة بحث فى الاكسس

[hishameldepse]

مساء الخير عليكم جميعا

هل يمكن عمل أداه بحث لملف معين اسمه مدروج فى الاكسس بمجرد الضغط على الزار تبدا الاأكسس فى البحث دخل الكمبيوتر فى فولدر معين بذاته على أى معلمومه قريبه أو بعيده مثل هذا ألاسم
وشكرا

 

تم تعديل فبراير 11, 2018 بواسطه ابوخليل
تعديل العنوان

[ابو ياسين المشولي]

Dim xFname As String

Set xFile = CreateObject("Scripting.FileSystemObject")
Set Stshell = CreateObject("WScript.Shell")

' مسار واسم الملف
xFname = "D:\data.mdb"

'بحث عن الملف في المسار في المتغير السابق
If xFile.FileExists(xFname) = True Then

'اذا وجده شغل الملف
Stshell.Run xFname

'غير ذلك اي لم يجد الملف
Else


MsgBox "غير موجود تاكد من مسار الملف"
End If

Set xFile = Nothing
Set Stshell = Nothing

جرب هذا