ابو جودي

قطعا طالما انها لم تعمل اختلاف الاصدار هو السبب

كل الشكـــــــر والتقدير

لابد من اضافة المكتبة Microsoft ActiveX Data Objects 2.5 Library ools > References > Check the checkbox in front of "Microsoft ActiveX Data Objects 2.5 Library" Other libraries that work include: Microsoft ActiveX Data Objects 2.6 Library Microsoft ActiveX Data Objects 2.7 Library Microsoft ActiveX Data Objects 2.8 Library Microsoft ActiveX Data Objects 6.1 Library

ارفق القاعدة رجاء

اتفضل 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