كيفية تغيير الخلفية للنماذج الموجودة فى قاعدة بيانات اكسس بالكود للجميع فى وقت واحد

[AhmedEmam]

السلام عليكم الساده الاعضاء 

اريد كود تغيير لون الخلفية لاى نموذج فى البرنامج فى وقت واحد لان انا عندى حوالى 50 شاشة فمن الصعب ادخل على كل شاشة واغير الخلفية 

وشكرا

[محمد أبوعبدالله]

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

ضع الكود التالي في وحدة نمطية جديدة

Public Function XXPicture()
Dim XPicture As String
    XPicture = Application.CurrentProject.Path & "/01.jpg"
    XXPicture = XPicture
End Function

وضع الكود التالي في النماذج

Private Sub Form_Load()
    Me.Picture = XXPicture
End Sub

مع تغيير اسم الصورة ووضعها بجوار البرنامج

تحياتي

[المهاجر ابو معاذ]

في ١١‏/١١‏/٢٠٢٠ at 12:45, المهاجر ابو معاذ said:

اذا كنت تريد ذلك فلابد من العمل بنظام الباتشات Batches وهذا النظام يعطى لكل كمية مضافة رقم لكى يفصل الاسعار عن بعضها

مثلا = 2 بسعر 1850     بعطيه رقم باتش 1245464

          1 بسعر 1875    بعطيه رقم باتش 3245725

          3 بسعر 1910    بعطيه رقم باتش 4654579

وعند الصرف يتعامل مع هذه الباتشات ويقوم بقراءة سعرها اتوماتيك من خلال استعلامات بذلك وهذا النظام ادق نظام بحدد الربح بكل دقه

 

 

 

53 دقائق مضت, محمد أبوعبدالله said:

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

ضع الكود التالي في وحدة نمطية جديدة

Public Function XXPicture()
Dim XPicture As String
    XPicture = Application.CurrentProject.Path & "/01.jpg"
    XXPicture = XPicture
End Function

وضع الكود التالي في النماذج

Private Sub Form_Load()
    Me.Picture = XXPicture
End Sub

مع تغيير اسم الصورة ووضعها بجوار البرنامج

تحياتي

استاذنا الغالى

تمت التجربة وتعمل بشكل جيد

توضيح 01 هو اسم الصوره التى يتم وضعها بجوار ملف البرنامج

تم تعديل نوفمبر 18, 2020 بواسطه المهاجر ابو معاذ

[AhmedEmam]

محمد أبوعبدالله

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

انا عايز وحده نمطية تقرأ الصورة اللى على المسار وتطبق على جميع النماذج 

مش شرط صورة ممكن اخلى النماذج كلها طبق لون واحد من الوحده النمطية

وشكرا

[المهاجر ابو معاذ]

ياريت فكرة جميلة

[محمد أبوعبدالله]

9 ساعات مضت, AhmedEmam said:

ولكن طريقة حضرتك هضطر افتح كل نموذج علشان اضع الكود 

لا بد من منادة الوحدة النمطية داخل النموذج لاتمام عملية داخل النموذج

تحياتي

[husamwahab]

السلام عليكم

مشاركة مع اساتذتي الاعزاء

تفضل هذه المحاولة ارجو ان تكون طلبك

ملاحظة : شغل المايكرو لتشغيل الكود وهو معد لتغيير خلفية جميع النماذج المفردة في قاعدة البيانات 

BackGround.rar

[AhmedEmam]

husamwahab

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

[AhmedEmam]

husamwahab

السلام عليكم لو تتكرم حضرتك لو انا عايز اكتب فى الوحدة النمطية بدل ماياخد صورة من المسار على الكل 

اخليه ياخد header بلون  , detail بلون , footer بلون واكواد الالوان تتكتب فى الوحده النمطيه وانا ممكن اغير فيها بس بردو على الكل

وشكرا

تم تعديل نوفمبر 19, 2020 بواسطه AhmedEmam

[husamwahab]

بالخدمة استاذ AhmedEmam

بالنسبة للالوان ضع الكود التالي بدل كود خلفية النموذج

Forms(str).FormHeader.BackColor = vbRed
Forms(str).Detail.BackColor = vbBlue
Forms(str).FormFooter.BackColor = vbGreen

 

[AhmedEmam]

husamwahab

بجد تسلم والله 

الله ينور عليك يا استاذنا الف الف شكر

[husamwahab]

بالخدمة استاذ AhmedEmam

[kha9009lid]

اضافة لما اشار الية الاستاذ @husamwahab

يمكن استخدام كود الرقم مباشرة للالوان

..........BackColor = 16250095

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

هذه الصفحة تحتوي على مجموعة كبيرة من الالوان بثلاث صيغة تعمل مع اكسس

اداة صغيرة لمعرفة كود اللون لاي موقع او برنامج

قاعدة بيانات لتحويل كود اللون لصيغة الوان اكسس الرقمية او صيغة Hex او R G B

الملف في المرفقات

 

 

Colors.rar

[المهاجر ابو معاذ]

زادكم الله رفعة وعلما

[husamwahab]

تسلم ايدك استاذ kha9009lid

فعلا ادوات جميلة ومفيدة