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

[moho58]

السلام عليكم

الاخوة في هذا المنتدى الرائع

* أريد التعديل على عرض الصور في النموذج (نموذج1)

بحيث عند إضافة صور تظهر مباشرة في مكان الصورة  Image16

لانه عند الدخول والخروج من النموذج تصبح الصورة غير ظاهرة حتى الضغط عليها في مربع القائمة list31

لكي تظهر في  Image16

وكذلك عند حذف هذه الصورة تحذف مباشرة دون الضغط عليها في مربع القائمة list31

 

* أريد كذلك أن تظهر الصورة في التقرير لاني لم استطيع تحديد مصدر عنصر التحكم لهذه الصورة لكي تظهر في التقرير  

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

 

baset.rar

[Foksh]

اخي الكريم ، جرب هذه المحاولة البسيطة 

 

baset.zip

[دروب مبرمج]

ضع هذا كود الوظيفة هذا في الموديول

Public Function SetFilePath(SetFileName As Variant, SetFolder As Variant)
SetFilePath = CurrentProject.Path & "\" & "SysFiles" & "\" & SetFolder & "\" & SetFileName
End Function

 

و في التقرير في مصدر الصورة استدعي الوظيفة اعلاه

=SetFilePath([Forms]![نموذج1]![List31];[Forms]![نموذج1]![ID])

تمام كذلك

تفضل هذا التعديل

 

 

baset.zip

تم تعديل سبتمبر 28, 2023 بواسطه دروب مبرمج

[moho58]

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

ضع هذا كود الوظيفة هذا في الموديول

Public Function SetFilePath(SetFileName As Variant, SetFolder As Variant)
SetFilePath = CurrentProject.Path & "\" & "SysFiles" & "\" & SetFolder & "\" & SetFileName
End Function

 

و في التقرير في مصدر الصورة استدعي الوظيفة اعلاه

=SetFilePath([Forms]![نموذج1]![List31];[Forms]![نموذج1]![ID])

تمام كذلك

تفضل هذا التعديل

 

 

baset.zip 238.63 kB · 1 download

مشكور أخي الكريم دروب مبرمج  على الرد والمتابعة إذا أمكن عندي  طلبين:

في الصورة رقم 1

عند فتح  النموذج نلاحظ  لا يتم عرض الصورة مباشرة بل يجب الضغط على اسمها الموجود في list31   حتى تظهر في المكان image16

* أنا أريد أخي عند فتح الصورة يتم عرض الصورة مباشرة في image16

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

في الصورة رقم 2:

عند الضغط على زر عرض التقرير نلاحظ يظهر في التقرير سجل واحد فقط

أنا اريد أن يظهر جميع السجلات في التقرير

و ربي يجازيك أخي الكريم خير الجزاء

نتمنى يكون عندك الحل لأني محتاجه كثير

 

 

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

اخي الكريم ، جرب هذه المحاولة البسيطة 

 

baset.zip 1.29 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 download

مشكور أخي الكريم على الرد والمتابعة

أخي أريد التعديلات التي عرضتها على الأخ دروب مبرمج

وشكرا كثيرا اخي وربي يجازيك

 

[Foksh]

4 دقائق مضت, moho58 said:

أخي أريد التعديلات التي عرضتها على الأخ دروب مبرمج

اسمح لي بسؤال أخي الكريم ،

هل تحتاج إضافة أكثر من صورة للموظف ؟

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

ملاحظتي لتوفر الوقت والجهد لك ليس إلا

 

[moho58]

الان, Foksh said:

اسمح لي بسؤال أخي الكريم ،

هل تحتاج إضافة أكثر من صورة للموظف ؟

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

ملاحظتي لتوفر الوقت والجهد لك ليس إلا

 

صورة واحدة فقط

 

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

وشكرا

[moho58]

1 ساعه مضت, دروب مبرمج said:

ضع هذا كود الوظيفة هذا في الموديول

Public Function SetFilePath(SetFileName As Variant, SetFolder As Variant)
SetFilePath = CurrentProject.Path & "\" & "SysFiles" & "\" & SetFolder & "\" & SetFileName
End Function

 

و في التقرير في مصدر الصورة استدعي الوظيفة اعلاه

=SetFilePath([Forms]![نموذج1]![List31];[Forms]![نموذج1]![ID])

تمام كذلك

تفضل هذا التعديل

 

 

baset.zip 238.63 kB · 5 downloads

معذرة لم أنتبه  أخي

كذلك الموظف يكون عنده  صورة واحدة فقط

وشكرا

 

[دروب مبرمج]

تفضل التعديل

 

baset.zip

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

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

 

ملاحظة في محلها فعلا يوجد تعارض

لديه ارشيف صور غير مرتبط بجدول

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

لكني جعلت آخر صورة تم اضافتها في المجلد هي الاساسية

فعلا يجب على صاحب الموضوع التمعن جيدا في كلامك لأنه هو المنطق بعينه شكرا لك

[Foksh]

5 دقائق مضت, دروب مبرمج said:

تفضل التعديل

أخي @دروب مبرمج إضافة جميلة وذكية 

 

Public Function SetFilePath(SetFolder As Variant)
SetFilePath = CurrentProject.Path & "\" & "SysFiles" & "\" & SetFolder & "\"
End Function

 

[Foksh]

53 دقائق مضت, moho58 said:

أنا اريد أن يظهر جميع السجلات في التقرير

تفضل ، التقرير يعرض كل الموظفين ، وانت قم بالتنسيق كما يحلو لك 

baset.zip

تم تعديل سبتمبر 28, 2023 بواسطه Foksh

[moho58]

7 ساعات مضت, دروب مبرمج said:

تفضل التعديل

 

baset.zip 242.9 kB · 7 downloads

ملاحظة في محلها فعلا يوجد تعارض

لديه ارشيف صور غير مرتبط بجدول

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

لكني جعلت آخر صورة تم اضافتها في المجلد هي الاساسية

فعلا يجب على صاحب الموضوع التمعن جيدا في كلامك لأنه هو المنطق بعينه شكرا لك

ممتاز أخي الفاضل والله عمل رائع

هذا هو المطلوب أخي

والله يعجز اللسان عن شكرك لهذه المساعدة التي تقدمه

ربي يرزقك ما تتمنى ومن حيث لا تحتسب أن شاء الله

 

 

حين عرض  التقرير  أخي تظهر الصور غير صافية تماما و فيها بعض التشويش كما في الصورة المرفقة

 

 

 

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

تفضل ، التقرير يعرض كل الموظفين ، وانت قم بالتنسيق كما يحلو لك 

baset.zip 1.52 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 4 downloads

مشكور أخي على المتابعة والاهتمام بموضوعي

ألف ألف شكر

الأخ دروب مبرمج  أجاب عن الموضوع

[hanafymahmood]

ما شاء الله عليكم بارك الله فيكم

كنت أبحث عن نفس الموضوع بطريقة مختلفة

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

وأحتاج أن تعرض الصور فى تقرير 

تنويه : لا أريد حذف أواضافة صورة

جمعتكم مباركة