النجاشي

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

لقد وجدت هذا الكود وحطيته عند الغاء التحميل شكل العمليه ظبطت ممكن شرح للكود Dim Q As Recordset Set Q = CurrentDb.OpenRecordset("SELECT * from AfwtIar;") While Not Q.EOF If Q!Xsave = False Then Q.Delete End If Q.MoveNext Wend

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

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

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

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

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

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

للرفع

استاذي ابو ياسين الله يعطيك العافيه الف شكر وتحيه وتقدير اليك من زر الرجوع صار تمام بقي معنا كذا عند الخروج من الاكس (X) براس النموذج نكون خلصنا من هذا الموضوع ولاننسا ان نقدم لاستاذنا الحبيب @jjafferr الف تحيه وشكر وتقدير

بقت معي ذي المشكله موضحه بالصوره عندما يكون في اصناف بالفاتوره واعمل خروج من الاكس او زر رجوع تظهر رساله فهل لها علاج نهائي علما بانه عند فتح النموذج واغلاقه طبيعي ما تظهر رساله المشكله بعد ما ادرج اصناف بالفاتوره واجي اعمل اغلاق او رجوع تظهر الرساله نرجو العمل علي هذه القاعده لاننا عدلت فيها شاكرين مقدرين تحياتي احبتي 3211.rar

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

الحمدلله استاذي كما قلت السطر الاول فوق الاحداث هو الفايده كان نسخته بالغلط الحمدلله تم النسخ واليكم القاعده للفايده 89888.rar

حاولت اطبق بالسطر الذي فوق جميع الاحداث ولم استطيع القي نظره للقاعده الجديد بالمشاركه المعدله951.rar

السلام عليكم استاذي @jjafferr ربي يحفظك نقلت الاكواد لنموذجي الاساسي واشتغلت الرساله في حاله يكون الرقم خطاء تمام اما في حاله اذا خرجت من رقم الصنف وهو فارغ وظغت انتر ينتقل الموشر و لم تشتغل الرساله رغم ان الكود بالنموذج الذي عملت عليه شغال مايه في المايه فاين المشكله رغم اننا نسخت الكود كامل تحياتي اليك 951.rar

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

السام عليكم استاذي @jjafferr الله يعطيك الصحه والعافيه كيف نتخلص من هذا الرسايل عندما اعمل اغلاق للنموذج من الاكس تحياتي حبيبنا جعفر رساله بثلاث شرزط بنموج الاضافه.rar

بارك الله فيك وزادك الله علما تسلم يديك ابو الجعافر حلو جدا الله يعطيك العافيه الف تحيه اليك

استاذي @jjafferr الله يعطيك الصحه ما قدرت اوصل لحل عملت الاتي ما دريت اين الغلط Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = 13 Or KeyCode = 108 If IsNull(Me![Rajmsanf]) Then MsgBox "قوم بادخل الرقم الحقل فارغ ." Cancel = True Me.Rajmsanf.Undo End If End Sub

جاري العمل استاذي الله يبارك فيك

السلام عليكم ورحمه الله وبركاته احبتي الكرام اريد ظهور الاتي 1- اذا كان رقم الصنف غير صحيح يعطينا رساله( تاكد من الرقم الصحيح )ويرجع التركيز لنفس حقل رقم الصنف 2- اذا كان رقم الصنف فارغ وضغظت زر انتر يعطينا رساله (قوم بادخال رقم الصنف) ويرجع التركيز لنفس حقل رقم الصنف شاكرين لكم احبتي الكرام مع جزيل الشكر تحياتي 147.rar

شكر اليك استاذي ابو ياسين الله يعطيك العافيه

وعليكم السلام انظر الي هذا الرابط راح تجد طلبك باذن اللهhttps://www.officena.net/ib/applications/core/interface/file/attachment.php?id=134516

التعديل الاخير الكميه والصافي مع جزيل الشكر لاستاذ ابو ياسين والاستاذ جعفر اخرجونا من مازق كبير في الفاتوره ربنا يبارك فيكم تحياتي 1599.rar

بميزان حسناتك ربنا يعطيك الصحه استاذنا ابو خليل