ابوخليل

طيب على راحتك
نحن نتعلم .. لنتجاوز أخطاءنا .. ونطبق الطرق السليمة كي نطور انفسنا
كتابة الحقول بحروف عربية ستتعبك كثيرا ويصعب عليك التعلم ..
تفضل :
تم تحقيق طلبك كما تريده بالضبط  من دون اي تعديلات على المرفق..
If Me.TXT = "مقيم" Then Me.Form.Filter = "مقيم like '" & "نعم" & "'" Me.Form.FilterOn = True ElseIf Me.TXT = "لديه كفيل" Then Me.Form.Filter = "[لديه كفالة] like '" & "نعم" & "'" Me.Form.FilterOn = True ElseIf Me.TXT = "لديه اقامة" Then Me.Form.Filter = "[لديه اقامة] like '" & "نعم" & "'" Me.Form.FilterOn = True End If  
test4.rar

معالجة جميلة استاذ فادي
وهذه محاولة مني لإدراج الترقيم في الجدول
Dim rs As Recordset Dim i As String Dim ii As Integer Dim x As Integer Set rs = CurrentDb.OpenRecordset("Query1") rs.MoveLast rs.MoveFirst i = Me.GRADE1.Column(1) ii = Me.GRADE1.Column(2) Do While Not rs.EOF rs.Edit rs!code_stagiere = i & (ii + x) rs.Update x = x + 1 rs.MoveNext Loop  
baseAA.rar

تفضل
New.rar

مشاركة مع اخي الاستاذ عمر
حل آخر باستخدام التنسيق الشرطي
 
sick2.rar

عليكم السلام
اعتقد لو وضعت هذا السطر  في اعلى الكود سيتجاوز الخطأ ولن تظهر الرسالة ، ولكن لن يتم التحديث على الحقل
On Error Resume Next  

الرسالة هذه تفيد عدم وجود بيانات
تم اضافة سطر لتوضيح الحالة
ملحوظة حتى تظهر المادة يجب ادخال تاريخ موجود في الجدول ExamTimeTable
Dim i As String todd.Requery i = Nz(DLookup("[crs_cd]", "[ExamTimeTable]", "[edate] =#" & [Forms]![GyabF]![todd] & "#"), "") If i = "" Then MsgBox "لا يوجد اختبار في هذا التاريخ", , "" Else Me.crs_cd = i End If اذا لا تريد الرسالة والتنبيه يظهر تكتفي بهذه
Dim i As String todd.Requery i = Nz(DLookup("[crs_cd]", "[ExamTimeTable]", "[edate] =#" & [Forms]![GyabF]![todd] & "#"), "") Me.crs_cd = i Gyab3.rar

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

IT2.mdb

test.rar

وحتى لا تتوه ادرجت لك
Dim rs As Recordset Dim na0, na1, na2, na3 As String On Error Resume Next Set rs = CurrentDb.OpenRecordset("QAAA") rs.MoveLast rs.MoveFirst DoCmd.Hourglass True Do While Not rs.EOF na0 = "": na1 = "": na2 = "": na3 = "" na0 = Split(rs!AsmGded, " ")(0) na1 = Split(rs!AsmGded, " ")(1) na2 = Split(rs!AsmGded, " ")(2) na3 = Split(rs!AsmGded, " ")(3) rs.Edit rs!Rmz = Mid(na0, 1, 2) & Mid(na1, 1, 2) & Mid(na2, 1, 2) & Mid(na3, 1, 2) rs.Update rs.MoveNext Loop DoCmd.Hourglass False Beep MsgBox "تم توليد الرموز بنجاح", , "" End Sub السطرين .. فقط استبدل الكود بهذا
 

مشكلتك في الفرز
انت عملت الفرز في التقرير حسب التاريخ .. والكود تعامل معه على هذا الاساس ..
طيب ما المشكلة لما تفرز حسب المعرف ... هو نفسه سوف يفرزه حسب التاريخ بل هو ادق بحيث لو تاريخين متشابهين راح يجيب لك الذي تم تسجيله اولا  ويضعه في الأعلى
---------------------------------------------------------------------------------
كود الرصيد يعتمد على معرف الجدول (id) وهو تلقائي غير قابل للتكرار
والتاريخ مؤكد سوف يتجدد حسب السجل الجديد
بمعنى ان اي تاريخ يتم تسجيله كجديد سوف يكون التاريخ اكبر من الذي قبله أو مساويا له
الكود لا ينظر للتاريخ وانما ينظر للمعرف ويتعامل معه من الاصغر الى الأكبر 
اكبر دليل لما تكون فاتح نموذج التقارير وتختار المواد الغذائية والبطاطا .. افتح الاستعلام وانظر 
 
 
stock19 .rar

شكرا للمشاركة اخي ابو بسملة
تفضل تعديل كامل على الكود مع المرفق
Dim db As Database Dim td As TableDef Set db = CurrentDb() For Each td In db.TableDefs If Left(td.Name, 4) = "MSys" Or Left(td.Name, 1) = "~" Then GoTo Continue DoCmd.RunSQL "DELETE * FROM " & td.Name & ";" Continue: Next MsgBox " all records in all tables are deleted" Me.Requery  
Database2.rar

الخلل بسيط
بسبب اني غيرت في مسميات بعض الحقول كونها تتشابه في الجدولين
تم الضبط والاصلاح
baseM_7 .rar

مشاركة مع اخي محمد
يمكن الاستعانة بوسيط لإخراج الصور  على النحو التالي :
افتح البرنامج على عرض التصميم
في جزء التنقل :
- حدد النموذج الذي يحتوي على صورة خلفية أو تنسيق تلقائي تريده
- انقر بزر الماوس الأيمن على النموذج في جزء التنقل وحدد تصدير >> XML
في الصفحة الأولى من المعالج ، حدد مكان الحفظ
انقر التالي او موافق
سيظهر لك مربع حوار صغير به ثلاثة مربعات اختيار
قم باختيار الخيار الأول (البيانات) والخيار الثالث (العرض التقديمي) ثم اضغط موافق
انقر فوق الزر "إغلاق" في الصفحة الأخيرة من المعالج بعد اكتمال عملية التصدير
اذهب الى مكان الحفظ ستجد جميع صورك في مجلد Images

تفضل تم تغيير الحدث
Dim x As Integer x = Nz(DCount("asm", "tbl1", "asm='" & Me.asm & "'"), 0) If x > 0 Then Beep MsgBox "هذا الاسم موجود سابقا", , "" DoCmd.CancelEvent Exit Sub End If  
الاسم موجود سابقا3.rar

بعد اذن الاستاذ محمد
تفضل 
 
توزيع عشوائي على طلاب.rar

تفضل
 
3تعديل بالنشاط.rar

اهلا وسهلا بك اخي الكريم ضيفا جديدا في بيتك
تفضل
bb: DSum("a";"tbl1";"id<=" & [id])  
2الجمع ما ماقبله .rar

بما انه يظهر لديك في النتيجة اكثر من نوع
ناجح / ناجحة / له برنامج علاجي / لها برنامج علاجي / (غ)
لذا عملت لك دالة تقوم بتصفية (غ) فقط  وابقيت على الانواع الأخرى 
2تعديل بالنشاط.rar

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

عليكم السلام
انت بحاجة لعمل استعلام تجميعي لللإسم فقط بحيث تظهر الاسماء بدون تكرار .. ثم تعمل بها جدول وتعمل في الجدول ترقيم تلقائي
الآن لديك جدولا جديدا بالاسماء غير مكررة مرقمة
الآن كيف تنقل هذه الأرقام الى الجدول الرئيسي ؟
تعمل استعلام تحديث تحدث به الرقم في الجدول الرئيس وتضع فيه معيارا : (  الرقم في الجدول الرئيسي= الرقم في الجدول الجديد ) المعيار :  تطابق الأسماء في الجدولين
-----------------------
على كل حال في مثل حالتك يتبين اهمية عمل جدول رأس وجدول فرعي للسجلات التي تتكرر العمليات فيها

الخلل لديك عجيب
وهو في لون خلفية الحقول الأساسي ، بمعنى ان الخلل فني وليس برمجي
انظر
baseT2.rar

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

هو كذا دوما في غالب طلباته مقصر في الشرح والايضاح ..
من شرحه الاخير اعتقد فهمت له
------------------------------------------------
 استاذ عبدالقدوس لا يصلح تربط بين المفاتيح في الجدولين كعلاقة
تم تحقيق طلبك انظر المرفق
الحقل  الذي اعتقد لا يمكن تكراره بين الاشخاص هو الرقم الخاص لذا اعتمدته في البحث والعد
Dim i1, i2 As Integer Me.Form.Filter = "numt Like '" & textsearch & "'" Me.Form.FilterOn = True i1 = Nz(DCount("*", "tabl1", "numt = '" & textsearch & "'"), 0) i2 = Nz(DCount("*", "tabl2", "numt = '" & textsearch & "'"), 0) t1 = i1 t2 = i2 tt = i1 + i2 مثال2.rar

تفضل
بيانات الطلبة4.rar