ابو جودي

الاستاذ @محمد طاهر حياكم الله وبياكم وجزاكم الله خيــــرا شكر على التوضيح دمتم لنا بكل خير

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

السلام عليكم ورحمة الله تعالى وبركاته الجواب يعرف من العنوان واترككم مع التجربة ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ SmartSort.accdb

جزاكم الله خيرا احبكم الله الذى احببتمونا فيه ولاجله

وما توفيقى الا بالله هذا فضل الله استاذى الكريم , لله سبحانه وتعالى الحمد والشكر الذى هدانا وما كنا لنهتدى لولا ان هدانا الله وجزاكم الله خيرا على دعواتكم الطيبات واسال الله ان يزرقكم ايها وفضلها اضعافا مضاعفة

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

جرب الحل بالمرفق استاذى الكريم ووافينى بالنتيجة

الحل كالاتى ادخل الى النموذج فى وضع التصميم ومربع النص هذا اسمه فى النموذج مربع_تحرير_وسرد95 من الخصائض الخاصة به فقط امسح General Number

😄 المهم مشكلتك اتحلت ؟ حاول تقيسم الحقول على عدة جداول واستخدم الاستعلامات فى الحاق وتعديل البيانات

مين قال كده هات المرفق تبعك للتعديل سيدى

اتفضل ان شاء الله تجد ضالتك Disabling application close button.mdb

الاستاذ الفاضل @abouelhassan بارك الله فيه لا يتحدث عن النماذج والتى اشرتم بالتعديل اليهما من خصائصها وانما يقصد اطار الاكسس العام بدون اى نماذج اصلا والذى يغلق تطبيق الاكسس ككل حتى لو لم تكن هناك نماذج

https://support.microsoft.com/ar-sa/office/-مواصفات-access-0cf3c66f-9cf2-4e32-9568-98c1025bb47c

اتفضل Dim intID As Integer Dim strSQL As String intID = Nz(DMax("[id]", "MyTable"), 0) + 1 strSQL = "INSERT INTO MyTable ( FirstName, LastName, DateOfBirth, ID, SIR ) " & " SELECT ""Harry"" , ""Washington"" , #11/12/2021#, " & intID & " , True ;" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True

طيب شوف الجدول الجديد وانظر الى نوع الحقل ولى سؤال.. هل لابد من كل عدد الحقول هذا اهتقد ان المشكلة قد تكون بسبب كل عدد الحقول هذا لنفس السجل قاعدة البيانات1.accdb

العفو منكم استاذى الجليل هذا بعد فضل رب العباد سبحانه وتعالى فضلكم وكل اساتذتى العظماء الذين اتعلم منهم وعلى ايديهم فلو لا الله سبحانه تعالى ثم انتم ما علمت ولا دريت ويعلم الله لكم وكل اساتذتى العظماء مكان فوق رأسي وتتربعون بداخل قلبى اسال الله ان لايحرمنا منكم ومن عطائكم وحتى تكتمل الفائدة خطر على بالى عمل الكود الاتى بنفس الفكرة للارقام Public Function MyNo(ByVal strNo As String, ByVal strLng As String) If strLng = "Ar" Then strNo = Replace(strNo, "0", ChrW(1632)) strNo = Replace(strNo, "1", ChrW(1633)) strNo = Replace(strNo, "2", ChrW(1634)) strNo = Replace(strNo, "3", ChrW(1635)) strNo = Replace(strNo, "4", ChrW(1636)) strNo = Replace(strNo, "5", ChrW(1637)) strNo = Replace(strNo, "6", ChrW(1638)) strNo = Replace(strNo, "7", ChrW(1639)) strNo = Replace(strNo, "8", ChrW(1640)) strNo = Replace(strNo, "9", ChrW(1641)) MyNo = strNo ElseIf strLng = "Ar" Then strNo = Replace(strNo, ChrW(1632), ChrW(48)) strNo = Replace(strNo, ChrW(1633), ChrW(49)) strNo = Replace(strNo, ChrW(1634), ChrW(50)) strNo = Replace(strNo, ChrW(1635), ChrW(51)) strNo = Replace(strNo, ChrW(1636), ChrW(52)) strNo = Replace(strNo, ChrW(1637), ChrW(53)) strNo = Replace(strNo, ChrW(1638), ChrW(54)) strNo = Replace(strNo, ChrW(1639), ChrW(55)) strNo = Replace(strNo, ChrW(1640), ChrW(56)) strNo = Replace(strNo, ChrW(1641), ChrW(57)) MyNo = strNo End If End Function وهذا المرفق DayuNameArabic. & English (1).mdb

اتفضل يا افندم

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

بارك الله فيكم ورضى الله عنكم وارضاكم استاذى الجليل

ممكن مرفق للاطلاع الله يبارك فى حضرتك

استاذى الجليل ومعلمى القدير واخى الحبيب الاستاذ @أبو عبدالله الحلوانى بعد جزاكم الله خيرا هذا المرفق على طريقتكم سلمتم ودمتم لنا وبارك الله لنا فيكم وكل اساتذتنا العظماء DayuNameArabic. & English.mdb

هههههههههه اسعدكم الله استاذى الجليل ومعلمى القدير كلماتك وسام على صدرى

جزاكم الله خيرا

عدد الاحرف الاقصى 255 لنوع الحقل Text ان كنت تريد عدد حروف اكثر من ذلك غير نوع الحقل من Text الى Memo

جزاكم الله خيرا