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

[moho58]

السلام عليكم

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

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

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

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

لكي تظهر في  Image16

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

 

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

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

 

baset.rarFetching info...

[Foksh]

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

 

baset.zipFetching info...

[دروب مبرمج]

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

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.zipFetching info...

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

[moho58]

  في 28‏/9‏/2023 at 13:25, دروب مبرمج 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

Expand  

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

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

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

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

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

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

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

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

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

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

 

 

  في 28‏/9‏/2023 at 12:50, Foksh said:

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

 

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

Expand  

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

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

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

 

[Foksh]

  في 28‏/9‏/2023 at 15:58, moho58 said:

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

Expand  

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

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

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

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

 

[moho58]

  في 28‏/9‏/2023 at 16:05, Foksh said:

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

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

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

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

 

Expand  

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

 

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

وشكرا

[moho58]

  في 28‏/9‏/2023 at 13:25, دروب مبرمج 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

Expand  

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

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

وشكرا

 

[دروب مبرمج]

تفضل التعديل

 

baset.zipFetching info...

  في 28‏/9‏/2023 at 16:05, Foksh said:

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

 

Expand  

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

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

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

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

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

[Foksh]

  في 28‏/9‏/2023 at 16:26, دروب مبرمج said:

تفضل التعديل

Expand  

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

 

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

 

[Foksh]

  في 28‏/9‏/2023 at 15:58, moho58 said:

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

Expand  

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

baset.zipFetching info...

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

[moho58]

  في 28‏/9‏/2023 at 16:26, دروب مبرمج said:

تفضل التعديل

 

baset.zip 242.9 kB · 7 downloads

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

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

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

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

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

Expand  

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

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

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

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

 

 

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

 

 

 

  في 28‏/9‏/2023 at 16:51, Foksh said:

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

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

Expand  

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

ألف ألف شكر

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

[hanafymahmood]

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

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

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

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

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

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