د.كاف يار

من الواضح بأن الكود في حدث عند التغيير اخي الكريم يجب عليك توضيح طريقة نقل الكود بالتحديد لكي يتم تحديد موقع الخلل

لإنشاء مفتاح اساسي استخدم الكود التالي DoCmd.RunSQL "ALTER TABLE [mowadfen_check] ADD CONSTRAINT PK_Person PRIMARY KEY ([الرقمالوظيفي], [التاريخ]) لإلغاء المفتاح الأساسي استخدم الكود التالي DoCmd.RunSQL "ALTER TABLE [mowadfen_check] DROP CONSTRAINT PK_Person"

تفضل هذا التعديل تفعيل وايقاف اضافة سجل للمكرر.mdb

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

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

حاول تحفظ الملف بإصدار اقدم و يفضل 2003

تفضل ملفك بعد التعديل AVIrep.rar

قم وضع هذه الشفرة في الاستعلام DCount("*"; "[GazaKind]";"[GazaName]=" & [Forms]![Frm_Gaza][GazaName] ) DCount =====> تعني التجميع بشرط DCount("*"; =====> تعني عدد السجلات DCount("*"; "[GazaKind]" =======> مصدر الجمع DCount("*"; "[GazaKind]";"[GazaName]=" & =====> المعيار و ما يقابله في النموذج او التقرير او الاستعلام سيتم حساب عدد الجزاءات لكل موظف بناء على اسم الموظف و يمكن التغيير الى رقم الموظف الموضوع بسيط جدا

تفضل هذه الفكرة بناء جدول تلقائي من خلال الكود بناء على بيانات الجدول test.accdb

تفضل هذي الفكرة t11.accdb

نعم اخي الكريم بإمكان فعل ذلك ضع مثالك و الموقع الذي ترغب التحميل منه و ستجد المساعدة بإذن الله

فقط عدل المحدد الى sub تفضل التعديل انشاء استعلام الحاقي و نقل البيانات من جدول الى جدول.accdb

تفضل هذا التعديل بعض التحسينات تغيير اسلوب ارسال البيانات الى ملف الورد لتصبح اسهل في التحكم كذلك حفظ الملف بصيغة PDF و بإسم المشتري عقود.zip

جميع ما تحتاجه موجود في اجابة @Eng.Qassim اجابة و اقتراح من سطر واحد تغنييك عن تكرار الجداول عديمة الفائدة بإختصار قم بإضافة عمود جديد لتحديد حالة الطالب ( مستمر - منقطع - مفصول - موقوف - ........... الخ ) تعلم انشاء مثل هذه الاستعلامات بطريقة احترافية تسهل عليك العمل دوماً جرب استخدم الكود التالي في عمليات ( الإضافة - التحديث - الحذف - الاستعلام ) لإضافة بيانات جديدة للجدول استخدم الكود التالي On Error GoTo errorhandle Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("ضع هنا اسم الجدول") rs.AddNew rs.Fields("اسم العمود 1").Value = "القيمة1" rs.Fields("اسم العمود 2").Value = "القيمة2" rs.Fields("اسم العمود 3").Value = "القيمة3" rs.Update MsgBox "تم اضافة البيانات بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" errorhandleexit: Exit Function errorhandle: MsgBox Err.Description Resume errorhandleexit و لتحديث سجل محدد استخدم الكود التالي On Error GoTo errorhandle Dim rs As DAO.Recordset, SerTb As String, SetCoulmin As String, SetValue As String SerTb = "ضع هنا اسم الجدول" SetCoulmin = "اسم العمود في الجدول الذي يحتوي على المفتاح الرئيسي" SetValue = "حقل العيار الذي يحتوي على المفتاح الرئيسي في النموذج" Set rs = CurrentDb.OpenRecordset("SELECT * FROM " & SerTb & " where [" & SetCoulmin & "] Like '" & SetValue & "'") rs.Edit rs.Fields("اسم العمود 1").Value = "القيمة1" rs.Fields("اسم العمود 2").Value = "القيمة2" rs.Fields("اسم العمود 3").Value = "القيمة3" rs.Update MsgBox "تم تحديث البيانات بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" errorhandleexit: Exit Function errorhandle: MsgBox Err.Description Resume errorhandleexit و لحذف حقل استخدم الكود التالي On Error GoTo errorhandle Dim rs As DAO.Recordset, SerTb As String, SetCoulmin As String, SetValue As String SerTb = "ضع هنا اسم الجدول" SetCoulmin = "اسم العمود في الجدول الذي يحتوي على المفتاح الرئيسي" SetValue = "حقل العيار الذي يحتوي على المفتاح الرئيسي في النموذج" Set rs = CurrentDb.OpenRecordset("SELECT * FROM " & SerTb & " where [" & SetCoulmin & "] Like '" & SetValue & "'") rs.Delete MsgBox "تم حذف السجل بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit

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

اعجبني الموضوع و حبيت اقدر مشاركة بسيطة اذا كان تاريخ شهر القرض اكبر من الشهر الحالي و لم يتم السداد يكون باللون الأحمر اذا كان شهر السداد مساوي للشهر الحالي و لم يتم السداد يكون اللون الأصفر و في باقي الحالات يكون اللون الأبيض هدية مجانية - قروض بنكية.zip

تفضل هذا التعديل TKT.zip

التعديل في تقرير جديد تم تقسم التقرير الى جزين الجزء الثاني داخل الجزء الأول مرتبط بالإسم عند البحث عرض التقرير مرفق الملف بعد التعديل اجازات الضباط_1.1.zip

تفضل هذا التعديل اجازات الضباط1 - Copy.zip

للأسف مع الاكسس لا sql server ممتاز مع لغات اخرى غير الاكسس و تقدر تجرب و بشكل مجاني من خلال سيرفر SOMEE - انشئ حساب جديد - انشئ قاعدة بيانات جديدة - اضف جدول جديد بعدها استخدم جملة الاتصال و الاستعلام للتجربة

اضغط على شفت باستمرار عند فتح البرنامج

تفضل هذا التعديل sa1.4.zip

تفضل التعديل فقط قم بإضافة رابط الملف داخل مربع النص مثال.accdb

ارفق نسخة لكي يتم التعديل عليها

تفضل جرب هذا التعديل بدون عمل جداول مؤقته AdoForm.zip