كود او طريقة لتغيير شكل زوايا مربع النص في تقرير أكسس

[rashed7]

السلام عليكم ورحمة الله وبركاته ,, اسعد الله مساؤكم بكل خير.

أولا كل عام وأنتم بخير وتقبل الله منا ومنكم صالح الأعمال ( عيد أضحى مبارك على الجميع ).

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

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

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

ولكم كل الشكر والتقدير.

Database1.accdb

[Moosak]

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

أنظر هنا : 

 

       

[rashed7]

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

 

تم تعديل يوليو 1, 2023 بواسطه rashed7
خطأ

[Moosak]

14 ساعات مضت, rashed7 said:

وأعتقد أنه يوجد كود للقيام بهذه المهمة وليس عن طريق رسم ولكن لم أعثر عليه.

لم أجد .. ولم يمر علي سابقا 🙂 

حتى الذكاء الاصطناعي عجز عنها 😅

[أبو إبراهيم الغامدي]

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

أهلا بك..

في 1‏/7‏/2023 at 20:06, rashed7 said:

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

لدي حيلة يمكن أن تستخدمها لهذا الغرض من خطوتين..

تصمم برواز منحني الزوايا ذو خلفية شفافة،  عن طريق برنامج (بوربوينت) أو أي برنامج رسم أخر.. كما في الصورة

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

 

بعد ذلك تذهب إلى أكسس وتعمل الخطوات التالية..

أرجو أن تكون هذه المشاركة مفيدة لك..

[أبو إبراهيم الغامدي]

  أهلا بكم..

أحب أن أوجه اعتذاري للأستاذ @Moosak لأني في الحقيقة لم أطلع على مشاركته المدرجة ضمن إجابته إلّا الآن..

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

في 11‏/2‏/2023 at 23:43, Moosak said:

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

[شايب]

37 دقائق مضت, أبو إبراهيم الغامدي said:

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

جدول MSysResources

 

[Moosak]

لا تثريب عليك أخي العزيز @أبو إبراهيم الغامدي 😄✋🏻

بالعكس استفدت من طريقتك وتعلمت أسلوب جديد 👍🏼😁

[rashed7]

في 2‏/7‏/2023 at 11:09, Moosak said:

لم أجد .. ولم يمر علي سابقا 🙂 

حتى الذكاء الاصطناعي عجز عنها 😅

اقدم لك اعتذاري @Moosak وحبيت اوضح بأني متأكد %100 بأني وجدت ملف اكسس به كود يقوم بهذه المهمة في أحد المنتديات ولكن من فترة طويلة قرابة الـ 4 او 5 سنوات، وتمنيت اني احتفظت بهذا الملف ولكن قدر الله وماشاء فعل، وإلى الآن لم اعثر عليه مرة اخرى من خلال بحثي في قوقل.

في 3‏/7‏/2023 at 06:27, أبو إبراهيم الغامدي said:

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

أهلا بك..

لدي حيلة يمكن أن تستخدمها لهذا الغرض من خطوتين..

تصمم برواز منحني الزوايا ذو خلفية شفافة،  عن طريق برنامج (بوربوينت) أو أي برنامج رسم أخر.. كما في الصورة

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

 

بعد ذلك تذهب إلى أكسس وتعمل الخطوات التالية..

أرجو أن تكون هذه المشاركة مفيدة لك..

• عضو جديد 01
• 
• •  6

• الكاتب

قام بنشر السبت at 21:04 (معدل)

أشكرك أخي الغالي @أبو إبراهيم الغامدي على الرد، ولكن الي كنت بقصده هو أن تكون حواف أو زوايا مربع النص في التقرير بشكل بيضاوي وذلك عن طريق كود يعمل على ذلك.

[أبو إبراهيم الغامدي]

8 ساعات مضت, rashed7 said:

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

إذا كان هذا الشكل البيضاوي الذي تريده

 

استخدم الشفرة التالية

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
   Me.ScaleMode = 6  '// Millimeters
   Me.Circle (50, 5), 18, vbMagenta, , , 0.26 '// 0.1 To 1.0
End Sub

db1.accdb

[Moosak]

وهذا درس يشرح طريقة عمل الشكل البيضاوي في التقرير 🙂