التأكد من وجود الفولد فى الاستعلام

[محمد احمد لطفى]

 

 

كيف يمكن التأكد من وجود الفولدر  فى الاستعلام 

الاستعلام WorkerSubQ
الحقل folderName

عمل عمود جديد اذا كان الفولدر موجود True اذا كان غير موجود False

 

 

 

Photo.rar

[ابو جودي]

لا يمكن عمل ذلك من الاستعلام بطريقة مباشرة 
ولكن يمكن اذا كان الكود الاتى فى وحدة نمطية  لتتمكن استدعاء الكود فى زوايا التطبيق المختلفة حتى لو فى استعلام

الروتين المستخدم فى الوخدة النمطية :

Public Function CheckFolder(strFolderPath As String) As Boolean
Dim strIsFolder As String
    strFolderPath = strFolderPath
    strIsFolder = Dir(strFolderPath, vbDirectory)
    If strIsFolder = "" Then CheckFolder = False Else: CheckFolder = True
End Function

الان فى الاستعلام وحسب ما اشرتم فى رأس الموضوع اضف فى حقل جديد السطر الاتى 

CheckFolder([folderName])

مع العلم ان حقل الـ  folderName  فى الاستعلام لابد وان يحتوى على المسار كاملا للمجلد
 

[محمد احمد لطفى]

جزاك الله خيراً أستاذى @ابو جودي

[ابو جودي]

جزانا الله واياكم  .. يا اهلا بك