ابوخليل قام بنشر منذ 12 ساعات قام بنشر منذ 12 ساعات السلام عليكم استخدم دالة لتغيير خصائص النماذج دفعة واحدة مثل هذه : Public Function funforms() Dim frm As Object For Each frm In CurrentProject.AllForms DoCmd.OpenForm frm.name, acDesign Forms(frm.name).PopUp = True DoCmd.Close acForm, frm.name, acSaveYes Next End Function واريد تغيير لون خلفية مقطع التفاصيل وخلفية العناصر التي داخل التفصيل في النماذج ما التعديل الذي يحقق ذلك ؟
ابو البشر قام بنشر منذ 12 ساعات قام بنشر منذ 12 ساعات 3 دقائق مضت, ابوخليل said: واريد تغيير لون مقطع التفاصيل في النماذج ما التعديل الذي يحقق ذلك لم اجرب الكود ... جرب استاذنا الغالي التعديل التالي Public Function funforms() Dim frm As Object Dim frmDesign As Form For Each frm In CurrentProject.AllForms DoCmd.OpenForm frm.Name, acDesign Set frmDesign = Forms(frm.Name) ' تغيير خصائص النموذج frmDesign.PopUp = True ' تغيير لون خلفية مقطع التفاصيل (مثلاً إلى لون رمادي فاتح) frmDesign.Section(acDetail).BackColor = RGB(240, 240, 240) DoCmd.Close acForm, frm.Name, acSaveYes Next frm End Function تأكد من أن جميع النماذج ليست مفتوحة في وضع "عرض" أو "تصميم" قبل تنفيذ الوظيفة
ابوخليل قام بنشر منذ 12 ساعات الكاتب قام بنشر منذ 12 ساعات اهلا ابو البشر سوف اجرب مشكورا ولكني اجريت تعديلا بسيطا على السؤال .. كرما وفضلا ارجع اليه
ابو البشر قام بنشر منذ 12 ساعات قام بنشر منذ 12 ساعات وهذا ايضا Public Function ChangeFormsDetailBackColor() On Error Resume Next Dim objForm As AccessObject Dim frm As Form Dim newColor As Long newColor = RGB(230, 255, 230) ' لون أخضر فاتح - يمكنك تغييره For Each objForm In CurrentProject.AllForms DoCmd.OpenForm objForm.Name, acDesign, , , , acHidden Set frm = Forms(objForm.Name) If Not frm Is Nothing Then ' تحقق من وجود مقطع التفاصيل If frm.Section(acDetail).Visible Then frm.Section(acDetail).BackColor = newColor End If DoCmd.Close acForm, objForm.Name, acSaveYes End If Next objForm Set frm = Nothing End Function عفوا لم انته للتعدي ... يبدو ردي وقت التعديل 1
ابو البشر قام بنشر منذ 11 ساعات قام بنشر منذ 11 ساعات طيب جرب هذا .... Public Function ModifyFormsBackground() Dim frm As Object Dim ctl As Control For Each frm In CurrentProject.AllForms ' افتح النموذج في وضع التصميم DoCmd.OpenForm frm.Name, acDesign ' تغيير لون خلفية مقطع التفاصيل Forms(frm.Name).Detail.BackColor = RGB(240, 240, 240) ' لون فاتح رمادي ' تغيير خلفية العناصر داخل مقطع التفاصيل For Each ctl In Forms(frm.Name).Detail.Controls ' تغيير خلفية العناصر حسب نوعها Select Case ctl.ControlType Case acTextBox, acComboBox, acListBox, acCheckBox ctl.BackColor = RGB(255, 255, 255) ' أبيض Case acLabel ctl.BackColor = RGB(240, 240, 240) ' نفس لون خلفية المقطع ctl.BackStyle = 1 ' خلفية معتمة End Select Next ctl ' احفظ وأغلق النموذج DoCmd.Close acForm, frm.Name, acSaveYes Next End Function 1
ابوخليل قام بنشر منذ 11 ساعات الكاتب قام بنشر منذ 11 ساعات جربت كلها تعمل ويبدو ان الثاني افضل كونه يعمل بالخفاء ................................. ولكن الاخير شامل كامل .. فقط من رؤيته وقبل ان اجرب بارك الله فيك وزادك علما .. الف شكر 1
ابوخليل قام بنشر منذ 11 ساعات الكاتب قام بنشر منذ 11 ساعات بعد التجربة هذا السطر لا ولن يعمل Forms(frm.Name).Detail.BackColor أكسس لا يدعمه ما رأيك ابو البشر لو تم عمل دالة للألوان تشمل جميع مقاطع النموذج وعناصره .. وتكون العناصر حسب المقطع فمثلا لو اردت ان لون خلفية الرأس والذيل تختلف عن التفاصيل .. فمؤكد ان خلفية العناصر او اللون الأمامي سيختلف من مقطع لآخر احب دوما البرنامج عندما اتصفحه ان تكون النماذج صورة طبق الأصل من بعض .. من اجل راحة النفس والعين على فكرة : حاجتي انقضت بفضل الله ثم فضلك فجزاك الله خيرا
ابوخليل قام بنشر منذ 11 ساعات الكاتب قام بنشر منذ 11 ساعات جاء على بالي فكرة وهي قد تعجب بعض الاخوة الخبراء عمل فورم للتحكم بالوان النماذج وعناصرها سواء الألوان الخلفية أو الأمامية للعناصر فقط للألوان لا يخرج الى غيرها
Foksh قام بنشر منذ 10 ساعات قام بنشر منذ 10 ساعات وعليكم السلام ورحمة الله وبركاته.. مشاركتكم الأفكار ، بأن تكون الدالة معتمدة على الـ Tag بالإضافة الى الجدول ( أو بدونه بتضمين اللون في الاستدعاء ) ، بحيث كل مجموعة عناصر مشتركة في Tag واحد تأخذ نفس اللون بغض النظر عن موقعها !! 💡 مجرد فكرة ، ولكني نفذت مشابهاً لها في تغيير لون خلفية وخط عناصر من نوع ليبل حسب شرط محدد في مشروع لإدارة تأجير الشقق الفندقية والعقارات ،،
ابو جودي قام بنشر منذ 10 ساعات قام بنشر منذ 10 ساعات والدى الحبيب انظر الى فكرة تغيير الالوان هنا الذكر الحكيم.zip AnalogClock Without Timer Event.zip
ابوخليل قام بنشر منذ 10 ساعات الكاتب قام بنشر منذ 10 ساعات 8 دقائق مضت, ابو جودي said: والدى الحبيب فنظر الى فكرة تغيير الالوان هنا جميل .. هذا نصف الطريق نريد نموذجا على طريقة الأخ موسى _ يجلب الى اي مشروع يتم التحكم بكل مقطع وتفاصيله لوحده 10 دقائق مضت, Foksh said: وعليكم السلام ورحمة الله وبركاته.. مشاركتكم الأفكار ، بأن تكون الدالة معتمدة على الـ Tag بالإضافة الى الجدول ( أو بدونه بتضمين اللون في الاستدعاء ) ، بحيث كل مجموعة عناصر مشتركة في Tag واحد تأخذ نفس اللون بغض النظر عن موقعها !! 💡 مجرد فكرة ، ولكني نفذت مشابهاً لها في تغيير لون خلفية وخط عناصر من نوع ليبل حسب شرط محدد في مشروع لإدارة تأجير الشقق الفندقية والعقارات ،، تمام .. نأمل ان نحصل على طريقة اسهل
ابو جودي قام بنشر منذ 10 ساعات قام بنشر منذ 10 ساعات 2 دقائق مضت, ابوخليل said: جميل .. هذا نصف الطريق نريد نموذجا على طريقة الأخ موسى _ فقط _ يجلب الى اي مشروع يتم التحكم بكل مقطع وتفاصيله لوحده 11 دقائق مضت, Foksh said: تحت أمرك اعمل لك فكرة الثيمات اللى مع الساعه الانلوج ؟ ليتم تطبيقها على كامل المشروع
ابوخليل قام بنشر منذ 10 ساعات الكاتب قام بنشر منذ 10 ساعات 1 دقيقه مضت, ابو جودي said: تحت أمرك اعمل لك فكرة الثيمات اللى مع الساعه الانلوج ؟ ليتم تطبيقها على كامل المشروع لسنا في عجلة من امرنا شوف آخر كود لأخ ابي البشر فيه تفصيل للعناصر
ابو البشر قام بنشر منذ 9 ساعات قام بنشر منذ 9 ساعات (معدل) 1 ساعه مضت, ابوخليل said: ما رأيك ابو البشر لو تم عمل دالة للألوان تشمل جميع مقاطع النموذج وعناصره .. وتكون العناصر حسب المقطع فمثلا لو اردت ان لون خلفية الرأس والذيل تختلف عن التفاصيل .. فمؤكد ان خلفية العناصر او اللون الأمامي سيختلف من مقطع لآخر احب دوما البرنامج عندما اتصفحه ان تكون النماذج صورة طبق الأصل من بعض .. من اجل راحة النفس والعين تفضل ................................ Public Function CustomizeAllFormSections() Dim frm As Object Dim ctl As Control Dim section As section Dim sectionsToProcess As Variant Dim i As Integer ' قائمة المقاطع التي نريد معالجتها sectionsToProcess = Array(acHeader, acDetail, acFooter) For Each frm In CurrentProject.AllForms On Error Resume Next ' لتجاوز الأخطاء ' فتح النموذج في وضع التصميم DoCmd.OpenForm frm.Name, acDesign, , , , acHidden If Err.Number <> 0 Then Debug.Print "تعذر فتح النموذج: " & frm.Name Err.Clear GoTo SkipForm End If ' معالجة كل مقطع For i = LBound(sectionsToProcess) To UBound(sectionsToProcess) If Not Forms(frm.Name).section(sectionsToProcess(i)) Is Nothing Then Set section = Forms(frm.Name).section(sectionsToProcess(i)) ' تحديد ألوان فريدة لكل مقطع وعناصره Select Case sectionsToProcess(i) Case acHeader ' الرأس section.BackColor = RGB(173, 216, 230) ' أزرق فاتح ' ألوان عناصر الرأس For Each ctl In section.Controls Select Case ctl.ControlType Case acTextBox, acComboBox, acListBox ctl.BackColor = RGB(240, 248, 255) ' أزرق شاحب ctl.BorderColor = RGB(70, 130, 180) ' أزرق داكن Case acLabel ctl.BackColor = RGB(173, 216, 230) ' نفس خلفية الرأس ctl.ForeColor = RGB(0, 0, 139) ' أزرق داكن ctl.BackStyle = 1 Case acCommandButton ctl.BackColor = RGB(100, 149, 237) ' أزرق متوسط ctl.ForeColor = RGB(255, 255, 255) ' أبيض Case acCheckBox, acOptionButton ctl.BackColor = RGB(240, 248, 255) ' أزرق شاحب ctl.ForeColor = RGB(0, 0, 0) ' أسود End Select Next ctl Case acDetail ' التفاصيل section.BackColor = RGB(255, 255, 200) ' أخضر شاحب ' ألوان عناصر التفاصيل For Each ctl In section.Controls Select Case ctl.ControlType Case acTextBox, acComboBox, acListBox ctl.BackColor = RGB(255, 255, 255) ' أبيض ctl.BorderColor = RGB(144, 238, 144) ' أخضر فاتح Case acLabel ctl.BackColor = RGB(240, 248, 240) ' نفس خلفية التفاصيل ctl.ForeColor = RGB(0, 100, 0) ' أخضر داكن ctl.BackStyle = 1 Case acCommandButton ctl.BackColor = RGB(144, 238, 144) ' أخضر فاتح ctl.ForeColor = RGB(0, 0, 0) ' أسود Case acCheckBox, acOptionButton ctl.BackColor = RGB(255, 255, 255) ' أبيض ctl.ForeColor = RGB(0, 0, 0) ' أسود End Select Next ctl Case acFooter ' التذييل section.BackColor = RGB(255, 228, 225) ' وردي فاتح ' ألوان عناصر التذييل For Each ctl In section.Controls Select Case ctl.ControlType Case acTextBox, acComboBox, acListBox ctl.BackColor = RGB(255, 250, 250) ' وردي شاحب ctl.BorderColor = RGB(205, 92, 92) ' بني محمر Case acLabel ctl.BackColor = RGB(255, 228, 225) ' نفس خلفية التذييل ctl.ForeColor = RGB(139, 0, 0) ' أحمر داكن ctl.BackStyle = 1 Case acCommandButton ctl.BackColor = RGB(205, 92, 92) ' بني محمر ctl.ForeColor = RGB(255, 255, 255) ' أبيض Case acCheckBox, acOptionButton ctl.BackColor = RGB(255, 250, 250) ' وردي شاحب ctl.ForeColor = RGB(0, 0, 0) ' أسود End Select Next ctl End Select End If Next i CloseForm: ' حفظ وإغلاق النموذج DoCmd.Close acForm, frm.Name, acSaveYes SkipForm: On Error GoTo 0 Err.Clear Next End Function تم تعديل منذ 9 ساعات بواسطه ابو البشر
ابوخليل قام بنشر منذ 8 ساعات الكاتب قام بنشر منذ 8 ساعات 35 دقائق مضت, ابو البشر said: تفضل ................................ تمام ولا اجمل .. 100% تبقى التطوير الى الاجمل : 1- اضافة ما تبقى من العناصر .. ومنها التسميات .. ولا شك اهميتها كبيرة 2- التحكم بهذه الألوان من نموذج .. على طريقة ( الذكر الحكيم) لابي جودي التحكم سيكون اما مؤقت فقط حسب الاختيار .. متغيرات تأخذ القيم من خلال ما يتم من تعديل وموافقة وإما عمل جدول يحفظ هذه الألوان بحيث اذا انتقل المصمم الى مشروع جديد ينقل الجدول معه ويطبق الألوان عليه
ابو جودي قام بنشر منذ 8 ساعات قام بنشر منذ 8 ساعات طيب ده التصور المبدئى اللى خطر على بالى اممم ممكن يتم التطوير لاحقا بناء على رغباتكم لو لاقت الافكار هنا اعجابكم الثيمات.accdb
ابو جودي قام بنشر منذ 4 ساعات قام بنشر منذ 4 ساعات مش عارف الافكار عجبتكم واللا ايه محدش رد خالص على كل دى التجربة الثانية للتطوير اولا افتح الجدول باسم : tblThemeSettings تأكد انه فارغ ثم بعد ذلك قم بفتح النموذج : frmTheme والذى بدوره يضيف البيانات الى الجدول السابق فى حال كان الجدول فارغا واتمنى لكم الاستمتاع بتجربة النموذج السحرى : frmTheme فى تعديل ومعاينة واستعراض الثيمات وتحديد الثيم الاساسى الذى تفضله ليتم تطبيقه على كل نماذج القاعدة ويمكن تجربة الثيم الذى يتم اختياره من النموذج : as a test Only ليه انا سميت النموذج : frmTheme بالنموذج السحرى اولا هو غير مرتبط بالجدول وغير منضم اساسا سامع اللى بيقول ما ده شئ عادى وبيحصل طيب لكل ثيم عدد 3 سجلات ليه 3 1- الاول للتحكم فيما يخص المقطع Header 2- الثانى للتحكم فىما يخص المقطع Detail 3- الثالث للتحكم فيما يخص المقطع Footer طيب لاحظو معى ان زر الامر التالى و زر امر السابق لا يتم استعراض السجلات من خلالهم بل يتم استعراض الثيمات طيب وبما ان لكل ثيم 3 سجلات سوف يتم الاستعراض للسجلات الثلاث كل سجل من التبويب الخاص به هههههههه شغل مجانين صحيح محدش يزعق اتحملونى شرح سريع زر الامر : Prev Theme الانتقال الى الثيم السابق زر الامر : Next Theme الانتقال الى الثيم التالى ملحوظة يتم تطبيق كل ثيم بمجرد الضغط على ازرار الانتقال التالى والسابق كمعاينة فقط فى النموذج الحالى للاعدادت الثيم زر الامر : Set as Default Theme لجعل الثيم الحالى هو الثيم الافتراضى الذى يتم تطبيقه على كافة النماذج الازرار Header Section Detail Section Footer Section بداخلهم عناصر التحكم بالعناصر بشكل عام لكل مقطع على حده ممكن تغيير اللون لاى جزئيه تفضلها من خلال اختيار اللون من منتقى الالوان بالضغط على زر الامر : Pick Color الموجود بجانب كل عنصر والخاص به زر الامر : Only Preview من خلاله يتم تطبيق الالوان التى تم تعديلها واختيارها من منتقى الالوان لتتم المعاينة فقط فى النموذج الحالى فى حالة لم تعجبك الالوان بعد التعديلات فقط اغلق النموذج فى حالة اعجبك كل شئ بعد عمل المعاينة للتعديلات هنا يأتى دور زر الامر الاخيــــــــر زر الأمر : Save Color To Theme هو المسئول هن الاحتفاظ بالقيم الجديدة بعد تحديثها داخل جدول اعدادات الثيم لتبقى مخزنة وفق تعديلاتك التى اعجبت بها وتريد الاحتفاظ بها لها الثيم الثيمات(2).accdb
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.