[ تمت الإجابة ]برنامج إدراج الصور للإخت زهراء !

في المرفق برنامج الاخت زهراء

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

Photo2005.rar

جرب هذا المثال

pic.rar

مشكور عزيزي ابو بسام

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

وفي حالة ضغط زر إضافة جديدة تبقى الصورة في محلها ما اتمناه ان يكون سجل جديد بالكامل حتى الصورة تكون غير موجودة

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

شكرا

تم التعديل على عجل

أتمنى أن هذا ما تريده

إذا فيه أي ملاحظات خبرني

وبالتوفيق إن شاء الله ،،

_______________________________.rar

مشكورة وماقصرتي صج ذي اللي كنت ابيه

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

آسف

تم عمل الازم على صورة واحدة فقط وبشكل سليم ولكن انا عندي في النموذج خانتين للصور

ما طبقته على الصورة الاولى طبقته على الصورة الثانية لكن لم تفلح الطريقة بسبب

في حالى عمل إضافة جديدة واختيار الصور تعمل بشكل سليم لكن لا تحفظ سوى الصورة الاولى اما الثانية لا

مع العلم اني عملت زرين لكل صورة على حده ومسار الصورة ايضا لكن لا اعمل ما هو الخطأ هل في الوحدة النمطية ام في الفورم

هلا بكـ man_2011 معاك أخوك ريان وليس أختك.

المهم إذا كنت تريد عمل خانتين للصور

أذهب للجدول وأضف خانه جديده لتخزين المسار

ثم أذهب للنموذج وأعمل نفس طريقة عمل ماسبق مع تغيير أسماء الأيقونات التي على النموذج وعدلها في الكود

وأما الوحده النمطيه فلا تغير فيها شيء تبقى كما هي.

إذا ما فهمت أرسل مثالك للتعديل أو سأرسل لك تعديل على النموذج السابق .

آسف عزيزي ريان على التسمية

ياليت تطبق المطلوب على المثال لاني حاولت اعمل نفس الطريقة السابقة لكن لم تفلح مع اني عملت كل شي مع تغيير المسميات

شكر لك عزيزي على مساعدتك

ضروري الله يخليكم يا خبراء

اخي الفاضل

راجع هذا الرابط فقد تمت الإجابه على نفس السؤال

/index.php?showtopic=166909

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

تفضل اخي الكريم

الملف بعد التعديل بإضافة صورتين في النموذج والتقرير

EMP.rar

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

الاستاذه // زهره

حياك الله

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

ونحمد الله على سلامتك

الطاير كتب:

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

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

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

أشكر الأخت زهره على جهودها

أخي الكريم الطاير

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

وتضع دالة if في الأيقونة التي على النموذج الخاصة بفتح التقرير

حيث أن rptImage هو أسم التقرير الذي به صورة

و rptImage2 هو اسم التقرير الذي لا يوجد به صورة .

Private Sub ViewOne_Click()
If IsNull([ID1]) Then
MsgBox "لا يوجد بيانات للطباعة", vbCritical, "warning"
Exit Sub
End If
 DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
If IsNull(ImagePath) Then
strReportName = "rptImage2"
		strCriteria = "[ImageID]= " & Me![ImageID]
		DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
Else
strReportName = "rptImage"
		strCriteria = "[ImageID]= " & Me![ImageID]
		DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
End If
End Sub

جزاك الله خير استاذ ريان على التوضيح

لكن هل يصلح هذا الشرط في تقرير واحد

وجزاك الله خير مرة اخرى

بارك الله بك اخي الكريم ريان

تفضل اخي الفاضل الطاير

تقرير واحد تستطيع فتحه سواء بوجود صوره او بدون وجود صوره

zaEMP_UP.rar

مشكورين على اهتمامكم بالموضوع

الاخت زهراء هناك مشكلة بسيطة ارجو ان تحوز على اهتمامج وهي

في حال الضغط على زر إضافة جديدة اكثر من مره فانه لكل ضغطه يتغير الرقم اي في حال الترقيم التلقائي يبدأ من 1 فان في حالة الضغط على اضافة جديدة اكثر من مره فان الرقم يصبح 2 و3 و4 و5 ويحفظ في الجدول من دون معلومات .

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

حتى مثال الاخت زهراء به المشكلة نفسها

اخي الكريم

بالتأكيد سيتم اضافة سجل جديد عند الضغط على زر إضافة

ولا اعلم لماذا يتم الضغط على زر اضافة اكثر من مره وانت اصلا لم تقم بإدخال بيانات

المفروض ان زر الإضافة هو فقط عند التأكد تماما انك تريد اضافة بيانات لأن زر الأمر هذا ينفذ الكود التالي

 DoCmd.GoToRecord , , acNewRec

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

او بمكانك البحث في المنتدى عن موضوع عدم الحفظ في خالة كانت الحقول فارغة في النموذج فقد تمت الإجابه على هذا الموضوع .

مشكورة على تجاوبج

ارجو تجربة المثال المرفق فأنه في حال الضغط على زر إضافة جديدة فأن (auto number)

لا يتغير بل يظل كما هو لحين المحاولة لإدخال اي بيانات في النوذج على عكس المثال الذي نحن بصدده مع كل ضغطه على زر اضافة جديدة يتغير الرقم والمشكلة الاهم هي اني ادخلت بيانات برقم 50 مثلا وغلقت النموذج وحين فتحه مره ثانية واضافة بيانات يصبح الرقم 52 والرقم 51 يظل فاضي

اتمنى اني استطعت توصيل الفكرة ومع تجربة المثال المرفق سيتضح قصدي اكثر

حاولي الضغط على زر إضافة جديدة في النموذج اكثر من مره فأنه لن يتغير وهذا ما اريده

شكرا

_____________________.rar

Private Sub ADD_Click()
On Error Resume Next
 DoCmd.GoToRecord , , acNewRec
 [ImageFrame1].Picture = ""
 [ImageFrame2].Picture = ""
 [ImagePath1] = Null
 [ImagePath2] = Null
End Sub

بدلاً من هذا الكود

أكتب الكود التالي إن شاء الله ينفع

Private Sub ADD_Click()
On Error Resume Next
 DoCmd.GoToRecord , , acNewRec

End Sub

مشكور عزيزي ريان فعلا هذا المطلوب وجزاك الله الف خيير

جزاك الله خير اخت زهرة

ومبارك عليك الشهر

هذا فعلا ما كنت اريده

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

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

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