كل الانشطه

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل في هذا الموضوع أريد التحكم في ارتفاع الصفوف في تقرير انطلاقا من الاختيار من مربعات سرد وتحرير في نموذج مثال: لعرض التقرير : من النموذج frm_examen_fin_formation اختار: السنة: 2021/2020 الدرجة: معلم البلد: عمان لكن قبل عرض التقرير المسمى rap_pv يجب عمل مقارنة بين المعطيات المذكورة أعلاه ومقارنته في الجدول المسمىtab_hauteur_range في الجدول نجد مايلي: السنة: 2021/2020 الدرجة: معلم البلد: عمان ارتفاع الصف: 1سم اسم التقرير : rap_pv - المقارنة بين المعطيات المختارة من النموذج (السنة - الدرجة - البلد-اسم التقرير ) نبحث عنها في الجدول tab_hauteur_range والتي تكون متشابها يتم على أساسها تحديد ارتفاع صف التقرير و في هذا المثال بعد المقارنة ارتفاع صف التقرير هو 1 سم - وإذا اخترت من النموذج الاختيارات وعملت مقارنة ولم اجد ما يشابها في الجدول tab_hauteur_range اجعل ارتفاع صف التقرير تلقائا هو 0.7 بهذا المبدأ أريد التحكم في ارتفاع صف التقرير لانه لدي سنوات كثيرة ودرجات وبلدان وبهذه الكيفية اتحكم جيدا في التقارير في التقرير : rap_pv توجد احيانا حقول كثيرة وقد اختصرتها فقط نتمنى اني اوصلت الفكرة وان شاء الله يمكن تجسيدها الرجاء المساعدة والتوجيه وبارك الله فيكم baseM.accdb

طيب ده التصور المبدئى اللى خطر على بالى اممم ممكن يتم التطوير لاحقا بناء على رغباتكم لو لاقت الافكار هنا اعجابكم الثيمات.accdb

تمام ولا اجمل .. 100% تبقى التطوير الى الاجمل : 1- اضافة ما تبقى من العناصر .. ومنها التسميات .. ولا شك اهميتها كبيرة 2- التحكم بهذه الألوان من نموذج .. على طريقة ( الذكر الحكيم) لابي جودي التحكم سيكون اما مؤقت فقط حسب الاختيار .. متغيرات تأخذ القيم من خلال ما يتم من تعديل وموافقة وإما عمل جدول يحفظ هذه الألوان بحيث اذا انتقل المصمم الى مشروع جديد ينقل الجدول معه ويطبق الألوان عليه

تفضل ................................ 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

لسنا في عجلة من امرنا شوف آخر كود لأخ ابي البشر فيه تفصيل للعناصر

تحت أمرك اعمل لك فكرة الثيمات اللى مع الساعه الانلوج ؟ ليتم تطبيقها على كامل المشروع

جميل .. هذا نصف الطريق نريد نموذجا على طريقة الأخ موسى _ يجلب الى اي مشروع يتم التحكم بكل مقطع وتفاصيله لوحده تمام .. نأمل ان نحصل على طريقة اسهل

والدى الحبيب انظر الى فكرة تغيير الالوان هنا الذكر الحكيم.zip AnalogClock Without Timer Event.zip

وعليكم السلام ورحمة الله وبركاته.. مشاركتكم الأفكار ، بأن تكون الدالة معتمدة على الـ Tag بالإضافة الى الجدول ( أو بدونه بتضمين اللون في الاستدعاء ) ، بحيث كل مجموعة عناصر مشتركة في Tag واحد تأخذ نفس اللون بغض النظر عن موقعها !! 💡 مجرد فكرة ، ولكني نفذت مشابهاً لها في تغيير لون خلفية وخط عناصر من نوع ليبل حسب شرط محدد في مشروع لإدارة تأجير الشقق الفندقية والعقارات ،،

جاء على بالي فكرة وهي قد تعجب بعض الاخوة الخبراء عمل فورم للتحكم بالوان النماذج وعناصرها سواء الألوان الخلفية أو الأمامية للعناصر فقط للألوان لا يخرج الى غيرها

بعد التجربة هذا السطر لا ولن يعمل Forms(frm.Name).Detail.BackColor أكسس لا يدعمه ما رأيك ابو البشر لو تم عمل دالة للألوان تشمل جميع مقاطع النموذج وعناصره .. وتكون العناصر حسب المقطع فمثلا لو اردت ان لون خلفية الرأس والذيل تختلف عن التفاصيل .. فمؤكد ان خلفية العناصر او اللون الأمامي سيختلف من مقطع لآخر احب دوما البرنامج عندما اتصفحه ان تكون النماذج صورة طبق الأصل من بعض .. من اجل راحة النفس والعين على فكرة : حاجتي انقضت بفضل الله ثم فضلك فجزاك الله خيرا

بارك الله بكم استاذي الفاضل 😇.. شكراً لك 💐

جربت كلها تعمل ويبدو ان الثاني افضل كونه يعمل بالخفاء ................................. ولكن الاخير شامل كامل .. فقط من رؤيته وقبل ان اجرب بارك الله فيك وزادك علما .. الف شكر

طيب جرب هذا .... 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

وهذا ايضا 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 عفوا لم انته للتعدي ... يبدو ردي وقت التعديل

اهلا ابو البشر سوف اجرب مشكورا ولكني اجريت تعديلا بسيطا على السؤال .. كرما وفضلا ارجع اليه

لم اجرب الكود ... جرب استاذنا الغالي التعديل التالي 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 تأكد من أن جميع النماذج ليست مفتوحة في وضع "عرض" أو "تصميم" قبل تنفيذ الوظيفة

السلام عليكم استخدم دالة لتغيير خصائص النماذج دفعة واحدة مثل هذه : 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 واريد تغيير لون خلفية مقطع التفاصيل وخلفية العناصر التي داخل التفصيل في النماذج ما التعديل الذي يحقق ذلك ؟

ماذا لو حصل زلزال وانهدم المبنى عليهم وعلى جميع الاجهزة سيكون العمل للأحياء منهم حينها في الهواء الطلق والتوقيع على الورق وتستمر الحياة .. والله المستعان لو لاحظت اني عملت ضبط للتبديل بين التوقيع بالبصمة والتوقيع بالباركود او ادخال المعرف بحيث يمكن حجب التوقيع بالباركود او ادخال الرقم على الجميع .. وتفعيل البصمة فقط .. ومع ذلك امكانية استثناء موظف محدد ليتمكن من التوقيع بجميع الطرق من ضمن المطالب: ان البرنامج يكون شقين .. واجهة تحكم .. وواجهة الحضور والتوقيع وان واجهة التحكم لا يتم الدخول اليها الا مرة واحدة فقط عند اعداد البرنامج . وواجهة الحضور عبارة عن شاشة صماء تحتوي على حقل الحضور فقط كما هو الحال في المثال المرفق المطلب : لو اراد مدير النظام التوقيع عن أحد لظرف ما من الظروف ( بتمرير باركود الموظف او معرفه) ... على اعتبار ان البرنامج يعمل على البصمة فقط يكون لدى المدير باركود خاص يمرره فيسمح له البرنامج امكانية التوقيع عن شخص ما عبر باركوده او معرفه (السماح فترة ثواني .. ثم يغلق آليا) أنا الآن اعمل على ذلك ...

الف مبروك

الف مبروك للاستاذ فادي الترقية المستحقة

ماذا لو حصل خلل أو انقطاع الكهرباء أو تلف ... الخ !!!! رغم أنك وأعتقد ذلك من خلال المكتبات أنك أسست للربط بجهاز البصمة ، فهل الخلل الحاصل سيتحمله الموظف ويدخل في متاهة أثبت أو إحلف 😅 ..... الخ. ما لم تكن هناك حلول لهذه الإحتمالات قد تم أخذها في الحسبان ، فرأيي أن الأنظمة التي يقود مركبها جهاز قابل للخطأ = غير عادلة. أشعر انني انفعلت قليلاً 🤣😂 هي وجهة نظر ما لم يكن معلمي قد خبأ لنا إجابة تنتظر هذا التعليق . الأكواد جميلة جدا ، وفكرتها جميلة وقد ألمت بجميع النواحي البرمجية التي تحدثتم عنها سابقاً.

الحمد لله على نعمه.. لا تنسى إغلاق الموضوع أخي الكريم 🤗

حبيبي يا هندسة 🤗 اللهم تقبل دعائكم بظهر الغيب 🤲🏻 شكراً لمرورك اختنا الكريمة ،، ولكم من الدعاء النصيب الأكبر 😇

تمام ... شكرا استاذ حجازى جزاك الله كل خير علي جميل عملك وسرعة الرد