ابو جودي

اتفضل Usrse.accdb

ضع الكود الاتى فى موديول Public Function DoMouseWheel(frm As Form, lngCount As Long) As Integer Dim strMsg As String If (Val(SysCmd(acSysCmdAccessVer)) >= 12#) And (frm.CurrentView = 1) And (lngCount <> 0&) Then RunCommand acCmdSaveRecord RunCommand IIf(lngCount < 0&, acCmdRecordsGoToPrevious, acCmdRecordsGoToNext) DoMouseWheel = Sgn(lngCount) End If DoCmd.CancelEvent Response = False End Function ثم فى النموذج فى حدث On Mouse Wheel ضع السطر التالى Call DoMouseWheel(Me, Count)

فكرة عمل فرز متقدم - Smart Sort 1 - الكود داخل المديول 2 - استدعاء الكود من خلال السطر التالى مع تغيير الـ *** الى اسم عنصر التحكم الذى يدل على الحقل المراد عمل الفرز له SmrtSort "***" .. '-----------------------------------------------------------' ' _ +-----------officena-----------+ _ ' ' /o) | ||||| | (o\ ' ' / / | @(~O^O~)@ | \ \ ' ' ( (_ | _ ----oOo--Moh--oOo----- _ | _) ) ' ' ((\ \) +/o)----------3ssam---------(o\+ (/ /)) ' ' (\\\ \_/ / \ \_/ ///) ' ' \ / \ / ' ' \____/________Mohammed Essam________\____/ ' '--28-10-2021-----------------------------------------------' Option Compare Database Option Explicit Public bt As Byte Function SmrtSort(ByVal ObjectName As String) DoCmd.GoToControl ObjectName If bt = 0 Then DoCmd.RunCommand acCmdSortAscending bt = 1 ElseIf bt = 1 Then DoCmd.RunCommand acCmdSortDescending bt = 2 ElseIf bt = 2 Then DoCmd.RunCommand acCmdRemoveAllSorts bt = 0 End If End Function

اتفضل SmartSort.mdb

انظر فى الفوتر تحت السجلات على الليبل مع كل عملية فرز يبدو انك لم تلاحظه

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

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

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

السلام عليكم ورحمة الله تعالى وبركاته الجواب يعرف من العنوان واترككم مع التجربة ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ 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

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

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

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