ابو جودي

السلام عليكم ورحمة الله تعالى وبركاته هذا المرفق نزولا على رغبة اخ كريم Filter Utility.accdb

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

بارك الله فى استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr انا وضعت بناء الكود اجمالا ومعلمى الجليل وضعه تفصيلا على تلك الحالة خصيصا وبناء الكود خصيصا لتلك الحالة يمكن استخدامة بهذا الشكل كذلك باستخدام Select Case لانى احب استخدامها اكثر من استخدام IF On Error GoTo ErrorHandler DoCmd.FindRecord Me.booknamex, acEntire, False, , True, acCurrent, True ExitHandler: Exit Sub ErrorHandler: Select Case Err.Number Case Is = 2137 MsgBox "يا رجال حست وحست وما لقيت بو تدور عليه" Resume Next Case Else MsgBox "Error Number : " & Err.Number & vbNewLine & "Error Description : " & Err.Description Resume ExitHandler End Select طبعا تستخدم Exit Function أو Exit Sub حسب الكود

تحت امرك يا دكتور ان شاء الله

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

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

ونعم بالله البقاء والدوام لوجه الله سبحانه وتعالى يارب .. يارب .. يارب .. اللهم امين اسأل الله تعالى له الرحمة والمغفرة ولكل المسلمين والمسلمات والمؤمنين والمؤمنات الأحياء منهم والأموات عندما يسمح وقتكم إن أمكنكم استضافتى انظر الى القاعدة الأصلية عل الله تعالى يسهل لى التعديل عليها لكم لاتمام كامل العمل من نموذج واحد فقط تسهيلا لكم ان اردتم ذلك يا دكتور جزاكم الله خيــــراً اسأل الله تعالى لى ولكم ولكل المسلمين والمسلمات والمؤمنين والمؤمنات البركة فى العمر والعلم والعمل و نوراً فى القلب وضياءً فى الوجه وسعة فى الرزق وصلاحاً يتبعه نجاحاً وفلاحاً ان شاء الله

طبعا سوف يتم تفادى المشكلة باستخدام هذا السطر ولكن لا احبذ استخدامه لانه سوف يتفادى اى خطا أخر غير ذلك وان كانت هناك مشكلة أخرى لن يستطيع المصم معرفة سبب المشكلة بسبب هذا السطر لذلك الافضل استخدام ErrorHandler ولذلك طلبت المرفق وعلى كل حال handler syntax error يكون بالشكل الاتى On Error GoTo ErrorHandler ' Insert code that might generate an error here Exit Sub or Exit Function ErrorHandler: ' Insert code to handle the error here Resume Next

ممكن مرفق من قاعدتك لو تكرمت ؟

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

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

جزاكم الله خيرا وبارك الله فى عمركم

deext.tlb هذه مكتبه جافا خارجية غير موجودة

طيب ممكن توضح سبب استخدام الكود ؟ يعنى حضرتك عاوز تعمل ايه ؟ الكود سليم وما فى اى مشاكل ..

تصحيح للمعلومات السابقة 1- عدم تفريغ المتغيرات ليس له تأثير فى تفريغ الذاكرة العشوائية او سرعة التعامل مع قاعدة البيانات ولكن فى حالة عدم تفريغها ومحاولة استخدامة نفس المتغير مرة أخرى باسناد قييمة جديدة لو اغفل المبرمج اسناد القيمة الجديدة سوف يحصل على القيمة السابقة 2- اما ال RS والتى تخص الـ Recordset عند استدعائها تقوم بفتح الجدول او الاستعلام حسب ما تسنده اليها وفى حالة عدم اغلاقها يظل الجدول او الاستعلام مفتوح وقد يحدث ذلك خطأ عند استدعاء نفس الجدول او الاستعلام مرة أخرى على اعتبار انه بالفعل مفتوح