ابوخليل

يتم العد من المصدر الأصل الذي هو جدول الأسماء بناء على الحقول في التقرير كمعايير
عدد الذكور Me.Text1 = Nz(DCount("gender", "Tbl_student", "alsaf_Id=" & Me.saf & " and alfsl_id=" & Me.fsl & " and gender=1"), 0) مسلم Me.Text11 = Nz(DCount("gender", "Tbl_student", "alsaf_Id=" & Me.saf & " and alfsl_id=" & Me.fsl & " and gender=1" & " and eldina_id=1"), 0) مسيحي Me.Text111 = Nz(DCount("gender", "Tbl_student", "alsaf_Id=" & Me.saf & " and alfsl_id=" & Me.fsl & " and gender=1" & " and eldina_id=2"), 0) عدد الإناث Me.Text2 = Nz(DCount("gender", "Tbl_student", "alsaf_Id=" & Me.saf & " and alfsl_id=" & Me.fsl & " and gender=2"), 0) مسلم Me.Text22 = Nz(DCount("gender", "Tbl_student", "alsaf_Id=" & Me.saf & " and alfsl_id=" & Me.fsl & " and gender=2" & " and eldina_id=1"), 0) مسيحي Me.Text222 = Nz(DCount("gender", "Tbl_student", "alsaf_Id=" & Me.saf & " and alfsl_id=" & Me.fsl & " and gender=2" & " and eldina_id=2"), 0) لاحظ ان الجدول لا يحتوي الا على مسيحية انثى واحدة في الصف الخامس والفصل د
 
Dat11.rar

تم انشاء تقرير جديد
افتح التقرير من نموذج التقارير ... لأنه يفتح على عرض الطباعة
Dat10.rar

تفضل
ان كنت فهمت عنك
على عجل استخدمت الارقام الصريحة بدلا من المتغيرات
اذا الفكرة هي مطلوبك يمكنك بسهولة تعديل الارقام الصريحة الى متغيرات
Dim i As Integer i = Me.kulo If i >= 10 Then sh1 = 10 i = i - sh1 sr1 = sh1 * 15 Else sh1 = i sr1 = sh1 * 15 i = 0 End If If i >= 20 Then sh2 = 20 i = i - sh2 sr2 = sh2 * 20 Else sh2 = i sr2 = sh2 * 20 i = 0 End If If i >= 30 Then sh3 = 30 i = i - sh3 sr3 = sh3 * 25 Else sh3 = i sr3 = sh3 * 25 i = 0 End If If i >= 40 Then sh4 = 40 i = i - sh4 sr4 = sh4 * 30 Else sh4 = i sr4 = sh4 * 30 i = 0 End If If i >= 41 Then sh5 = i sr5 = sh5 * 50 Else sh5 = i sr5 = sh5 * 50 End If Me.srSum = Nz(sr1) + Nz(sr2) + Nz(sr3) + Nz(sr4) + Nz(sr5)  
b2.rar

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

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

اليك طريقة متبعة غالبا عند تصميم قواعد البيانات
3.rar

تم التعديل على النحو التالي :
اعداد التقرير فيما لو تم نقل البرنامج الى مدرسة اخرى 
1- حذف جدول يوزر من الاستعلام
2- جلب بيانات جدول يوزر الى التقرير بالكود والتي تمثل : اسم المديرية / واسم المدرسة /  والفترة ... بدلا من كتابتها ثابتة داخل التقرير
3- تعديل بعض الاسماء .. مثلا اسم المديرية = mod  وهذا الاسم محجوز في اكسس 
4- تم تعديل مصدر البيانات في مربعي التحرير في النموذج من بيانات ثابتة جامدة الى بيانات متغيرة مرنة يتم جلبها من الجدول
ملحوظة : ستجد الترتيب في مربع تحرير الصف غير منسق ولكنه حقيقة منسق حسب الحروف العربية .. والصح ان يكون معرف الصف في الجدول رقما وليس نصا
Database5.rar

تفضل
اعداد وايضا تصفية
Database2.rar

تفضل
stock4.rar

Private Sub VIP4_Click() On Error GoTo Err_VIP4_Click Beep If MsgBox("هل تريد الحفظ ؟؟", _ vbQuestion + vbYesNo, _ "تنبيه") = vbYes Then DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.OpenForm "ACSSES_ADDUSER" else undo DoCmd.CancelEvent exit sub end if Exit_VIP4_Click: Exit Sub Err_VIP4_Click: Resume Exit_VIP4_Click End Sub  

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

عليكم السلام ورحمة الله وبركاته
لا يمكننا تنفيذ الاجراء من النموذج نفسه .. فالتسميات لا يمكن تغييرها الا من عرض التصميم
من خارج النموذج يمكن التغيير 
جرب ضع هذا الاجراء في نموذج آخر .. ونفذ
Private Sub Com1_Click() DoCmd.OpenForm "form1", acDesign, , , acFormEdit, acHidden Dim ctl As Control Dim i As Integer i = 0 For Each ctl In Forms!form1.Controls If ctl.ControlType = acCommandButton Then If Left(ctl.Name, 7) = "Command" Then i = i + 1 ctl.Name = "foksh" & i End If End If Next ctl End Sub  

تفضل
شغل الزر الف مرة لن ينسخ الا سجل جديد غير موجود حتى لو كان ضمن مجموعة سوف ينسخه هو فقط
السر : انظر في تصميم الجدول
Database new4.rar

اخي الكريم 
المشكلة لديك بسبب المعايير
تفضل تم التعديل
Data2.rar

خلاص اخوي ما دامك مصمم الا على النسخ والالحاق  نرجع الى اول مشاركة لك
تم التعديل :
تم اضافة زر  لنسخ الديون والغياب حسب الشهر والحاقها في جدول المرتبات
الطريقة  او العمليات التي خلف الزر : 
تم الاعتماد على استعلام  qry_workers  لنعمل منه  جدول temp مؤقت  بناتج التصفية  
عمل جملة sql وهي عبارة عن تحديث  داخل جدول المرتبات  بناء على المعطيات من جدول temp
آمل ان يحقق مطلوبك ويحوز على رضاك 
Database06.rar

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

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

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