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

**محمد احمد لطفى** · يونيو 30, 2019

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

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

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

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

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

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

Photo.rar

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

**jjafferr** · يونيو 30, 2019

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

تفضل:

1074.Clipboard01.jpg.834415166ad0c1ef2b1b0353c2f20da3.jpg

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

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

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