ابو جودي

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

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

اتفضل ان شاء الله تجد ضالتك 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

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

تمت كتابة الرسائل بالعربية ولضيق وقتى لم احولها لـ unicode ولكن لا انصح بكتابة العربى داخل محرر الاكواد تم تنقيح وتعديل بعد الاخطاء تم تفعيل الحذف ويتم معه حذف السجلات الفرعية والمرتبطة بالسجل الرئيسي والصورة تم تعديل ظهور الصورة بالتقرير Data Registration (v. 3).mdb

نسيت

اتفضل يا استاذ @alriashi فى انتظار ردك بعد التجربة Data Registration (v. 2).mdb

DayuNameArabic.mdb

ضع الكود الاتى فى موديول Public Function DayAr(dtDate) Dim strSat As String Dim strSun As String Dim strMon As String Dim strTues As String Dim strWed As String Dim strThurs As String Dim strFri As String strSat = ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1576") & ChrW("1578") strSun = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1581") & ChrW("1583") strMon = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1579") & ChrW("1606") & ChrW("1610") & ChrW("1606") strTues = ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1604") & ChrW("1575") & ChrW("1579") & ChrW("1575") & ChrW("1569") strWed = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1585") & ChrW("1576") & ChrW("1593") & ChrW("1575") & ChrW("1569") strThurs = ChrW("1575") & ChrW("1604") & ChrW("1582") & ChrW("1605") & ChrW("1610") & ChrW("1587") strFri = ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1605") & ChrW("1593") & ChrW("1577") DayAr = Choose(Weekday(dtDate), strSun, strMon, strTues, strWed, strThurs, strFri, strSat) End Function يمكنك الان الحصول على اسم اليوم بالعربية لاى تاريخ من خلال استدعاء الروتين السابق باحد الاكواد الاتية - اسم اليوم الحالى من التاريخ الحالى DayAr(Date()) اسم اليوم بناء على تاريخ ما DayAr([[Fild Date Name])

مشاركة مع استاذى الجليل ومعلمى القدير @د.كاف يار هذه فكرتى المتواضعة IMAGE (Judy).accdb

اتفضل

طيب بالرغم من اننى كنت انتظر الرد عن نتيجة التجربة وابداء رايكم الكريم فى الفكرة الا انه طالما تم التأشير بأفضل اجابة يبدو انها بفضل الله تعالى نالت رضاكم وللعلم انا شخصيا الفكرة عجبتنـــــى