اضافة امتداد الصورة فى استعلام

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

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

أعمل على عرض صور الموظفين  يوجد فى الاستعلام مكان الصور جاهز  ودائما امتداد  jpg لكى تعمل الصورة 

فأنا أريد اضافة اكثر من امتداد حتى يعمل البرنامج مثلا  jpg أو jpeg 

أو يقرأ البرنامج الامتداد تلقاء نفسه و أعتقد أنه سيقوم بتقل للبرنامج 

أرجو عمل ما يفيد 

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

Photo.rar

تم تعديل يونيو 30, 2019 بواسطه محمد احمد لطفى

[jjafferr]

وعليكم السلام 🙂

 

تفضل:

 

الكود يأخذ الاسم ، ولا يهمه صيغة الملف/الصورة ،

واذا عندك اكثر من ملف بنفس الاسم ، ولكن بصيغ مختلفة ، فهو يأخذ آخر ملف

Private Sub Form_Current()

    Dim img_Path As String
    
    'img_Path = FileName("C:\Photo\", Me.Worker)
    img_Path = FileName(Application.CurrentProject.Path & "\Photo\", Me.Worker)
    Me.img_Employee.Picture = img_Path
End Sub


Public Function FileName(iPath_In As String, iCondition As Variant)
    
    Dim fdr As String
    
    fdr = Dir(iPath_In & iCondition & ".*")
    Do While fdr <> ""

        FileName = iPath_In & fdr
        fdr = Dir
        
    Loop

    
End Function

 

جعفر

1074.zip

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

أستأذنك أستاذى @jjafferr

ممكن العمل يكون على النموذج الاصلى المجدول  و مكان الصوة ايضا  من الاستعلام بحيث قد يكون لكل ادارة مثلا ملف 

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

[jjafferr]

في مشكلة في صيغة jpeg ، يمكن لأنها 4 حروف ، ما ادري !!

.

.

.

جعفر

 

1074.1.Worker.mdb.zip

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

شكراً أستاذى @jjafferr
جزاك الله خيراً سوف أكتفى بالوحدة النمطيه
حل مشكلة عدم ظهور صورة jpeg

تم تعديل يونيو 30, 2019 بواسطه محمد احمد لطفى

[jjafferr]

شكرا جزيلا على المعلومة 🙂