ابوخليل

شكرا للمشاركة اخي ابو بسملة
تفضل تعديل كامل على الكود مع المرفق
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

الملف مضغوط بعد تنزيله تفك الضغط عنه
وعلى كل حال هذا الملف بدون ضغط فقط خففت من حجمه بازالة الصور
 
egypt 2.accdb

اخي العزيز الغالي ابو بسملة .. جميلة جدا هذه الاستعارة .. 
في ردي السابق نسيت ان اربط النموذج بالبيانات .. تجدون ادناه تعديل لمرفقي السابق
test12.rar

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

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

تفضل
عمل محرك آلي احترافي .. ماركة مسجلة لأبي خليل .. ولا فخر
التحكم بقيم الرسوم 
إدخال المدفوعات وعرض ومشاهدة التوزيع ... حسب فكرتك تماما .. كلها في نموذج بسيط
عرض تقرير شامل لتسديد مبالغ الطالب .. المدفوعات والمتبقي
--------------------------------------
لكل من مر من هنا واستفاد .. دعواتكم لأخيكم بظهر الغيب
fees.rar

حسب علمي .. حقل المرفقات يختلف عن الحقل النصي لأن الوصول الى خصائص الصورة  داخل حقل المرفقات مختلف
بمعنى الصورة التي يحتويها ليس لها خصيصة : picture
فأمامك حل من اثنين :
اما يكون الجدول مصدر للتقرير واما ان يتم اخراج المرفق كصورة خارج قاعدة البيانات  وهنا يمكننا اظهار الصورة في التقرير
وبما انك ذكرت ان مصدر التقرير ليس الجدول فإليك الحل الآخر .
Sub SaveAttach() On Error Resume Next Dim rs As dao.Recordset Dim strobj As dao.Recordset Dim strPic As String strPic = CurrentProject.Path & "\pic.JPG" Set rs = CurrentDb.OpenRecordset("Table1") Set strobj = rs.Fields("logo").Value strobj.Fields("FileData").SaveToFile strPic Me.Image0.Picture = strPic End Sub Private Sub Report_Load() Call SaveAttach End Sub  
 
220.rar

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

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

طلبك هذا غير مفهوم
انظر لهذه الطريقة لطلبك الأول اذا تصلح لك
fmain2.rar

تفضل
Weekday(Date)=6 Or Weekday(Date)=7 عدلت لك تسميات  ... الأيام  = d1 , d2 ,d3 وهكذا .. والحقول t1 , t2 , t3  وهكذا ...  بحيث تكون سهلة بديهية على غرار الارقام
وعملت لك التنسيق الشرطي للعشرة حقول الأولى ..
اكمل البقية .. من اجل تستفيد وتتعلم
4schoolالغياب.rar

جرب كذا اخي ازهر
استخدام المتغيرات بدلا من اخذ القيمة من خلال النماذج وحقولها
اتمنى يحقق المطلوب
Amino2.rar