اضافة ظهور صوة تفيد أن الموظف ليس له صورة

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

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

كيف يمكن ظهور صور محددة عندما لا يكون للموظف صورة على الجهاز
و الصورة مرفقة No 

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

Photo.rar

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

[jjafferr]

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

 

تفضل ، هذا التعديل على الوجدة النمطية 

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

        FileName = iPath_In & fdr
        fdr = Dir
        
    Loop

    
End Function

 

جعفر

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

شكرا أستاذى