jjafferr

لم ارد عليك ، لأني بدأت أقرأ زيادة من ذلك لوقت (وطلعت من البيت حبتين ، وتغديث ، واخذت غفوة ، وواصلت القراءة 🙂 ) ، اعطيك رابطين من المواقع الاجنبية: الاول مجمع جميع الاقتراحات : Access - Bug - Database is in an Unrecognized Format | DEVelopers HUT (devhut.net) والثاني الاخذ والعطاء فيه لايزال مستمر من حوالي سنتين حول هذه النقطة وما حولها : Access Database is getting corrupt again and again - Microsoft Community الله يعينك ، ورجاء تخبرنا وين توصل 🙂 جعفر

اما الكود فيمكنك اختصاره كالتالي: If DCount("*", "qry_tbl2", "HNO =" & Me.tn) = 0 Then MsgBox "الرقم غير موجود" Else Me.Recordset.FindFirst "hno=" & Me.tn End If Me.tn.SetFocus Me.tn = "" ومع اني لا اعرف كيف وصل المؤشر هناك ، ولكن ، بما ان في هذا النموذج هو للبحث فقط ، فيمكن قفل هذا الحقل من التعديل ، هكذا : . جعفر

على حدث عند "النقر" للزر ، تستطيع منادادة الكود السابق : call tn_AfterUpdate بعد ان تكتب ما تشاء في مربع النص ، وبعد تحديث بياناته بالخروج منه ، سواء عن طريق الزر Enter او Tab ، وللعلم ، فالطريقة الصحيحة للانتقال بين كائنات النموذج هي عن طريق زر Tab ، وتستطيع عمل تسلسل الانتقال من كائن الى اخر من اعدادات الكائن ، علما بأن اول رقم هو صفر : . ما اعرف شو قصدك في هاي النقطة ، فنحن لا من قريب ولا بعيد جئنا بقرب مربع نص الكتابة 😁 لما نجرب العمل ، فلا نتعامل مع كائنات اخرى ، إلا في حال يتطلب منا هذا الامر ، لذا لم اتطرأ له اصلا !! ولكن وبما انك تعرف اكثر عن برنامجك ، فياريت تخبرنا ما تعمله بالخطوات ، او بالصور ، لنحصل على ما حصلت عليه من نتيجة 🙂 جعفر

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

السلام عليكم 🙂 الافضل ان يكون الاستعلام مصدر بيانات النماذج والتقارير ، ولا تأخذ الجداول كمصدر بيانات مباشر ، فهذا اللي عملته هنا : . ولا تعمل الكود على حدث "الخروج" من الحقل ، بينما الطريقة الصحيحة ان تضع الكود على حدث "بعد التحديث" : Private Sub tn_AfterUpdate() If DCount("*", "qry_tbl2", "HNO =" & Me.tn) = 0 Then MsgBox "الرقم غير موجود" Me.tn = "" Else Me.Recordset.FindFirst "hno=" & Me.tn End If End Sub . وجربت الكود الآخر ، فكان أبطأ من الذي ارفقته لك 🙂 جعفر 1335.انتقال.accdb.zip

وعليكم السلام 🙂 حتى لا يحدث لك هذا مرة ثانية: 1. تأكد بأن برنامج الاكسس فيه آخر التحديثات ، 2. هذا قد يكون بسبب بعض تحديثات مايكروسوفت للوندوز ، من موقع مايكروسوفت: Access reports that databases are in an 'inconsistent state' - Access (microsoft.com) - يكفي عمل هذا العمل على السيرفر (او الكمبيوتر الذي عليه نسخة الجداول) ، ولا يضر ان تعمله على كمبيوتر الواجهة وكمبيوتر الجداول : - افتح برنامج CMD كمسؤول ، Windows Start and then type Command. Right-click on Command Prompt and choose Run as administrator - ثم اكتب هذه الاسطر الثلاث (انسخ اول سطر من هنا ، والصقه هناك ، واضغط على زر Enter لتنفيذ الامر ، ثم الصق الثاني ونفذ الامر ، ثم الثالث ونفذ الامر) : REG ADD HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters /v DisableLeasing /t REG_DWORD /d 1 /f NET STOP SERVER NET START SERVER . والآن ، اعمل ضغط واصلاح لقاعدة البيانات ، وجربها في المحيط الجديد 🙂 جعفر

انا قلت لا تكتب غير الانجليزية في الكود ، ويمكنك ، ان تستعمل جميع اللغات في البرنامج ، كما في المثال في الرابط الذي ارفقته لك في مشاركتي السابقة 🙂 جعفر

هممم يحتاج لها وقفة تأمل ، ولكن لما اخلص اللي في يدي ، واللي في يدي كثير 😁 شكرا على إثارة وإثراء الموضوع 🙂 جعفر

لا يُنصح بالكتابة في الكود VBE إلا باللغة الانجليزية ، وخصوصا وبرنامجك ظاهرا عليه انه متعدد اللغات ، وهذا الرابط سيفيدك : اعمل برنامجك بعدة لغات وببساطة - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

السلام عليكم 🙂 اخوي صالح ، معلومة تهمنا في الاكسس ، من هنا : Microsoft 365 Roadmap | Microsoft 365 . جعفر

🙂

تفضل 🙂 1311.8.Data.accdb.zip

وعليكم السلام 🙂 طيب كيف تريدنا نساعدك بدون ما نشوف ايش اللي عملته ، ونخبرك مكان الخطأ 🙂 جعفر

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

الحمدلله 🙂 ونعم افتح موضوع جديد ، ولكن : - لا تذكر انه يجب التعامل مع الاكسل ، لأنك ستنفر مجموعة معينه من الاعضاء ، - ولا تذكر اسمي في الموضوع ، فهذا يُعد مخالف لقوانين المنتدى، والاعضاء قد يتركون الموضوع ظنا منهم ان السؤال موجه لي 🙂 وحياك الله 🙂 واذا عندك اي استفسار اخير ، قبل اغلاق هذا الموضوع 🙂 جعفر

الظاهر التغيير الصحيح هو : مو فقط b = x انما b = اي حرف 🙂 جعفر

التقرير الموجود عندك حاليا يأخذ الصفحات ، ولنقل ان الصفحات 11 صفحة ، ولكني اضفت عليه ميزة ، وهي انك اذا لم تختار الصفحات فإنه يأخذها جميعا ، 1 الى 11 ، واذا اخترت اول صفحة (4 مثلا) ولم تختار آخر صفحة ، فهو يجعل الاختيار بين صفحتك والصفحة الاخيرة ، 4 الى 11 ، واذا اخترت الصفحة الاخيرة (6 مثلا) ولم تختار الصفحة الاولى ، فهو يجعل الاختيار بين 1 الى 6 🙂 وكذا التواريخ 🙂 جعفر 1311.8.Data.accdb.zip

تفضل: جمع جميع القيم التي تدخلها في نموذج ادخال البيانات عن طريق الزر ، وبدون السجل الاول ، ومافيه داعي تحفظ الحقل RowID في الجدول ، لأنه متغير يأخذ قيمه من داله ، فاتركه بحاله 🙂 جعفر 1311.7.Data.accdb.zip

عفوا ما عرفت قصدك ، ونموذج ادخال البيانات مافيه مجموع !! وهل تريد المجموع لجميع السجلات ، او يجمع بسبب معين ، مثلا لا يجمع iPage=1 ، او اطلاقا تريده لا يجمع السجل الاول ؟ . رجاء تعطيني مثال ، ولو تعملهم بالاكسل ، وكلما كان المثال واضح ، كلما تمت العملية بسرعة وبدون اسئلة اخرى 🙂 هذه لا يمكن عملها بدون ان تعطي مثال واضح وبالتفصيل ، ويجب ان تفتح له موضوع جديد ، لأنه خارج عن موضوعنا 😁 جعفر

الحمدلله 🙂 1. اصلا ملف الـ 7 ميجا مافيه شحم كفاية علشان يخس اكثر 😁 2. ما مفروض ان يكون نموذج مفتوح ، هذا كان في النسخ القديمة ، فلوسمحت ترسل لي صورة شاشة للبرنامج ، حتى اعرف اي نقطة وصلت العملية ولم تُغلق النموذج ، وياريت فيديو مثل ما عملت سابقا ، لأنه ساعدني لمعرفة الخطأ 🙂 صبراً آل ياسر 🙂 ومو كفاية ان تقول ما اشتغل البرنامج ، رجاء تعطي معلومات كافية عن الخطأ ، واين يتوقف الخطأ !! رجاء اخبرنا نظام الكمبيوتر ، ونسخة الاكسس ونظامها ؟ جعفر

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

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

السلام عليكم 🙂 لو بحثت في المنتدى لوجدت طلبك واكثر 🙂 هنا تمت مناقشة مثل هذا الموضوع الى العظم 🙂 هل من طريقة لاجبار المستخدم علي ادخال الاسم رباعيا - قسم الأكسيس Access - أوفيسنا (officena.net) يُغلق جعفر

🙂

يجب ان توضح جميع الامور بسرد واضح ، وامثلة واضحة ، واترك الباقي على المبرمجين 🙂 جعفر