• 0
sarook

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

سؤال

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

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

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

نسيت ان انوه ان هذا البرنامج ماخود من احد المواقع ونسيت اسم صاحبه ارجو ان يسامحني جزاه الله كل خير 

قمت بتعديل مايلزم ومايناسبني ظهرت هذه المشكلة 

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

21 إجابة على هذا السؤال .

  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

تم تعديل بواسطه sarook
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

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 Suberr_Form_Load:    If Err.Number = 2220 Then        'picture not found        Resume Next    Else        MsgBox Err.Number & vbCrLf & Err.Description    End If    End Sub

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

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

 

 

جعفر

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

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

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

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

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

سؤالك كان:

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

 

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

 


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

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

 

 

!!!

 

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

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

 

 

جعفر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم 

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

فعلا انك دقيق 

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

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

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

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

وحياك الله :)

 

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

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

الى

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

جعفر

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

 

 

جعفر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

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

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

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ليس في

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

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

 

جعفر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

جعفر

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

حياك الله :)

 

 

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

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

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

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

 

 

غير:

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

الى:

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

جعفر

تم تعديل بواسطه jjafferr
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم 

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

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

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

شكرا معلمي

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

والسلام

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

جعفر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم 

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .