أبوبسمله

جزاك الله خيرا اخى واستاذى ووالدنا الحبيب @jjafferr واسمح لى بان اقول والدى حبا فالله

حمدالله على السلامه اخى واستاذى عصام @essam rabea

جزاكم الله خيرا اخوانى واساتذتى @رمهان @jjafferr بارك الله لنا فيكم وفى جميع اخوانى واساتذتى مازال امامى الكثير لاتعلمه منكم وزادكم الله من فضله وعلمه وجزاهم الله خيرا اخوانى طلبه العلم مثلى على طرحهم الاسئله فمنها ابحث واتعلم كل يوم تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

اهلا بك اخى واستاذى العزيز رمهان عودا حميدا ان شاء الله متغبش كتير عننا احسنت اخى واستاذى @رمهان وفعلا يحتاج لوضع = "777" جزاك الله خيرا نتعلم كل يوم جديد منكم اساتذتى فليس لنا مورد للتعلم سوى مشاركتكم اخوانى واساتذتى بارك الله لنا فيكم وزادكم الله من فضله وعلمه تحياتى وتمنياتى لكم وللجميع بالتوفيق

وعليكم السلام ومشاركه لاخى ناقل جزاه الله خيرا ان كنت فهمت طلبك بشكل صحيح اذا كان اول رقم =7 او الثانى =7 او الثالث =7 وان كان 3 الاولى = 7 عدل or الى and If Mid(text1, 1, 1) = 7 Or Mid(text1, 2, 1) = 7 Or Mid(text1, 3, 1) = 7 And Me.text2 = 7 Then MsgBox "تنبيه" Me.Undo DoCmd.CancelEvent End If ويمكن اختصار الكود بالمشاركه الاولى الى If Mid(text1, 1, 1) = 7 And Mid(text1, 2, 1) = 7 And Mid(text1, 3, 1) = 7 And InStr(Me.text2, 7) > 0 Then MsgBox "تنبيه" End If جرب ووافنا بالنتيجه تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا بالتوفيق اخى حسين

ولا يهمك اخى احاول قدر معرفتى مساعدتكم اتفضل اخى حسين ان شاء الله يكون ما تريد تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق A_Downloads.rar

على قد معرفتى واعتذر عن التقصير دبل كليك على السجل وسوف تظهر الرساله وافنى بالنتيجه Downloads_2.rar

وعليكم السلام اخى حسين هتعبك ارفق ملفك بنموذجك للتعديل عليه بالتوفيق ان شاء الله

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

ويسلمك ان شاء الله تمكون اسمتعت بالاجازه 😀 وهذه نتيجه الفحص على موقع اون لاين No engines detected this file الموقع https://www.virustotal.com/gui/home/upload

حمدالله على السلامه اخى واستاذى خالد @kha9009lid وانا ايضا من افاست

هل بالامكان ارفاق صوره للمراجعه

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

اخى العزيز من اين لك بهذه المعلومه ما مصدر الفحص لديك ؟

في الحقل text2 ، جرب الرقم 1231231172564 واخبرنا النتيجة 😁 اما لو سؤالك كان: والحقل text2 = رقم ( 7 ) ، فالموضوع مختلف 🙂 جعفر معك حق اخى واستاذى العزيز جعفر فانا اعتمدت على = 7 ولكن نظرتك اشمل جزاك الله خيرا بتعلمينا وتذكيرنا بالدوال اسال الله ان يرزقك الفردوس الاعلى انت وجميع اخوانى واساتذتى واجمل باقات الورود معطره بذكر الرحمن يحفظكم ويزيدكم من فضله وعلمه

وعليكم السلام اتفضل اخى @حسين العربى ان شاء الله يكون ما تريد تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق test1.accdb

وعليكم السلام اتفضل اخى حسين ان شاء الله يكون طلبك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق copy.accdb

ادخل على النموذج الفرعى فى حدث عند تاكيد الحذف احذف الكود الموجود هناك فليس له داعى الان بالتوفيق اخى

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

وعليكم السلام اخى الفاضل هل هذا ما تريد ؟ وافنا بالنتيجه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق micro.accdb

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

عفوا اخى حسين كان يوجد خطأ مطبعى بالكود 😀 x = Nz(DLookup("sale_id", "sale", "[reg_date]=" & Format([reg_date], "\#mm\/dd\/yyyy\#") & "And [code]=" & [code]), 0) If x > 0 Then MsgBox ("íæÌÏ ÝÇÊæÑå áåÐÇ ÇáÚãíá :" & " " & Me.code.Column(1) & " " & "/ ÈäÝÓ ÇáÊÇÑíÎ ") Me.Undo End If جرب الان ووافنى بالنتيجه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق AUP_DlookupNew.accdb

وعليكم السلام اخى حسين خد الكود من قبل التحديث للتاريخ وضعه بحدث قبل التحديث لكود العميل اى عندما تختار العميل بالتوفيق ان شاء الله

وعليكم السلام بارك الله فيك اخى حسين اتفضل ان شاء الله يكون ما تريد اختار العميل وعند كتابه التاريخ سيتم التنفيذ تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق A_DlookupNew.accdb