أبوبسمله

هل جربت الكود بعد اضافه true ام ماذا ؟

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

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

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

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

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

اخى @ابوصلاح قبل تشغيل النموذج انظر للجدول الثانى ستجده فارغ شغل النموذج سيتم الحاق ID للجدول الثانى وتحديث بيانات الرقم القومى بالجدول الثانى وظهور البيانات كامله بالنموذج بعد الالحاق والتحديث تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق تحديث تاريخ الميلاد من الرقم القومي.rar

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

الشكر لله ثم لاخواننا ولاساتذتنا الذين تعلمنا ونتعلم منهم جزاهم الله خيرا اتفضل اخى لعله طلبك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق 16(1)(2).accdb

وعليكم السلام والله يا اخى لا اعلم ان كان هذا ما تطلبه ام لا غير تاريخ الميلاد فى الجدول ثم غير التاريخ لاخر يوم فى السنه 31/12/2020 ثم شغل النموذج ثم انظر للسن تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق تصفية بالعمر.rar

وعليكم السلام اخى صلاح المشكله انك بتطلب تحديث بناء على ID وهو غير موجود بالجدول 2 فمش قادر يحدث تم التحديث بنجاح بعد اضافه ID تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق تحديث تاريخ الميلاد من الرقم القومي.rar

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

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

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

وعليكم السلام جرب الكود كالتالى On Error Resume Next Dim FF As String FF = Me.IstisnaContracts Application.FollowHyperlink FF ,,true واخبرنا بالنتيجه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

وعليكم السلام مشاركه لاخى صلاح جزاه الله خيرا بكود جميل من اكواد اختى العزيزه زهره جزاها الله كل خير تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق zxc.accdb

وعليكم السلام ومشاركه لاخى خالد وبما انك لم ترفق مثال لما تريد ارفق لك مثال للاستاذ ابن مسقط من الامثله الموجوده عندى واضفت به استعلام للتوضيح حقل age وتبنى عليه تقريرك المعادله نفس الموجوده بالكود بالنموذج تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق حساب عدد السنوات.mdb

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

ممكن ترفق مثال لما لديك ان كنت لا تريد ارفاق ملفك اللى شغال عليه بالتوفيق اخى

ممكن تضيف فى حدث بعد الادراج للنموذج الفرعى Me.Requery وتبقى على الكود الاول بمثال اخى @صلاح جبر بالتوفيق اخوانى الطلبيات.rar

الشكر لله ثم للاخ @صلاح جبر بالتوفيق اخى

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

تعديل بسيط على كود الاخ صلاح جزاه الله خيرا بملاحظه الاخ السائل لعمل تحديث للنموذج الفرعى بعد الادخال عند عدم الادخال والضغط عالزر سوف تظهر لك الرساله عند الادخال والضغط عالزر سيتم الانتقال لسجل جديد جزاه الله خيرا الاخ @صلاح جبر Private Sub Command24_Click() Me.Child12.Form.Requery If Me.tob = 0 Then MsgBox "ادخل رقم السائق", vbCritical, "صلاح جبر" Me.Child12.SetFocus Else DoCmd.GoToRecord , , acNewRec End If End Sub تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

اخى الفاضل شوف هذا الرابط لعلك تجد به حل لمشكلتك http://arabteam2000-forum.com/index.php?/topic/230882-كود-الحفظ-لايعمل-بعد-تحويل-الجداول-الى-sql/#comment-1185255 واعتذر لك مره اخرى فلست سوى طالب علم ومازلت اتعلم معكم تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

وهذا التقرير مبنى على الاستعلام ان شاء الله يكون يلبى طلبك والاهم من هذا كله ان اكون افدتك بمعلومه نلاقى عليها دعوه خالصه من القلب تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق 16(1).accdb