اظهار واخفاء صورة فى نموذج مستمر

[jo_2010]

الخبراء الاعزاء الافاصل

بعد التحية 

هل من الممكن تنفيذ ما بالصورة ام غير ممكن لانة نموذج مستمر

JO_Lab.rar

[jjafferr]

يا اهلا وسهلا Jo

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

ومن واقع التجربة ، فستحتاج الى تكبير حجم الحقل (طولا وعرضا) حتى ترى الصورة بحجم مناسب، وتأكد ان احجام الصور لا تكون كبيرة (500x500 يعتبر حجم كبير ومناسب) حتى لا يصبح برنامجك بطيئ.

 

[jo_2010]

1 ساعه مضت, jjafferr said:

يا اهلا وسهلا Jo

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

ومن واقع التجربة ، فستحتاج الى تكبير حجم الحقل (طولا وعرضا) حتى ترى الصورة بحجم مناسب، وتأكد ان احجام الصور لا تكون كبيرة (500x500 يعتبر حجم كبير ومناسب) حتى لا يصبح برنامجك بطيئ.

 

الخبير الفاضل jjafferr

ممكن لو تكرمت التطبيق على البرنامج ولك خالص الشكر

[kkhalifa1960]

بعد اذن استاذ @jjafferr تفضل استاذ @jo_2010 حسب مافهمت . تم اضافة جدول (Tbl_Logos) واضافة صورتان بالفولدر (0_YOUSSEF) وعمل استعلام (Qry_Logos) يأتي بمسار الصور من الفولدر  .ثم بالحقل الجديد (LogoPath) يأتي بمسار الصورة حسب الحقل (External_lab) . تفضل المرفق . ووافني بالرد .

JO_Lab-1.rar

[Foksh]

مشاركة مع الأساتذة ، دون الحاجة لإستعلام .. 

JO_Lab.zip

تم تعديل منذ 5 ساعات بواسطه Foksh
اضافة صورة توضيحية

[jo_2010]

9 ساعات مضت, jo_2010 said:

الخبراء الاعزاء الافاصل

بعد التحية 

هل من الممكن تنفيذ ما بالصورة ام غير ممكن لانة نموذج مستمر

JO_Lab.rar 1.18 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 9 downloads

الخبير الفاضل foksh

شكرا لاهتمامك حضرتك بمساعدتى 

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

اربد عند الضغط علي الزر الأخضر تختفى الصورتان لاتى لم احدد فى external lab اسم معمل المختبر او البرج 

كما اريد من حضرتك شرح الكود المكتوب فى 

Imgsourcetezt

[Foksh]

16 دقائق مضت, jo_2010 said:

اربد عند الضغط علي الزر الأخضر تختفى الصورتان لاتى لم احدد فى external lab اسم معمل المختبر او البرج 

 

Private Sub LABO_Click()
DoCmd.RunSQL "UPDATE Tbl_Lab_All SET External_lab = Null " & _
 "WHERE PCode = [ID];"
Me.Refresh
Me.Code_Kind.SetFocus
End Sub

 

[jo_2010]

18 دقائق مضت, Foksh said:

Private Sub LABO_Click()
DoCmd.RunSQL "UPDATE Tbl_Lab_All SET External_lab = Null " & _
 "WHERE PCode = [ID];"
Me.Refresh
Me.Code_Kind.SetFocus
End Sub

 

عند الضغط على الزر الأخضر تضل صورة البرج موجودة رغم لن external lab فارغ

[Foksh]

1 دقيقه مضت, jo_2010 said:

عند الضغط على الزر الأخضر تضل صورة البرج موجودة رغم لن external lab فارغ

في الملف الذي ارسلته لك ؟؟؟؟