[ تمت الإجابة ]إظهار صورة الموظف من اي مكان من الجهاز

اخي ابو الذهب

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

تفضل هذا برنامجك بعد التعديل وعليه زيادة حبتين بهارات

zaEmployeesPic2008.rar

ملاحظة : تم تعديل البرنامج بعمل بعض الإضافات

مشكوره اختي الغالية والله لايحرمنا منكم ومن مساعدتكم

تفضل يا اخي حل مشكلتك عقبال ما مشكلتي الاقي احد يحلها وبارك الله في الجميع

انا اسف يا جماعة لم انتبه انه تم الرد على الموضوع والاخت زهرة على راسنا جميعا ويا ريت تنظر في مشكلتي

______.rar

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

عند اختيار اضافة صورة يظهر لي هذا المسج

شكرا لإستاذتنا الأخت زهرة .. بارك الله فيك .. وجزاك الله خير

بعد أذن مشرفتنا الكريمة

أخي مشاكس .. هذه الرسالة تعني أن حجم الرابط لديك ( رابط الصورة أي مسارها )

أكبر من عدد الحروف الافتراضي في إعدادات الجدول tblEmp في الحقل ImagePath

الذي هو معد إفتراضيا بــ 50 ولحل هذا الخطأ غيّر حجم الحقل ImagePath في الجدول

من 50 إلى 100 وسيعمل معك البرنامج بمشيئة الله

نفس المشكله

بس ما اعتقد انه الصورة اتكون مربوطه مع الاسم او العمل

الاخ مشاكس ارجو ان تتاكد من هذا الكود

Private Sub Form_Current()
On Error Resume Next
Me![ImageFrame].Picture = Me![الصورة الشخصية]
If [الصورة الشخصية] = "ok" Then
k.Visible = True
Else
k.Visible = False
End If
End Sub

البرنامج عندي يشتغل 100 %

وشكرا للجميع