تغيير صورة ( شعار / صورة / غير ذلك ) في النماذج والتقارير

[عاشق_الرقي]

السلام عليكم ورحمة الله وبركاته

 

طبعاً حبيت أطرح هذا الموضوع لحاجتي الخاصة لذلك .. وللفائدة العامة أيضاً

الموضوع هو .. لو كان عندنا برنامج ( محاسبة - تحضير - عقار ... غير ذلك من البرامج المشتركة ) وفي حالة تم استخدامه

من أي قطاع تجاري وحابب أن يقوم بتغيير صورة أو شعار البرنامج ( مثل : شعار الشركة / إكليشة الخطابات الرسمية .. على سبيل المثال ... الخ )

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

ويقوم المستخدم بتغيير شعاراته دون الحاجة للرجوع الى المصمم ؟؟

[عمر ضاحى]

27 دقائق مضت, عاشق_الرقي said:

السلام عليكم ورحمة الله وبركاته

 

طبعاً حبيت أطرح هذا الموضوع لحاجتي الخاصة لذلك .. وللفائدة العامة أيضاً

الموضوع هو .. لو كان عندنا برنامج ( محاسبة - تحضير - عقار ... غير ذلك من البرامج المشتركة ) وفي حالة تم استخدامه

من أي قطاع تجاري وحابب أن يقوم بتغيير صورة أو شعار البرنامج ( مثل : شعار الشركة / إكليشة الخطابات الرسمية .. على سبيل المثال ... الخ )

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

ويقوم المستخدم بتغيير شعاراته دون الحاجة للرجوع الى المصمم ؟؟

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

بس 

مش عارف وضحت الفكره ولا لا

[jjafferr]

وعليكم السلام

 

اما طريقتي:

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

2. اعمل صورة لإسم الشركة (مثلا img_Company.jpg) ، وصورة اخرى لإسم الفرع ، القسم ، الشعبة ، وهكذا ، صورة لكل شيء تريد عرضه في البرنامج او طباعته)،

3. فب النموذج او التقرير اعمل كائن للصورة (مثلا Company_img)،
4. في حدث OnLoad للنموذج ، او حدث تنسيق قسم التفصيل في التقرير ، اكتب الكود التالي لكل صورة

me.Company_img.picture= currentproject.path & "\Logo\img_Company.jpg"

.

 

[عاشق_الرقي]

استاذي الفاضل عمر ضاحى اشكر اهتمامك وسرعة تجاوبك

ولكنطريقة استاذنا jjafferr  الغالي اسهب في الشرح مشكوراً

وجاري العمل على الملف

[Foksh]

4 ساعات مضت, عاشق_الرقي said:

السلام عليكم ورحمة الله وبركاته

 

وعليكم السلام ورحمة الله وبركاته ..

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

بحيث أقوم بإنشاء عادة 5 حقول داخل الجدول هذا =

Logo و Repo_Header و Repo Footer و Frm_Header و Frm_Footer .... حسب الحاجة طبعاً ، وجميعها من نوع نصي .

وفي النموذج اجعل لكل حقل زر اختيار صورة يتم نسخها في مجلد خاص داخل مجلدات المشروع ويتم تحديد مسارها داخل الجدول فقط . وعليه وكما أشار معلمنا الفاضل جعفر والأستاذ عمر يتم تحديد مسار مصدر عنصر الصورة مستخدماً الدالة Dlookup .

 

هذه فكرتي طبعاً الغير ملزمة وإنما ارتاح في تنفيذها ولم تسبب لي اي مشاكل منذ اعتمادها .

[Moosak]

طبعا طريقتي لا تختلف عن ما ذكره الإخوة المهندسين الأعزاء 🙂 
 

ولكن لدي صورة للنموذج الذي أستخدمه لضبط هذه الإعدادات :

والذي يستند بطبيعة الحال إلى جدول خاص بحفظ هذه البيانات يحتوي على سجل واحد فقط ..

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

مثال :

Public Function AppSett_OrganizationName() As String
'    اسم المؤسسة
    AppSett_OrganizationName = Nz(DLookup("OrganizationName", "[AppSettingesT]"), "")
End Function

Public Function AppSett_OrgBranch() As String
'    الفرع
    AppSett_OrgBranch = Nz(DLookup("OrgBranch", "[AppSettingesT]"), "")
End Function

Public Function AppSett_Org_Adress() As String
'    عنوان المؤسسة
    AppSett_Org_Adress = Nz(DLookup("Org_Adress", "[AppSettingesT]"), "")
End Function

Public Function AppSett_Show_Adress_In_Reports() As Boolean
'    إظهار العنوان في التقارير
    AppSett_Show_Adress_In_Reports = Nz(DLookup("Show_Adress_In_Reports", "[AppSettingesT]"), 0)
End Function

Public Function AppSett_OrganizationLogoPath() As String
'    رابط الشعار الأول
    AppSett_OrganizationLogoPath = Nz(DLookup("OrganizationLogoPath", "[AppSettingesT]"), "")
End Function

Public Function AppSett_OrganizationLogoPath2() As String
'    رابط الشعار الثاني
    AppSett_OrganizationLogoPath2 = Nz(DLookup("[OrganizationLogoPath2]", "[AppSettingesT]"), "")
End Function

 

فلو أردت استدعاء رابط الشعار الأول في التقرير مثلا .. أعمل مربع صورة وأجعل مصدر بياناته كالتالي :

= AppSett_OrganizationLogoPath()

ولو بغيت أظهر عنوان المؤسسة في التقرير أعمل مربع نص وأخلي مصدر بياناته :
 

= AppSett_Org_Adress()

وسلامتكم 🙂🖐

[kkhalifa1960]

مشاركة مع زملائي واحبتي تفضل استاذ @عاشق_الرقي محاولتي حسب مافهمت .

نموذج تغيير الشعارات (frm_Logos) وكيفية استدعائهم بالنموذج (frm_Office_Data) والتقرير (Rpt_OfficeData).

تفضل المرفق واذا حابب أي شئ زيادة انا حاضر .

DDCompanyLogos.rar