اظهار صورة حسب قيمة حقل معين

[jo_2010]

الخبراء الافاضل ما اريدة بالصورة

JO_Lab.rar

[Moosak]

تريده هكذا أستاذ يوسف ؟ 🙂 

JO_Lab.rar

[Foksh]

وعليكم السلام ورحمة الله وبركاته أخي الكريم .. مشاركة مع مهندسنا الغالي ..

فكرتي تتلخص بالعمل على حدث On Paint لقسم التفاصيل .

قم بإضافة مربع نص غير منضم ، ولا تحدد له لون خلفية أو لون حدود وسميه مثلاً FokshTXT ، و طبق ما يلي :-

Private Sub تفصيل_Paint()
    If IsNull(Me.External_lab) Or Me.External_lab = "" Then
        Me.FokshTxT.BackStyle = 1
        Me.FokshTxT.BackColor = RGB(255, 230, 250)
    Else
        Me.FokshTxT.BackStyle = 0
    End If
End Sub

حيث وللتوضيح ، اللون [RGB(255, 230, 250)] هو لون الخلفية المستخدم في النموذج . فقط تحكمنا بتلوين خلفية مربع النص ، كما في الصورة التالية :-

 

وملفك بعد التعديل :-

JO_Lab.zip

 

[jo_2010]

شكرا للسادة الخبراء الافاضل علي المساعدة 

[jo_2010]

في 18‏/12‏/2025 at 18:46, Foksh said:

وعليكم السلام ورحمة الله وبركاته أخي الكريم .. مشاركة مع مهندسنا الغالي ..

فكرتي تتلخص بالعمل على حدث On Paint لقسم التفاصيل .

قم بإضافة مربع نص غير منضم ، ولا تحدد له لون خلفية أو لون حدود وسميه مثلاً FokshTXT ، و طبق ما يلي :-

Private Sub تفصيل_Paint()
    If IsNull(Me.External_lab) Or Me.External_lab = "" Then
        Me.FokshTxT.BackStyle = 1
        Me.FokshTxT.BackColor = RGB(255, 230, 250)
    Else
        Me.FokshTxT.BackStyle = 0
    End If
End Sub

حيث وللتوضيح ، اللون [RGB(255, 230, 250)] هو لون الخلفية المستخدم في النموذج . فقط تحكمنا بتلوين خلفية مربع النص ، كما في الصورة التالية :-

 

وملفك بعد التعديل :-

JO_Lab.zip 2.23 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a

 · 10 downloads

معلمى الفاضل  Foksh

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

 

 

[Foksh]

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

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

 

تقصد كده ..

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

 

[jo_2010]

3 ساعات مضت, Foksh said:

تقصد كده ..

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

 

تمام ياستاذى الفاضل

هذا مااريدة

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

وليس بجوار بعض

شكرا

[Foksh]

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

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

 

تقصد كده كمثال  ؟؟

 

[jo_2010]

منذ ساعه, Foksh said:

تقصد كده كمثال  ؟؟

 

نعم هذا ما اريدة أين القاعدة بعد بعد تعديل  حضرتك خالص الشكر

[Foksh]

تفضل الملف بعد التطبق :-

 

JO_Lab2.zip

[jo_2010]

2 ساعات مضت, Foksh said:

تفضل الملف بعد التطبق :-

 

JO_Lab2.zipFetching info...

شكرا لحضرتك بس بيعمل refresh كثير 

[Foksh]

منذ ساعه, jo_2010 said:

شكرا لحضرتك بس بيعمل refresh كثير 

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

لكن ما لم افهمه هو لماذا لا تستخدم الحل الأول بدلاً من تكرار الصورة كالمختبر مثلاً أو البرج لكل سجل !!!!

[Foksh]

أخي @jo_2010

بما أن موضوع الحدث عند رسم النموذج يسبب مشكلة لديك ، دعنا نتوجه إلى الحل التالي . وهو إضافة بسيطة الى الاستعلام مصدر النموذج الفرعي ليصبح كالتالي :-

SELECT Switch([External_lab] Is Null,Null,[External_lab]="",Null,[External_lab]="المختبر","Almokh",[External_lab]="البرج","1_AL_Borg",True,Null) AS DisplayImage, *
FROM [Qry_Analysis collection];

بدلاً من القديم :-

SELECT [Qry_Analysis collection].*
FROM [Qry_Analysis collection];

وطبعاً سنحدد مصدر عنصر الصورة التي تريدها ليصبح الحقل الجديد = DisplayImage

وبالتالي النتيجة بدون ترميش وتعتمد على مصدر النموذج الفرعي نفسه . والنتيجة في المرفق .

 

تم تغيير اسم عنصر الصورة من Image ( وهو اسم محجوز لآكسيس وهو غير صحيح ) الى الاسم ImageFoksh .

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

 

 

JO_Lab3.zip

[jo_2010]

معلمى الفاضل  Foksh

خالص الشكر ابدعت انتهت كل مشاكل الاحتمال الاول