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

للرفع

للرفع

للرفع

اخي لو امكن تنسيق 2007

السلام عليكم
اخي اكرم شكرا للاهتمام
اليك المرفق صيغة 2003
والسلام عليكم

الارشيف الالكتروني.rar

وعليكم السلام :)

استعمل هذا الكود في حدث التحميل:

Private Sub Form_Load()
On Error GoTo err_Form_Load

'Me.path2 = Me.id & "_image" & ss & ".jpg"
'Forms!ekama!image1.Picture = PictureFile

    Me.image1.Picture = Application.CurrentProject.Path & "\foto\" & Me.path2
    
Exit Sub
err_Form_Load:

    If Err.Number = 2220 Then
        'picture not found
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

طبعا قد لا تجد صور ، لان النموذج الفرعي عندك مربوط بالنموذج الرئيسي :)

وليست جميع الصور لديها اسم الصور في الحقل path2

جعفر

السلام عليكم

اشكرك اخي الكريم جعفر شكرا جزيلا 

لقد نجح الكود ولكن عند تحميل الصورة فقط

ولكن عند اختيار باقي صور المستندات لايعمل

ففي البداية عند اختيار كل الصور لكل المستندات والاسماء يعرض كل الصور بشكل طبيعي

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

ارجو ان اكون قد اوضحت 

وشكرا مرة اخرى 

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

وعليكم السلام :)

سؤالك كان:

sarook كتب:

تظهر هذه المشكلة فقط اثناء تحميل النموذج لاتظهر الصورة 

اما الآن ، سؤالك هو:

sarook كتب:

لقد نجح الكود ولكن عند تحميل الصورة فقط

ولكن عند اختيار باقي صور المستندات لايعمل

!!!

اذا فهمت قصدك صح ، فضع الكود على الحدث الحالي للنموذج ،

واذا لم يكن هذا قصدك ، فرجاء اعطني مثال برقم ID واسم الصورة ، وماذا يجب ان اراقب ، وماذا يجب ان يحصل (ليس بالكلام فقط ، وانما بمسميات الحقول والصور)

جعفر

السلام عليكم 

اشكرك كثير الشكر اخي جعفر

فعلا انك دقيق 

استعملت الكود الذي تكرمت بتنويري به  وحللت المشكلة الا 10% وهي

عند اختيار اسم جديد لاستعراض صور مستنداته تبقى الصورة القديمة لاخر اسم كنت عليه 

حاولت وضع نفس الكود في حدث عند تغيير الاسم ولكنه لم يعمل 

واشكرك اخي جعفر لمساعدتي يجعله في ميزان حسناتك

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

مرفق اخر تعديلات القاعدة

الارشيف المستندي.rar

وعليكم السلام :)

وحياك الله :)

غير الكود التالي:

    If Err.Number = 2220 Then
        'picture not found
        Resume Next

الى

    If Err.Number = 2220 Then
        'picture not found
Me.image1.Picture =""
        Resume Next

جعفر

sarook كتب:

استعملت الكود الذي تكرمت بتنويري به  وحللت المشكلة الا 10%

اريد افهم كيف حصلت على هذه النسبة :haha:

جعفر

هههههههههههههههههههههه

لان اخي المشكلة الاساسية ان كل اسم موظف كان لا يحتفظ بصور مستنداته  عند اغلاقه وفتحه 

يعني تضطر الى اختيار صورة لاي موظف مره اخرى كي تظهر باقي الصور

والمشكلة الحالية  التي حدتتك اخي الغالي جعفر عنها هيا عند اختيار موظف اخر لعرض صور مستنداته

الصورة لا تتغير بل تبقى اخر صورة مستعملة للموظف الذي قبله 

ارجو ان اكون قد احسنت الشرح

ويمكن عند تجربة البرنامج ان تصل الى مااقصده 

واسف اني ازعجتك

الكود الذي تكرمت بارساله استخدمته عند حدت في التحميل ولم يؤد النتيجة المطلوبة 

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

ليس في

حدت في التحميل

ولكن في الحدث الحالي

جعفر

اشكرك اخي العزيز جعفر وبارك الله فيك وجزاك الله كل خير وفقك الله وبارك الله في والديك

تم المطلوب بفضل الله سبحانه وتعالى ثم بفضلك اخي جعفر 

هل لي ان اثقل عليك واسالك سؤال اخر ؟

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

حياك الله اخي :)

اذا كان السؤال عن موضوع آخر ، فياريت تفتح موضوع جديد :)

جعفر

اشكرك اخي جعفر 

ولكن استدراكا لما سبق  حدث معي اتناء اختيار اسم موظف جديد ولا يوجد له اي صور فيما سبق تظهر رسالة تنبيه مكتوب فيها

"2101  الاعداد الذي ادخلته لهذه الخاصية غير صحيح  "

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

حياك الله :)

sarook كتب:

اشكرك اخي جعفر 

ولكن استدراكا لما سبق  حدث معي اتناء اختيار اسم موظف جديد ولا يوجد له اي صور فيما سبق تظهر رسالة تنبيه مكتوب فيها

"2101  الاعداد الذي ادخلته لهذه الخاصية غير صحيح  "

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

غير:

If Err.Number = 2220 Then
        'picture not found
Me.image1.Picture =""
        Resume Next

الى:

If Err.Number = 2220 or Err.Number = 2101 Then
        'picture not found
Me.image1.Picture =""
        Resume Next

جعفر

السلام عليكم 

حلت المشكلة باذن الله

اشكرك جزيل الشكر اخي جعفر 

الاستاذ استاذ

شكرا معلمي

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

لقد علقت اخي جعفر على الموضوع الجديد وهو بخصوص QR CODE يدعم اللغة العربية

والسلام

اعتذر منك اخي ، فانا لا اعرف شئ عن QR CODE :(

جعفر

السلام عليكم 

لا عليك اخي الكريم جعفر

ولكني اطمع ان يثير الموضوع اهتمامك :)

والسلام عليكم استاذنا