كيف ادرج اكثر من صوره في النموذج

ارجوا المساعده يااخوان

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

لقد حاولت مساعدتك قدر استطاعتي وقدر المتسع لدي من الوقت ولعل يدخل معنا احد الخبراء لمشاهدة الموضوع

مرفق الملف

fela_up.zip

بارك الله فيك وجزاك الله خير اخي محمد

اخي الفاضل

بالنسبه لعملية ادراج الصور ضبطت تمام

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

ووانا ودي ان كل سجل تظهر الصور المدرجه فيه

كذالك في التقرير تظهر صورتين متكرر ومكان الصوره الثالثه يظهر فاضي

ارجوا ان يكون مطلوبي واضح يااخوان

وارجو المساعده بارك الله فيكم وجزاكم الله خير

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

الرجاء ياياخوان

التعديل على هذا المثال

حاولت اعدل على تعديل الاخ محمد

لكن كل محاولاتي باءت بالفشل

ارجو المساعده

تحياتي واحترامي

شوف عزيزي

تضمين الصور في قاعدة البيانات تسبب مشكلة وهي مشكلة كبر حجم قاعدة البيانات بسرعة لا أعرف لماذا فيإذا كان حجم قاعدة البيانات مثلا 1 MB وضمنتها صورة حجمها 300 KB ستجد حجم قاعدة البيانات زاد عن 2 MB لذلك سنتلافا هذه المشكلة بالتالي :

• المرحلة الأولى.
  

1. أنشيء مجلد باسم البرنامج وضع فيه قاعدة البيانات.
   
2. أنشيء ثلاثة مجلادات داخل مجلد البرنامج وسمها (صور الفيلل _ صور المخططات _ صور الكروكي ) ويجب أن تكون الأسماء باللغة الإنجليزية سنضع في كل مجلد الصور بدلا من تضمينها في قاعدة البانات لأن حجم الصور سيبقى ثابت.
   
3. حفظ صورة الفيلا وصورة مخطط الفيلا وصورة كروركي الفيلا بنفس رقم الفيلا .
   

المرحلة الثانية :

1. نضع ثلاث كائنات للصور picture على النموذج ونسميها مثلا ( picture1 _ picture2 _ picture3 ).
   
2. نكتب كود نطلب فيه من البرنامج أن يعرض صورة الفيلا من مجلد صور الفلل على الكائن picture1 الموجود على النموذج بشرط مطابقة رقم الصورة لرقم الفيلا وبالمثل صورة الرسم التخطيط والرسم الكروكي.
   

لاحظ : حفظ صورة الفيلا وصورة مخطط الفيلا وصورة كروركي الفيلا بنفس رقم الفيلا .

وبإذن الله سيعمل البرنامج بشكل جيد.

حاول أن تعمل ما سبق بنفسك لأن ذلك أفيد لك وإذا عجزت في شيء أخبرنا به.

تمنياتي لك بأرباح وفيره ووصية لا ترفع في أسعار البيع أو الإجار. ولا ترى ناخذ منك فلوس مقابل ما نعطيك من معلومات.

بارك الله فيك اخي ابو ساره

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

والله العظيم حاولت لكن ماقدرت

ماقدرت اطبق الكلام اللي قلته

لكن باءت محاولاتي بالفشل تعقدت ماني عارف

فاذا تقدر اخي ابو ساره

او احد الاخوان يعدل على المثال

بارك الله فيكم وجزاكم الله خير

ولا يهمك

هذا المثال مرفق والحقل PicFile الموجود في الجدول ماعاد له لازمة أحذفه

Falah.rar

بارك الله فيك اخي ابو ساره

الله يجزاك خير وبيض الله وجهك

اخي الكريم اسف اني اتعبتك معي

اخي الفاضل تعديلك فعلا هو المطلوب وهذا الذي اريده

لكن اخي عندي ملاحظه وهي مهمه بالنسبه لي

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

كذلك مااقدر اضيف صور جديده للفيلا او امسحها

ماادري وش المشكله

ارجوا اخي ابو ساره اني مااكون اثقلت عليك

بارك الله فيك وجزاك الله خير

وياليت اني ماخذ على البرنامج فلوس كان والله لاعطيك نصف المبلغ

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

تحياتي واحترامي

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

الاخ الفاضل ابو ساره

ارجوا المرور على موضوعي

بارك الله فيك وجزاك الله خير

أخي الكريم

بالنسبة لإضافة سجل جديد فاستبدل الكود

Me.picture1.Picture = CurrentProject.Path & "\picture1\" & TxtFN & ".gif"
Me.picture2.Picture = CurrentProject.Path & "\picture2\" & TxtFN & ".gif"
Me.picture3.Picture = CurrentProject.Path & "\picture3\" & TxtFN & ".gif"

بالكود التالي :

On Error Resume Next
If Me.NewRecord Then
Me.picture1.Picture = ""
Me.picture2.Picture = ""
Me.picture3.Picture = ""
Else
Me.picture1.Picture = CurrentProject.Path & "\picture1\" & TxtFN & ".gif"
Me.picture2.Picture = CurrentProject.Path & "\picture2\" & TxtFN & ".gif"
Me.picture3.Picture = CurrentProject.Path & "\picture3\" & TxtFN & ".gif"
End If

بالنسبة لإضافة الصور فعند سحب الصورة عن طريق الماسح الضوئي أو كاميرا فيجب حفظها في المجلدات الخاصة بالصور كل صورة في مجلدها وسيقوم البرنامج بإضافتها واستعراضها نيابة عنك كل ما عليك أن تحفظ الصور رقم الفيلا التي سجلتها في الجدول فقط

بارك الله فيك وجزاك الله خير اخي الكريم ابو ساره

الله يبض وجهك والله انك ماقصرت لقد انحلت المشكله

شكرا شكرا شكرا

تحياتي واحترامي وتقديري لشخصك الكريم

شكراً لك على الإطراء

وبالتوفيق عزيزي