ابو البشر

هذا ما قصدته بالضبط ... انشاء برنامج خاص بالمبرمج يتم من خلالة عمليات توليد ارقام التفعيل

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

طيب لو عندي اكثر من برنامج هل رقم التسجيل هو نفسه ؟ طبعا لا المفترض لكل برنامج رقم خاص

لا للاسف ..... اجرب واعطيك خبر

32

السلام عليكم ورحمة الله وبركاته مرحبا بالجميع الاوفيس 2016-32Bit النسخة المستخدمة هي tshfeerAB النتيجة ::::::::::::::::::::::::::::::

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

تفضل .. التقرير (1).accdb

جرب هذا SELECT TB1.SAMEE FROM TB1 LEFT JOIN TB2 ON TB1.SAMEE = TB2.SAMEE WHERE TB2.SAMEE IS NULL;

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

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

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

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