كل الانشطه

شكراً لك مرورك أخي الكريم .. انتظر التحديث الجديد

وعليكم السلام ورحمة الله وبركاته ,, كفكرة بسيطة ، في مديول جديد ، استعمل الدالة التالية :- Public Function GetTxtHeight(annee As String, grade As String, wilaya As String, nomRapport As String) As Single Dim db As DAO.Database Dim rs As DAO.Recordset Dim hauteur As Single Set db = CurrentDb Set rs = db.OpenRecordset( _ "SELECT hauteur_rang FROM tab_hauteur_range " & _ "WHERE annee = '" & annee & "' " & _ "AND grade = '" & grade & "' " & _ "AND wilaya = '" & wilaya & "' " & _ "AND nom_raport = '" & nomRapport & "'", dbOpenSnapshot) If Not rs.EOF Then hauteur = rs!hauteur_rang * 567 Else hauteur = 0.7 * 567 End If rs.Close: Set rs = Nothing: Set db = Nothing GetTxtHeight = hauteur End Function ثم في حدث الزر عند التقر لفتح التقرير :- Private Sub أمر2_Click() Dim h As Single Dim annee As String, grade As String, wilaya As String, rapport As String rapport = "rap_pv" annee = Me.annee grade = Me.grade1 wilaya = Me.wilaya1 h = GetTxtHeight(annee, grade, wilaya, rapport) TempVars!Temp_Hauteur = h DoCmd.OpenReport rapport, acViewPreview End Sub وفي حدث عند الفتح للتقرير :- Private Sub Report_Open(Cancel As Integer) Dim h As Single If Not IsNull(TempVars!Temp_Hauteur) Then h = TempVars!Temp_Hauteur Else h = 0.7 * 567 End If Me.nom.Height = h Me.prenom.Height = h End Sub مع ضرورة عدم تمكين لمربعي النص ( nom و prenom ) الملف :- baseM.zip

بسم الله ما شاء الله...

مش عارف الافكار عجبتكم واللا ايه محدش رد خالص على كل دى التجربة الثانية للتطوير اولا افتح الجدول باسم : 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

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

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

الف مبروك

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