ابو جودي

ماشى حظك حلو ماشاء الله جالك الأستاذ @husamwahab ومعاه مصباح علاء الدين حقق امانيك

جزاكم الله خيـرا ممكن تتكرم بالكود بارك الله فيك

لايوجد رابط لهذا الملف

لا انت كده عاوز مصباح علاء الدين واعتقد كمان عاوز كود يعرف انت ناوى تمسح فبل ما يخطر على بالك انت هتمسح ايه مهو كود زكى بقه انتظر لما يجى لك مبرمج زكى يقول لك الحل لان انا لا مبرمج ولا زكى

السلام عليكم مشاركة مع استاذى الجليل واخى الحبيب @husamwahab ضع الكود الاتى فى موديول Function SpDelRec(ByVal strTableName As String, ByVal strFieldName As String) On Error GoTo ErrorHandler Const MyMsg = "Are you sure you wish to delete the records?" If MsgBox(MyMsg, vbYesNo + vbQuestion, "Confirm") = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL "DELETE [" & strTableName & "].* FROM [" & strTableName & "] WHERE ((([" & strTableName & "].[" & strFieldName & "]) Between [start delete from] And [To]))" DoCmd.SetWarnings True Else Exit Function End If ExitHere: On Error GoTo 0 Exit Function ErrorHandler: Select Case Err.Number Case Is = 2001, 3167 MsgBox "Action Aborted . " Case Else MsgBox Err.Description, , "ERROR " & Err.Number GoTo ExitHere End Select End Function وقم بعمل زر امر فى النموذج الذى تريد وضع الكود الاتى فى حدث عند النفر على الزر 'Call SpDelRec("Table Name", "Field Name") Call SpDelRec("TAB_RMZ", "TNO") وطبعا لأنك طلبت تم كتابة الروتين ليكون عام ومرن ليجعلك تكتب اسم الجدول الذى تريده مهما كان عدد الجدول فى كل زر امر اكتب الجدول الذى تختصه فى حذف السجلات منه وكذلك اسم الحقل جعلته مرنا تكتبه بكود زر الامر حتى ان كان اسماء الحقول مختلفة فى الجداول طبعا لا انسى أخص بالشكر استاذى الجليل ومعلمى القدير الأستاذ @jjafferr من أجل هذة الجزئية تحديدا [" & strTableName & "] جزاه الله هو وكل اساذتى الكرم كل الخيـر تقبل تحياتى

اعتذر انا اعمل على اوقيس 23 بيت قد تكون احد الدوال لم يت التعامل معها لتعمل على كلا من النواتين رجاء صورة من الخطأ

اتفضل مساحات (1).accdb

المرفق كما ينبغي ان يكون مساحات (2).accdb

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

استاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @ابوخليل جزاكم الله خيـرا على التنويه والتطرق الى تلك النقطة الهامة ومن أجل ذلك طلبت من الدكتور حلبى تجربة المرفق الخاص بأخونا الفاضل الاستاذ @Ahmed_J ولانى لا اعلم نتيجة التجربة أنتظر عودة الدكتور حلبى ان شاء الله ولكن الحل الوحيد المتبقى لدى الأن بعد رد الدطتور حلبى ان لم يجد مراده من مرفق الاستاذ @Ahmed_J هو عمل SplashForm عند الفتح يقوم بـ 1- الاحتفاظ بقيم دقة الشاشة الحالية 2- تعديل دقة الشاشة الى القيم التى يريدها الدكتور حلبى والتى قام بالتصميم عليها 3- عند الاغلاق استرجاع القيم لدقة الشاشة والتى تم الاحتفاظ بها عند الفتح واعرف ان ما يعيب هذه الطريقة انه فى حالة التهنيج والخروج من الاكسس بدون المرور على كود عودة الدقة الى القيم المحفوظة سوف تظل دفة الشاشة على القيم الجديدة المعدلة دون عودة انته جيدا يا دكتور لهذه الاسطـــــــــر وعلى وجه الخصوص واعرف ان ما يعيب هذه الطريقة انه فى حالة التهنيج والخروج من الاكسس بدون المرور على كود عودة الدقة الى القيم المحفوظة سوف تظل دفة الشاشة على القيم الجديدة المعدلة دون عودة

طيب يا دكتور جرب على مختلف الشاشات وشوف الدنيا تمام واللا لاء؟ منتظر ردك

اتفضل مساحات.accdb

اذا قم بتجربة المرفق الاتى مثال (1).accdb

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

تم التحميل بنجاح واعادة رفعه مرة اخرى لاجل عيونكم HR.zip

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

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

اسف تم تعديل المرفق بالمشاركة الاولى لوجود خطأ واعادة رفعه مرة أخرى واعادة رفعه مضغوط هنا تقليلا للحجم pppp(v1).zip

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

اتفضل pppp(v1).accdb

ممكن رابط الموضوع الاصلى يا استاذ @ناقل

ان تكرمت رابط الموضوع

يا دكتور لو تكرمت اناا عاوز مرفق من القاعدة اللى فيها مشكل فى النماذج القاعدة الاصلية

طيب ممكن مرفق حضرتك

طيب ممكن المرفق كامل دون ان تقتطع منه شئ