ابوخليل

وهذه طريقة مباشرة حسب مثالك :
Private Sub Command1_Click() Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("t1") rs.MoveLast rs.MoveFirst Do While Not rs.EOF rs.Edit rs!itempercent = (rs!itemsale \ 100) * 70 rs!vol = rs!itemsale - rs!itempercent rs.Update rs.MoveNext Loop Me.Requery End Sub  
النسبة المئوية3.rar

تفضل
Dim x As Date x = Nz(DLookup("dat", "tabl", "dat=[dd]"), 0) If x = Me.dd Then Me.t4.Requery Me.t4.Visible = True Else Me.t4.Requery Me.t4.Visible = False MsgBox " التاريخ الذي اخترته غير موجود", , "تنبيه" End If  
122024.rar

تم اعداد الفكرة على النحو التالي :
1- اعادة صياغة الجداول
2- جدول حالة المنصب تحصيل حاصل .. ومسبب زحمة لا حاجة لها .. لأن الحالة ستظهر من واقع البيانات المدخلة .. لذا تم حذفه
3- تم انشاء جدول جديد باسم tblMain وهو جدول الحركة وهو الاساس في الاستعلامات
بمعنى يجب ان تبني عليه نموذج الادخال .. وهو جدول بسيط ولكنه يخفي خلفه الكثير من البيانات
كل ما عليك هو اختيار الاسم الكامل / اسم المنصب / رقم الأمر / تاريخه .. فقط
كنت اريد ان اعمل لك هذا النموذج ولكنك تعمل على 2003 لذا لن يعمل معك
........................................
عملت لك استعلامات وكتبت عناوينها بالعربي من اجل تقريب الفهم
علما انه يمكن اختصار هذه الاستعلامات باستعلام .. واختلاف النتيجة يتم بواسطة المعايير من خلال النموذج
مثال (5).rar

تفضل من هنا :
ترقيم منوع ستجد مطلوبك فيه

الأمر يسير
يبدوا انك غيرت في علاقة في استعلام الى علاقة خاطئة
الاستعلام qrydegree_Detail  افتحه على التصميم  وغير العلاقة بين الجدولين بدلا من stud_id  اجعل العلاقة بين الرقم القومي
جرب وستنجح
 

حاول تقرأ جيدا حول الجداول
تفضل
تحربه2.rar

اهلا اخي
في المرات القادمة لا توجه السؤال لشخص بعينه .. من اجلك انت اولا .. وتحقيقا لقواعد المشاركة
تم التعديل
Dat11.rar

2003 .. جميع الاصدارات اللاحقة تتعامل معه
على كل حال اليك الحل :
بعد حذف الجدول table2
خلف الزر الصق هذا السطر :
DoCmd.CopyObject , "table2", acTable, "table1" على اعتبار  table1 هو الجدول الأساس
 
وحسب تسمياتك في مشروعك سيكون الكود كاملا :
DoCmd.SetWarnings False DoCmd.DeleteObject acTable, "tbl_Student2" DoCmd.CopyObject , "tbl_Student2", acTable, "tbl_Student" DoCmd.SetWarnings True  

تفضل
Database1.accdb

تفضل
Dim i As Object Set i = CreateObject("shell.application") Dim x As Variant For Each x In i.Windows x.Quit Next x  
اخفاء الفولدر3.rar

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

يتم العد من المصدر الأصل الذي هو جدول الأسماء بناء على الحقول في التقرير كمعايير
عدد الذكور 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

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