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

موديول تغيير Background لجميع الفورم الموجوده بقاعدة بيانات اكسس


AhmedEmam

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

الساده الاعضاء كل عام وانتم بخير 

انا اريد انشاء برنامج على اكسس واريد موديول لتغيير Background لجميع الفورم الموجوده بالبرنامج بحيث يتم توحيد الخلفيه ولما احب اغير اللون يتم تغييرها بشكل تلقائى على الجميع 

وذلك من خلال شاشه مخصصه لتغيير الخلفيه . مع العلم العمل سيتم على اكسس 2013.

ولكم جزيل الشكر 

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

السلام عليكم 

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

Dim frm As Object

For Each frm In CurrentProject.AllForms
    If frm.Name <> "frmSelectColor" Then
        DoCmd.OpenForm frm.Name, acDesign, , , , acHidden
        Forms(frm.Name).Section(acDetail).BackColor = Me.txtColor
        DoCmd.Close acForm, frm.Name, acSaveYes
    End If
Next

 

يتم استيراد هذا النموذج و استخدامه لتغيير جميع نماذج البرنامج

 

ارجو ان تكون الاضافة مفيدة لاخي السائل 

بالتوفيق للجميع

 

BackColor.rar

تم تعديل بواسطه يوسف أحمد
  • Like 2
رابط هذا التعليق
شارك

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