ابوخليل

عليكم السلام
الدالة iif  تقوم بالمهمة على اكمل وجه
myDate:iif([t]="1",date_dim,iif([t]="2",date_lun,iif([t]="3",date_mar,iif([t]="4",date_mer,iif([t]="5",date_jeu,"")))))  
times2024_2.rar

يا رعاك الله يا خير الإيمان
المثال على اسمه مثال  بارك الله فيك
اكثر من 4000 سجل كثيرة والحجم كبير وتكون عبئا على المنتدى
---------------------------
المكان الصحيح لعدد سجلات الصفحة في التقرير هو ذيل الصفحة وليس رأسها ، لأن الحدث يأتي بالترتيب
تفضل تم اظهار عدد كل صفحة والعدد الكلي في نهاية التقرير
Public intPageCount As Integer Private Sub Report_Open(Cancel As Integer) intPageCount = 0 End Sub Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) intPageCount = intPageCount + 1 End Sub Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) txtPageCount = intPageCount intPageCount = 0 End Sub  
كشف2.rar

تفضل
فقط نكرر الأمر عند حدث مفتاح السهم
serch2.rar

تفضل
الكل يعمل
baseF2.rar

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

على كل حال تفضل الحل حسب طلبك
Private Sub countAjza() Dim ctlC As Control Dim i As Integer Dim x As String For Each ctlC In Me.Controls If TypeOf ctlC Is CheckBox Then If ctlC.Value = True Then i = i + 1 x = x & "," & ctlC.Name End If End If Next ctlC c1 = i c2 = x End Sub  
 
أجزاء القرآن2.rar

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

تم عمل اللازم
حفظ البيانات في الجدول والتطبيق على الحقل في النموذج
الآن يمكنك التطوير كما تحب
color3.accdb

تفضل طريقتي في برامجي
test2.rar

اخوي هاني
من الاحتراف ان لا تتشابه اسماء الحقول في الجداول المفروض يفرق بينها بحرف او اي شيء 
بسبب التشابه تظهر لك المشكلات عند بناء الاستعلامات من هذه الجداول
اسم الحقل ArAccDes في الجدول الفرعي عدلته الى Ar_AccDes
تفضل التعديل
البحث في النموذج2.rar

عليكم السلام
=Nz(DLast("[رصيد نهائي]","[t1]"),0)  
test2.accdb

عليكم السلام
تكرار الحصة المقررة في كل سجل لا معنى له حسابيا
المفروض تكون في اول سجل في حقل الإضافة
انظر هذا مثال بسيط لعملية اخراج الارصدة الحالية موجود عندي من قبل 
لاحظ ان الرصيد محله الاستعلام او التقرير  وليس الجدول لانه متغير
والذي يهمنا هو : نتيجة آخر عملية
آمل ان تجد فائدة وتبني عملك على هذا التصور
 
 
db1.mdb

نعم تفضل
Dim ctl As Control For Each ctl In Me.Child0.Controls If ctl.ControlType = 109 or ctl.ControlType = 111 Then ctl.Enabled = True End If Next ctl 109  مربعات النص
111  مربعات التحرير
وهنا مرجع لأرقام عناصر النموذج بتفصيل اكثر
Test.accdb

اتبع التالي :
1-  يتم ادخال يوزر المستخدم في كل سجل يتم ادخاله
2- اجعل مصدر بيانات النماذج والتقارير استعلامات تشتمل على معيار : يوزر المستخدم 

تفضل تم تحقيق المطلوب
لا اعلم ما العمليات التي ستجريها على النموذج  والشجرة .. لذا اكتفيت بالمطلوب مع جعل اتجاه الشجرة الى اليمين
TreeUp.rar

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

قد اوضحت لك في موضوعك السابق هنا سبب عدم ظهور رصيد اول المدة  فارجع اليه

عين الخط عند تحميل النموذج او في حدث الحالي للنموذج هكذا
Private Sub Form_Current() Me.TabCtl0.FontName = "Zanest _ Dyar Bakr" End Sub  

مكان الرسالة الصحيح هو في حدث زر الخروج وليس حدث اغلاق النموذج
عدل الى الى هذا
Private Sub أمر0_Click() If MsgBox("هل تريد الخروج", vbInformation + vbYesNo, "تنبيه") = vbNo Then DoCmd.CancelEvent Exit Sub Else DoCmd.Close End If End Sub  

غيري جزء من السطر :
Me.selected_list.Column(0, 1) الى
Me.selected_list.Column(0, 0) ليصبح :
If Me.selected_list.Column(0, 0) > 0 Then  

هذه محاولة مني
استعلام وظيفته :
عمل مقارنة بين جدول الاصناف والاستعلام الذي تمت تصفيته بين تاريخين
2.accdb

يمكنك جعل الخاصية من المحرر
في حدث الفتح او التحميل للنموذج ضع الكود
Me.DATE1.Locked = True ونعدل الكود السابق ليصبح
Private Sub MAN_AfterUpdate() If Me.MAN = "HT2" Then Me.DATE1.Locked = False Else Me.DATE1.Locked = True End If End Sub  
او اعتمد كودك الذي ارفقته
الخلل في كودك انك لم تضع علامتي التنصيص على النص HT2

اعتقد حسب فهمي للسؤال  ان المطلوب منع التعديل على مربع الاختيار
وبما ان الهدف هو منع التعديل على مربع الاختيار
فيمكن ان تتم حمايته من التعديل ويتم تفعيله آليا عند اختيار نوع المستخدم = admin
اما اذا اردنا هذا المربع متاح لأي نوع من انواع المستخدمين حسب الحاجة .. وفي الوقت نفسه نريد حمايته عن التعديل للمستخدم admin
فهذا الكود يفي بالغرض :
Private Sub userID_BeforeUpdate(Cancel As Integer) If Me.userType = "Admin" Then MsgBox "لا يمكن التعديل" Undo DoCmd.CancelEvent Exit Sub End If End Sub على اعتبار  userID هو مربع الاختيار
وهذا مرفق للتجربة
AA.mdb

وهذه ياخوي حسين طريقتي في تحقيق الفكرة
Database1.rar

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