jjafferr

وعليكم السلام لا يمكن البحث في التقرير/الريبورت . جعفر

السلام عليكم الطريقة الصحيحة في استخدام الدالة Dir https://www.techonthenet.com/access/functions/file/dir.php ولكن من تجربتي ، فهذه الدالة بطيئة نوعا ما في البحث عن ملف/مجلد في الشبكة الدالة Kill هي لحذف الملفات وليس المجلدات ، بينما الدالة RmDir هي لحذف المجلدات الفارغة ، اما اذا كانت هناك ملفات في المجلد ، فيجب حذف الملفات قبل حذف المجلد ، الرابط التالي فيه امثلة http://www.rondebruin.nl/win/s4/win004.htm ولكن ، الملفات والمجلدات التي يتم حذفها بالدوال اعلاه ، تُحذف نهائيا ، ولكن اذا اردت حذفها الى سلة المهملات ، فاستخدم الوحدة النمطية في الرابط التالي: http://vbadud.blogspot.com/2008/08/vba-send-file-to-recycle-bin.html جعفر

وعليكم السلام تفضل الآن وبعد عمل الالوان ، تبدو الصورة كأنها لغز آسف ، عملت الربط بكود الورشة جعفر 484.Maint Car System.zip

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

والحمدلله ، خلصت

انتظر وصول الغداء ، فما عندي شغلة الآن ، فقلت ارد عليك اذا كنت تريد الرجوع عن آخر تعديل ، وما يهمك تعديلات امس لبكرة ، اعمل لك حقول تراجع غير مضمنه بعدد الحقول التي تريد التراجع عنها ، وفي الحدث "قبل التحديث" للحقل ، انسخ قيمته لحقل التراجع الخاص به. اما اذا كنت تريد اكثر من تراجع للحقل (مثل Undo الوورد والاكسل مثلا) ، ففي الحدث "قبل التحديث" للحقل ، انسخ قيمته في سجل جديد في حقل التراجع الخاص به في جدول التراجع جعفر

وعليكم السلام وبدون معلومات خاصة منك لطلبك ، تستطيع ان تتراجع عن القيمة التي قمت بها الى القيمة السابقة ، عن طريق me.Text1.oldvalue بشرط ان لا تكون قد حفظت السجل بعد جعفر

وعليكم السلام تفضل جعفر

وعليكم السلام بالاضافة الى ما تفضل به اخي شفان ، اليك رابط فيه نفس الطلب: جعفر

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

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

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

وعليكم السلام هذا الكود سيحذف البيانات من الجدول clients من قاعدة البيانات الاخرى: السر في الطريقة الاولى في الامر IN '1 mySQL = "Delete * From clients IN " & "'" & Me.txtPath & "'" CurrentDb.Execute (mySQL) او '2 Dim db As DAO.Database Set db = OpenDatabase(Me.txtPath) mySQL = "Delete * From clients" db.Execute (mySQL) 'DoCmd.SetWarnings False 'DoCmd.RunSQL (mySQL) 'DoCmd.SetWarnings True جعفر

ارفق برنامجك لوسمحت على نرى ماترى ، وسترى الحل كما نرى ، ان شاء الله جعفر

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

حيا الله اخوي أبوخليل ، واخوي صالح جعفر

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

وعليكم السلام البرنامج الذي ارفقته انت ، ID ليس AutoNumber ، وانما هو نص ، وكان في اعتقادي ان المرفق هو جزء من برنامج اكبر ، بحيث انه عندك نموذج رئيسي للأب ، ونموذج فرعي للأبناء ، والربط بين النموذجين بالحقل FatherNum ، وبهذه الحالة ، كل شئ سيتم ربطه تلقائيا بين الجدولين. جعفر

وعليكم السلام انت قلت الان: ولكنك في اول مشاركة قلت: وعلى هذا الاساس ، مفهومي هو: بالنسبة للمعلمين ، فإن اجازاتهم ثابته كما تفضلت انت بشرحك ، ولا علاقة لها بفترة العمل ، وغير المعلمين ، فإن اجازاتهم متغيرة بحسب فترة العمل. وانا ذكرت هذه الملاحظة , والتي على اساسها يعمل البرنامج: . فما المطلوب الان؟ جعفر

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

انا عندي عمل بنسبة 100% ، فما اسم النموذج الفرعي الذي لم يعمل؟ وهل كلامنا عن البرنامج Accurate.accdb ؟ جعفر

السلام عليكم بعد ان قارنت الجدولين Fathers و Sons ، رأيت ان معظم الحقول تحمل نفس البيانات ، باستثناء اسم الاسم (اسم الاب في جدول الاباء ، واسم الابن في جدول الابناء) ، فقمت بنسخ الاستعلام السابق ، وعمل استعلامين منه ، واحد للأب والاخر للابن ، وبتعديل اسم خانة الاسم ، حققت التالي: . والمهم عندي هنا هو ، اننا نستطيع تعديل البيانات (وليس قراءتها فقط) . فعند منادات الاب ، نستخدم استعلام الاباء ، وعند منادات الابن ، نستخدم استعلام الابناء والكود التالي يوضح الطريقة Private Sub chk_Father_Click() If Me.chk_Father = -1 Then Me.cmd_son = "" Me.RecordSource = "qry_Fathers" Else Me.RecordSource = "qry_Sons" End If Me.Requery End Sub Private Sub cmd_FatherNum_AfterUpdate() Me.chk_Father = -1 Me.cmd_son.Requery Call chk_Father_Click End Sub Private Sub cmd_son_AfterUpdate() Me.chk_Father = 0 Call chk_Father_Click End Sub Private Sub Form_Load() Call chk_Father_Click End Sub . وقد استفدت من مرفق اخي صالح ، واستخدمت حقلي البحث منه جعفر 479.Fiamlies.accdb.zip