تعديل مسار الصور فى الوحدة النمطية

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

السلام عليكم ورحمة الله و بركاته 

أريد التعديل على مسار الصور فى الوحدة النمطية 
المسار الحالى 
 

    ImgPath = "D:\Photo\12 3"

حاولت الاضافة و لكن لم اعرف
ما أريد اضافته 
 

    ImgPath = "D:\Photo\12 3" & Left([WorkerSub.Worker];1) & "-File\"

و لكن يحدث خطأ 

حولت وضع الكود 
 

Left([WorkerSub.Worker];1) & "-File\"

فى الاستعلام و اضافته فى الوحدة النمطيه يحدث خطا كذلك 

المطلوب اضافة 
 

Left([WorkerSub.Worker];1) & "-File\"

الى 
 

    ImgPath = "D:\Photo\12 3"

وجزاكم الله خيراً

Worker (4).rar

تم تعديل أغسطس 3, 2019 بواسطه محمد احمد لطفى

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

هل هذا ماتقصده

Ta1.accdb

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

التعديل على الوحدة النمطية 
و ما وجدته كان بالاحمر اى لا يعمل و تم التغيير فى الاستعلام وهو ليس مطلوب لانه الوحدة النمطية تعطى امتداد الملف

تم تعديل أغسطس 4, 2019 بواسطه محمد احمد لطفى

[ابو عارف]

وعليكم السلام و رحمة الله و بركاته

غير فنكشن في وحدة نمطية الى:

Public Function FileName(ImagName)
    Dim ImgPath As String
    ImgPath = "D:\Photo\12 3"
    FileName = Dir(ImgPath & "\" & ImagName & ".*")
    If FileName = "" Then
      FileName = ImgPath & "\No.jpg"
    Else
      FileName = ImgPath & "\" & FileName
    End If
End Function

 

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

19 دقائق مضت, ابو عارف said:

وعليكم السلام و رحمة الله و بركاته

غير فنكشن في وحدة نمطية الى:

Public Function FileName(ImagName)
    Dim ImgPath As String
    ImgPath = "D:\Photo\12 3"
    FileName = Dir(ImgPath & "\" & ImagName & ".*")
    If FileName = "" Then
      FileName = ImgPath & "\No.jpg"
    Else
      FileName = ImgPath & "\" & FileName
    End If
End Function

 

جزاك الله خيرا  أستاذى @ابو عارف   طب بس المطلوب نضيف
 

Left([WorkerSub.Worker];1) & "-File\"

وده لان مسار كل حرف فى فولدر لوحده 

[ابو عارف]

تفضل أخي محمد

علما بان الصورة No.jpg ضع في فولدر (123) فقط لا داعي وضع تلك الصورة في جميع مجلدات 

Worker (4).rar

 

تم تعديل أغسطس 5, 2019 بواسطه ابو عارف
تبديل المرفق

[ابو عارف]

المرفق الجديد

Worker (4).rar

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

شكرا أستاذى @ابو عارف
شكراً أستاذى @ابو ياسين المشولي

تم تعديل أغسطس 5, 2019 بواسطه محمد احمد لطفى