ابوخليل

تفضل تم التعديل مادامت المخالفة هي الهروب فقط فالعمل على النموذج الآن سيكون اسهل ستواجه مشكلة في التقارير ، عند عرض البيانات ، الحل هو تحويل الحقول في التقرير الى مربعات تحرير كما في النموذج الفرعي تماما ولكنها سوف تكون اسهل في استخراج المعلومة لوجود جميع البيانات في جدول السجل Stu2.mdb

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

ليس مستحيل وانما الحل بين يديك ولكنك دوما تكرر عبارتك هل يمكن عمل ذلك ؟؟ .. لان الملف الاخير يظهر وحدة تخزين فلاش واحدة فقط في حقل غير منضم ولا يظهر البقية والصحيح ان الاكواد كلها تظهر جميع وحدات التخزين انظر الصورة في تعديلي الاخير هذا >>> علما ان الكود موجود في اول مشاركة لي يظهر فيه الاقراص الثابتة والخارجية . ((( حدد الفلاشة المطلوبة وانقر على نسخ ... ولكن قبل هذا انظر الكود وعدل المكان الذي ستنسخ اليه انا جعلته ينسخ الى المجلد ABC الموجود على قرص E ايضا يمكننا اظهار اسم وخصائص الفلاشة ... حاول وستنجح فالاكواد بين يديك deskDb.accdb

جزاك الله خيرا اخي موسى عمل جميل ومتقن ، يسهل العمل ويساعد على تجنب الاخطاء عند اعادة كتابة العناصر كنت اعاني منه عند كتابة المعايير في الاستعلام حينما كنت اعمل على اصدار 2003 ولكن اكسس 2010 يجلبها لي داخل الاستعلام

انظر في نموذج المبيعات اليومية Me.[اسم_الصنف] = Me.[باركود_الصنف].Column(1) Me.[السعر] = Me.[باركود_الصنف].Column(2) رقم 1 يعني العمود 2 من مصدر بيانات مربع التحرير رقم الصنف ورقم 2 يعني العمود الثالث barkah2.rar

الصورة الظاهرة للباركود عبارة عن رقم الصنف 2140001002554 من اجل لو تعطل قارىء الباباركود يمكنك كتابة الرقم الظاهر ثم تنقر انتر ليظهر لك اسم الصنف بمعنى ان قارىء الباركود وظيفته يقرأ الرقم ويلصقه في الحقل ويعمل انتر اسم الصنف المدرج ليست التعبئة من القارىء وانما من الجدول او الاصح من عمود مربع التحرير اذا تريد جميع البيانات تظهر اعمل الآتي : 1- اضف البيانات الى جدول الاصناف 2- اضفها الى مصدر مربع التحرير 3- كرر الكود المسؤول عن اظهار اسم الصنف لكل حقل تريد ظهوره علما انه تبقى فقط السعر .. اما الكمية فمن عمل الكاشير يدخلها يدويا .. ويكون الافتراضي 1 لأنه هو الغالب

حاليا لا يتواجد بقربي جهاز آخر .. وسوف يكون على البال وادعوا كل من يمر من هنا التجربة والافادة

عجيب حتى مع التقسيم لا يمكن لمستخدمين اثنين ان يكتبا في سجل واحد في الوقت نفسه

شفاك الله وعافاك من كل مكروه أخي ابو زاهر طهور إن شاء الله

معنى كلامك انك تكتفي بارسال اختصار لقاعدة البيانات على جميع الاجهزة ؟؟؟ اذا صحيح .. فهذه لم اجربها من قبل لعل الاخوة ممن جرب هذه الطريقة يفيدنا اما فائدة التقسيم .. فأهمها : 1- السهولة واليسر عند التطوير 2- اخذ نسخة احتياطية يسهل الرجوع اليها عند الحاجة والعمل عليها من الواجهات الحالية 3- امكانية تكبير القاعدة وتحويلها الى sql وقد يوجد اكثر من ذلك ولكن لا تحضرني الآن

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

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

آسف اخي انسيت رفع المثال المعدل تفضل Database13mar.rar

ايضا نحن في الكود نفسه نستخدم مكتبة DAO

آمين ولك بمثل ما دعوت واكثر وأحبك الله الذي احببتنا فيه

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

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

شوفت اخوي محمد لما رفعت البيانات كاملة امكنني فحص الخلل وعلاجه مازال تاريخ التسديد ناقص 2000 سجل ولكني اعتمدت تاريخ الأذن المشكلة من النظام نفسه لا يسمح باكثر من 9500 سجل التي هي القيمة الافتراضية لذا يجب تعديلها بهذا السطر DAO.DBEngine.SetOption dbMaxLocksPerFile, 45000 انا جعلتها 45000 يمكنك انقاص الرقم او زيادته ليصبح الكود هكذا : Dim rs As DAO.Recordset Dim i As Long Dim x As Integer Dim r As String DAO.DBEngine.SetOption dbMaxLocksPerFile, 45000 Set rs = CurrentDb.OpenRecordset("SELECT Sheet1.cod, Sheet1.num , Sheet1.date_ezen fROM Sheet1 ORDER BY Sheet1.nname,Sheet1.cod , Sheet1.date_ezen ") If rs.RecordCount > 0 Then rs.MoveLast rs.MoveFirst Else Exit Sub End If r = rs!cod x = 1 For i = 1 To rs.RecordCount rs.Edit If rs!cod = r Then rs!num = x x = x + 1 Else x = 1 r = rs!cod rs!num = x x = x + 1 End If rs.Update rs.MoveNext Next rs.Close: Set rs = Nothing تفضل المثال بعد التعديل افتح الاستعلام بعد عملية الترقيم لترى النتيجة

تقصد قبل التحديث ؟ تمام .. والذي اذكره ان المشكلات دوما في الفرعي مادام منضما للجدول .. والحل الجذري هو عدم انضمامه

لو تأكدت من البيانات قبل الارسال المصنف يحتوي اكثر من 10600 سجل منها اكثر من 2000 بدون تاريخ يبدوا ان مشكلتك في عدم اكمال الترقيم من هذا الباب

تمام هذا مخرج لمن يواجه المشكلة بالنسبة لقاعدت البيانات التي لدي لا مشكلة عندي ان ارسلها بصيغة accdb لو الذي سيعمل عليها محترف ولكن من باب الحماية من العبث او الخلل غير المقصود وبالنسبة لامتداد accdr عمل بكل سلاسة على 64 .. الف شكر اخي العزيز ابو بسملة .

اذا لديك تصور للعملية اهم شيء قبل النماذج هو تأسيس الجداول بطريقة شاملة وصحيحة اذا عملت جداولك بدقة لم تترك شاردة او واردة فيما يدور في مخيلتك فاعتبر نفسك اجزت 80% من البرنامج دوما انصح بضبط الجداول ( حسب الاسس الفنية والعلمية) فهي التي تسهل بقية العمل وتساعد على الاحتراف المبكر

رأي ان مشروع الدواجن مثل اي مشروع انتاج ماشية / دواجن / طيور ... التكلفة والمصاريف : 1- تكلفة التأسيس : المكان الملائم .. ايجار/انشاءات / مسلخ ونتافات / حاضنات البيض .. الخ 2- مشتريات الدواجن . 3- الأعلاف والمياه 4- مصاريف النظافة والمتابعة 5- مصاريف العلاج والدواء 6- مصاريف اخرى المبيعات : 1- مبيعات الدجاج (حي/ مذبوح) ومبيعات الصوص 2- مبيعات البيض المهم في الأمر ضبط ما تنفقه على مشروعك وما يعود عليك من مال . بالمختصر انت بحاجة الى عمودين في جدول للمصروف وللوارد ، ان كنت قمت بدراسة الجدوى فهذا شيء طيب ... والا بعد سنة سيتضح لك كل شيء .. .. قد تستمر وتتوسع .. وقد تتوقف

الحذف يتم في الجداول مياشرة على اعتبار رقم التسلسل في جدول 1 هو عبارة عن المعرف في الجداول الآخرى الحذف يتم على كل جدول باستثناء جدول1 .. لكل جدول سطر يخصه الكود واضح وسهل الفهم فقط استبدال مسميات الجداول والحقول بالتسميات التي لديك DoCmd.SetWarnings False DoCmd.RunSQL "DELETE tbl2.*, tbl2.idStud2 FROM tbl2 WHERE tbl2.idStud2 = [Forms]![frm1]![IDStud]" DoCmd.RunSQL "DELETE tbl3.*, tbl3.idStud3 FROM tbl3 WHERE tbl3.idStud3 = [Forms]![frm1]![IDStud]" DoCmd.RunSQL "DELETE tbl4.*, tbl4.idStud4 FROM tbl4 WHERE tbl4.idStud4 = [Forms]![frm1]![IDStud]" DoCmd.RunSQL "DELETE tbl5.*, tbl5.idStud5 FROM tbl5 WHERE tbl5.idStud5 = [Forms]![frm1]![IDStud]" DoCmd.SetWarnings True DoCmd.Requery