أبوبسمله

وعليكم السلام ومشاركه لاخى ناقل جزاه الله خيرا ان كنت فهمت طلبك بشكل صحيح اذا كان اول رقم =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

اخى الفاضل عند وضع مثال يرجى وضع بيانات به وليس فارغ وعالعموم ارفق مثال لاختنا ومعلمتنا العزيزه زهره ان شاء الله يفى بالغرض وان لم يفى بالغرض برجاء املىء 10 جداول على الاقل 3 سجلات فى كل جدول واشرح ما تريد وان شاء الله اخوانك واساتذتنا ما بيقصروا تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق المقارنة بين جدولين لهما نفس المفتاح الأساسي ومختلفين في الدرجة الوظيفية-za-AL-ZAIR.rar

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

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

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