ابوخليل

اعمل فرز في التقرير حسب الحقل الذي تريد

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

تفضل الترقيم حسب طلبك
ترقيم مع السنة2.rar

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

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

Me.LabelNameText = Me.LabelNameA.ControlTipText  
LabelName.rar

If a = 1 Then SetDefaultPrinter ("hp LaserJet 1000") ElseIf a = 2 Then SetDefaultPrinter ("HP LaserJet M109-M112") End If DoCmd.OpenReport "repName", acViewNormal  

تفضل
‏‏OE2.rar

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

السلام عليكم
 الاخ مازن
بياناتك عبارة عن اعمدة ونحن بحاجة الى عرضها بشكل افقي
انظر الى العمل بالترتيب خطوة خطوة كما ابينه بالشرح لك ، من اجل تفهم طريقة العمل
1- استعلام  query1 تم فيه تجميع الحالات حسب الرتبة
2- استعلام جدولي لنشر البيانات وتوزيعها مصدره query1
وبما ان الاستعلام الجدولي صامت لا يمكن التعامل مع حقوله عند العرض استخدمنا جدول مؤقت وسيط  يكون هو المصدر الاساسي للتقرير
حيث يتم الحق بيانات الاستعلام الجدولي اليه بين فترة واخرى كلما تغيرت او زادت البيانات باستخدام زر ( اعداد التقرير )
لم افهم ما تعني بالمجموع الفعلي والمجموع الكلي لذا تركته لك يمكنك عمله بكل يسر
---------------------------------------------------------
انا عملت على عرض جميع الحالات بالتفصيل ويمكنك ضم بعض الحالات مع بعضها 
افتح التقرير على التصميم وفي الخصائص انقر على النقاط الثلاث في مصدر بيانات التقرير سيعرض لك الاستعلام المصدر الذي يمكنك من خلاله اجراء جميع التعديلات كإنشاء حقول تجميع وضم بعضها الى بعض او حذف ما لا تريده .
آمل ان يروق العمل لك
 
قاعدة2.rar

الاخفاء غير جيد كمنظر لترتيب الازرار  والافضل وجوده مع عدم التفعيل
عند الفتح تضع احد هذين السطرين ، ويبقى كودك اللي عملته اعلاه تحصيل حاصل 
Me.btn_e.Enabled = False 'لعدم التفعيل Me.btn_e.Visible = False 'للإخفاء  
في التقارير قد لا تتعرف على الاعلان العام عن المتغير فقط .. لذا يمكننا صنع وظيفة تاخذ القيمة وادراجها في التقرير
funGuserName  
 
FinancialPrg6.rar

طبعا يعتبر السبت من الاسبوع الفائت
الخلل انه كان يجب التصفية حسب السنة وحسب الاسبوع
تفضل :
New12.rar

يعني تريد الرقم الذي يحمله الـــ id
اذا فهمي صحيح اكتب السطر التالي في حدث قبل التحديث للحقل الأخير
msgbox me.id  

عجيب شغلك
لا ارتباط بين الجداول ، المفروض معرف الموظف يكون في جدول الاسماء ويدخل آليا ولا يدخل يدويا .. حتى جهة العمل لانه يوجد الاسماء مكررة مرة بجهة ومرة اخرى بدون جهة
تفضل تم تحقيق طلبك بدون استخدام الدالة
data2.rar

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

اكتب بدل المعيار الموجود في التقرير : العبارة التي تريد بين قوسين مربعين هكذا
[فضلا ادخل رقم الطالب] ويكون هذا المعيار تحت رقم الطالب
او بدل العبارة الى الاسم وضع المعيار تحت حقل اسم الطالب
وهكذا في اي حقل تريد وضع معيار له

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

انظر هنا
وهنا

تفضل
DoCmd.RunSQL "DELETE A.*, A.IDA, * FROM A WHERE (((A.IDA)=[forms]![A]![IDA]))"  
DELTEST.accdb

تفضل تم تعديل مثال الاستاذ فادي حسب طلبك
Me!Totals = required_meter \ undo_meter & "." & required_meter Mod undo_meter  
Required2.accdb

انا كنت اعمل على الكود
لما رأيت كود الاستاذ فادي وقرأته اعتقدت  انه يلبي المطلوب وتوقفت عن اكمال الكود
الآن وبعد تأكيد ما فهمته من قبل الاستاذ احمد اليكم الحل
دالة تأخذ قيمة B وتقارنها بأي حقل داخل السجل :
Public xfld As Byte Public Function Allfld(x As String) As String On Error GoTo ErrHandler Dim rs As Object, i As Integer Set rs = CurrentDb.OpenRecordset("SELECT TP2.* FROM TP2 WHERE TP2.GradeNO= " & [Forms]![form1]![A] & "") i = 0 For Each Field In rs.Fields i = i + 1 If x = rs.Fields(i) Then xfld = 1 Exit Function End If Next Set rs = Nothing ErrHandler: If Err.Number = 3256 Then Exit Function End If End Function ويتم مناداتها من النموذج :
Private Sub B_AfterUpdate() xfld = 0 Call Allfld(Me.B) If xfld = 0 Then MsgBox "البيانات غير متطابقة" Undo Exit Sub End If End Sub  
 
Test-11.rar

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

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

انظر هنا في هذا الموضوع ، تجد ما لذ وطاب

ما فيه شي اسمه حدث بعد التحميل لتيكست بوكس 
فيه حدث بعد التحميل للنموذج
وانت كتبت الكود فعلا .. فقط قم بترجمته
if com = "كذا" then t1.SetFocus elseif com = "كذا" then DoCmd.OpenForm " mok", acNormal end if