ابوخليل

تفضل
اعداد وايضا تصفية
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

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

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

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

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

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

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

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