السلام عليكم ورحمة الله وبركانه
أخي الكريم مثالك بعد التعديل
طبعا قمنا بانشاء وحدة نمطية فيها التأثيرالمطلوب وبامكانك التعديل في الالوان حسب ماتراه مناسب لك ثم يتم استدعائه من أي نموذج تريدعن طريق حدث عند فتح النموذج ... بالتوفيق
اتمنى اني وفقت في الاجابة
Ka_test.accdb
وعليكم السلام ورحمة الله وبركانه
أخي الكريم لو وضعت مثال توضيحي ليسهل التطبيق عليه بارك الله فيك
لكن طبق هذا الكود لربما يفي بالمطلوب
Public Sub EkCtrControl(frm As Form)
On Error Resume Next
Dim EkCtr As Control
For Each EkCtr In frm
If TypeOf EkCtr Is TextBox Then EkCtr.ForeColor = اكتب ماتريد
EkCtr.FontSize = اكتب ماتريد
EkCtr.FontName = اكتب ماتريد
EkCtr.BackColor = اكتب ماتريد
If TypeOf EkCtr Is CommandButton Then EkCtr.ForeColor = اكتب ماتريد
EkCtr.FontSize = اكتب ماتريد
EkCtr.FontName = اكتب ماتريد
If TypeOf EkCtr Is Label Then EkCtr.ForeColor = اكتب ماتريد
EkCtr.FontSize = اكتب ماتريد
EkCtr.FontName = اكتب ماتريد
EkCtr.BackColor = اكتب ماتريد
If TypeOf EkCtr Is ListBox Then EkCtr.ForeColor = اكتب ماتريد
EkCtr.FontSize = اكتب ماتريد
EkCtr.FontName = اكتب ماتريد
EkCtr.BackColor = اكتب ماتريد
Next EkCtr
End Sub
اتمنى اني وفقت في الاجابة
اخي ابا ابراهيم ... السلام عليكم ورحمة الله ... مبارك عليك الشهر .... الموضوع شدني وكنت انتظر هذا المثال منك بفارق الصبر ... جاري التجربة وبارك الله فيك
أخي الفاضل :
أولا : غيرنا خصائص النموذج s2 شكلي أو مشروط الى .. لا
ثانيا : أضفنا الكود التالي في خصائص النموذج واجه_المحاسبة في حدث عند تحريك الماوس والهدف من الكود هواغلاق النموذج s2
DoCmd.Close acForm, "s2", acSaveNo
أرجو أن أكون قد وفقت في هذا الشرح السريع