kanory

لو دققت النظر في الصورة التالية يتضح لك :::::: ان ادخالك للاجازات هناك تداخل بين التاريخين الشهر 5 موزعة كالتالي : في السجل رقم 1 هناك 31 يوم في شهر 5 في السجل رقم 2 هناك يومان في شهر 5 المفرروض الموظف لديه اجازة 1/5 الى 30/5 كيف ياخذ اجازة مرة اخرى بتاريخ 1/5 الى 2/5 في السجل الثاني دقق النظر ..... حاول تصميم برنامجك على اساس لو حصل تعارض بين اجازتين من حيث التواريخ يرفض ذلك ....

طيب ... طبق الخطوات حسب الصور :::::: البحث_kan.accdb

انظر الاستعلام هل هذا ما تريد .....

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

واياك ....

حياك الله اخي الفاضل .... تفضل .... kan_22.accdb

تفضل ... قم باختيار الصف ثم حضر الطلاب ثم احفظ لاعتماد غياب للصف ثم كرر العملية لجميع الصفوف .... kan_22.accdb

تفضل ... NEW (4).accdb

لا تريد العرض .....؟؟؟؟؟ ام تريد عرضها في النموذج .......؟؟؟؟؟ ام تريد رسالة .....؟؟؟؟

انظر هذه الحلول .......

اذا كان فهمي للموضوع صحيح انظر الاستعلام ..... بيانات.mdb

اشكرك أخي الفاضل ..... هذا ما تعلمناه منك

-------->>>>>> تفضل ::::::: تجربة_7652.accdb

حياك الله .... الحمد لله رب العالمين

مشاركة مع استاذي الغالي @kha9009lid استخدم هذا الكود Dim db As DAO.Database Dim rs As DAO.Recordset Dim str As String str = "SELECT Table1.ID, Table1.barcode, Table1.police, Table1.FindBarcod, Table1.countBarcod FROM Table1 WHERE (((Table1.police) Is Null));" Set db = CurrentDb Set rs = db.OpenRecordset(str) Dim i As Integer For i = 1 To Me.Text0 rs.Edit rs!police = Me.Text2 rs.Update rs.MoveNext Next i rs.Close Set rs = Nothing تفضل .... New Microsoft Access Database.mdb

حياك الله اخي الكريم ..... بالتوفيق

اذن اجعل التقرير هو المرتبط بالاستعلام ... واترك الاستعلام كما هو بدون حذف الجداول الموجودة في الاستعلام والنموذج مصدره الجدول TABLEMARKAZ1

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

غير مصدر النموذج الى TABLEMARKAZ1 بدلا من STABLEMARKAZ1

ربما هذا المطلب .... جرب المرفق !! DATE _1.accdb

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

اعتقد المشكلة لديك في نوع العلاقة !!!!

هذه طريق اخرى تم استخدام هذا الكود ... On Error Resume Next If DCount("ID", "تذيل المبيعات", "[رقم_الباركود_ت] = '" & xxx1 & "' And [رقم الفاتورة] = " & kan & "") > 0 Then DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE [تذيل المبيعات] SET [تذيل المبيعات].العدد = [تذيل المبيعات].[العدد]+1 WHERE ((([تذيل المبيعات].رقم_الباركود_ت)=[forms]![فاتورة مبيعات]![تذيل المبيعات].[Form]![xxx1]) AND (([تذيل المبيعات].[رقم الفاتورة])=[forms]![فاتورة مبيعات]![رقم الفاتورة]));" Me.Undo DoCmd.RunSQL "DELETE DISTINCTROW [تذيل المبيعات].العدد, [تذيل المبيعات].رقم_الباركود_ت, [تذيل المبيعات].[رقم الفاتورة] FROM [تذيل المبيعات] WHERE ((([تذيل المبيعات].العدد)=1) AND (([تذيل المبيعات].رقم_الباركود_ت)=[forms]![فاتورة مبيعات]![تذيل المبيعات].[Form]![xxx1]) AND (([تذيل المبيعات].[رقم الفاتورة])=[forms]![فاتورة مبيعات]![رقم الفاتورة]));" DoCmd.SetWarnings True Else Me.سعر_البيع.Requery Me.سعر_البيع = Me.سعر_البيع.ItemData(0) [Forms]![فاتورة مبيعات]![تذيل المبيعات]![نص40] = [Forms]![فاتورة مبيعات]![تذيل المبيعات]![نص40] - [Forms]![فاتورة مبيعات]![تذيل المبيعات]![العدد] DoCmd.Requery End If تجربة_7652.accdb

متابع بصمت ... بارك الله في الجميع

بارك الله فيك اخي احبك الله الذي احببتنا فيه الحمد لله الذي بفضله تتم الصالحات