اخفاء واظهار صور في نموذج مستمر ( مرفق مثال )

[hosslom]

السلام عليكم اخوتي الكرام

احتاج تطبيق هذه الفكره ومرفق قاعده للتطبيق عليها

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

 

test.rar

تم تعديل نوفمبر 4, 2021 بواسطه hosslom

[ابو جودي]

لا يمكن تحقيق ذلك , والله اعلم

[hosslom]

4 دقائق مضت, ابا جودى said:

لا يمكن تحقيق ذلك , والله اعلم

😪  😪  😪  😪 لايوجد امل نهائي ؟؟

[ابو جودي]

الان, hosslom said:

😪  😪  😪  😪 لايوجد امل نهائي ؟؟

من الناحية المنطقية لا 

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

وما سبق هو رايى المتواضع وانا اقل طالب علم قد يكون لدى اساتذتنا حلول فلا تيأس وانتظر 

[hosslom]

1 دقيقه مضت, ابا جودى said:

من الناحية المنطقية لا 

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

وما سبق هو رايى المتواضع وانا اقل طالب علم قد يكون لدى اساتذتنا حلول فلا تيأس وانتظر

شكرا اخي الكريم علي اهتمامك

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

اتمني ان اجد لها حل 

 

[ابو جودي]

11 دقائق مضت, hosslom said:

شكرا اخي الكريم علي اهتمامك

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

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

11 دقائق مضت, hosslom said:

اتمني ان اجد لها حل 

يعلم الله وانا كذلك واحاول من وقت نشر الموضوع 

[jjafferr]

السلام عليكم 🙂

 

في النموذج المستمر ، لا يمكن عمل شيء لحقل دون آخر ، إلا استعمال التنسيق الشرطي 🙂

الطريقة الاخرى ، ان يكون هناك حقل لمسار للصور:

 

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

.

الاستعلام مصدر بيانات النموذج ، وفيه مسار الصور ،

1- يجب تغيير المسار يدويا ،

2- اسم الصورة هو دمج (مو جمع) الحقلين Completed و Printed

.

لاحظ اسم الملفات

.

والنتيجة

.

جعفر

icons_3.zip

[د.كاف يار]

تفضل هذه المشاركة

مجلد جديد.rar

[jjafferr]

تم تعديل الطريقة الاولى ، بتسمية الاستعلام qry_Show_imgs1 ، والنموذج Form1 ،

وتمت الاستفادة من جزئية من كود اخوي حسين @د.كاف يار لضبط المسار تلقائيا (مع اني جربته سابقا ولم يعمل لسبب ما!!) ، شكرا اخوي حسين 🙂

 

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

وعليه ، الاستعلام qry_Show_imgs2 ، والنموذج Form2 ، يقومان بالعمل 🙂

 

جعفر

1501.2.icons_3.zip

[ابو جودي]

جزاكم الله خيـــــــرا  اساتذتى العظماء

وفكرتى المتواضعة على الطريقة الجعفرية كل الشكر استاذ @jjafferr لان الفكرة اصلا اكتسبتها منكم سابقا والحل الان منكم سيدى 

نقوم بعمل موديول عام 

Public Function IconByChk(ByVal strFieldNameA As String, ByVal strFieldNameB As String)
  IconByChk = CurrentProject.Path & "\ico\" & strFieldNameA & strFieldNameB & ".png"
End Function

ويتم استدعاءه فى الاستعلام 

img: IconByChk([completed],[printed])

واخيرا المرفق 

 

Show One img.zip

تم تعديل نوفمبر 5, 2021 بواسطه ابا جودى

[jjafferr]

12 ساعات مضت, hosslom said:

😪  😪  😪  😪 لايوجد امل نهائي ؟؟

 

12 ساعات مضت, hosslom said:

اتمني ان اجد لها حل 

الآن عندك بحر من الحلول 🙂

 

 

28 دقائق مضت, ابا جودى said:

وفكرتى المتواضعة على الطريقة الجعفرية

هلا والله بالمتواضع 🙂

 

جعفر

[ابو جودي]

31 دقائق مضت, jjafferr said:

هلا والله بالمتواضع 🙂

هلا والله وميت مليون هلا استاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @jjafferr 

والله فعلا انا عن نفسي احس بالانس وبالامان بوجودكم انتم وباقى اساتذتى العظماء فى المنتدى لانه بفضل الله تعالى ثم انتم لكل مشكلة فى جعبتكم لها حل

أدامكم الله روح طيبة تسكن القلوب .. ووجه باسم ترتاح له العيون .. ونفس مطمئنة تمتلك النفوس ..
وأسأله عز وجل أن يعطيكم من عطــاياه ويمنحكم عفوه ورضاه ويغفر لكم من عمركم ما مضى ويقدر لكم الخير فيما أتى ..
وأن يجعل السعادة رفيقتكم في الدنيا والآخره.. اللهم آمين.

تم تعديل نوفمبر 5, 2021 بواسطه ابا جودى

[hosslom]

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

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

44 دقائق مضت, jjafferr said:

الآن عندك بحر من الحلول 🙂

 

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

منذ ساعه, ابا جودى said:

جزاكم الله خيـــــــرا  اساتذتى العظماء

وفكرتى المتواضعة على الطريقة الجعفرية كل الشكر استاذ @jjafferr لان الفكرة اصلا اكتسبتها منكم سابقا والحل الان منكم سيدى 

نقوم بعمل موديول عام

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

جعله الله في ميزان حساناتك يارب