اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


AhmedEmam
إذهب إلى أفضل إجابة Solved by husamwahab,

الردود الموصى بها

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

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

وشكرا

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

تحياتي

  • Like 2
رابط هذا التعليق
شارك

في ١١‏/١١‏/٢٠٢٠ 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 هو اسم الصوره التى يتم وضعها بجوار ملف البرنامج


 
تم تعديل بواسطه المهاجر ابو معاذ
رابط هذا التعليق
شارك

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

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

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

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

وشكرا

  • Like 1
رابط هذا التعليق
شارك

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

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

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

تحياتي

رابط هذا التعليق
شارك

  • أفضل إجابة

السلام عليكم

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

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

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

BackGround.rar

  • Like 3
رابط هذا التعليق
شارك

husamwahab

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

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

وشكرا

تم تعديل بواسطه AhmedEmam
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

 

 

11.PNG

22.PNG

Colors.rar

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information