jjafferr

ظهرت هذه المشكلة مع تحديث الوندوز 10 رقم 1803 ، بينما تحديث الوندوز 10 الى التحديث 1709 لم يكن به مشكلة ، فحاول: - إما ارجاع الكمبيوتر الى الوراء بحذف التحديث الى ان تصل الى 1709 وتتوقف ، او - تعمل فورمات للكمبيوتر (او تجربه على كمبيوتر آخر فاضي) وتنصب عليه الوندوز 10 الى التحديث 1709 (لا تنسى ، بوجه عام ، انت بحاجة الى عمل هذا للكمبيوتر/السيرفر الذي عليه برنامج الجداول). - واوقف تحديثات الوندوز. وقبل ان تقوم بهذا العمل ، خلينا مع فكرة اخوي ابوخليل البسيطة ، وقم بعمل مجلد جديد في السيرفر ، وضع البرنامج هناك ، فهناك من يقول بأنه بهذه التجربة تخلص من المشكلة 🙂 جعفر

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

ولا توجد كلمات عربيه في الكود هنا كذلك 🙂 النموذج: . والنتيجة: . جعفر 1337.Arabic تفقيط.mdb.zip

طبعا ، فلا يمكنك ان تحصل على نتيجة لـ (غ)val ، ومن هنا كنت تحصل على الخطأ ، لذا يجب تصيد هذه الحروف قبل الوصول للامر val 🙂 جعفر

بسبب . يجب ان يكون الكود يراعيها ، هكذا : If IsNumeric(a) = False Then m_ar = a ElseIf Val(a) < 20 And IsNumeric(a) Then m_ar = "عربي" Else m_ar = "" End If جعفر

وعليكم السلام 🙂 ولو اننا بحاجة الى معرفة طريقة ارسال البيانات الى هذه الدالة ، ولكن جرب : Function m_ar(a As integer) As String If a < 20 Then m_ar = "عربي" Else m_ar = "" End If End Function جعفر

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

جربه في الاستعلام مصدر بيانات النموذج 🙂 جعفر

لم ارد عليك ، لأني بدأت أقرأ زيادة من ذلك لوقت (وطلعت من البيت حبتين ، وتغديث ، واخذت غفوة ، وواصلت القراءة 🙂 ) ، اعطيك رابطين من المواقع الاجنبية: الاول مجمع جميع الاقتراحات : 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