النجاشي قام بنشر ديسمبر 16, 2017 قام بنشر ديسمبر 16, 2017 السلام عليكم ورحمه الله وبركاته احبتي الكرام اريد ظهور الاتي 1- اذا كان رقم الصنف غير صحيح يعطينا رساله( تاكد من الرقم الصحيح )ويرجع التركيز لنفس حقل رقم الصنف 2- اذا كان رقم الصنف فارغ وضغظت زر انتر يعطينا رساله (قوم بادخال رقم الصنف) ويرجع التركيز لنفس حقل رقم الصنف شاكرين لكم احبتي الكرام مع جزيل الشكر تحياتي 147.rar
jjafferr قام بنشر ديسمبر 16, 2017 قام بنشر ديسمبر 16, 2017 وعليكم السلام 1. راجع الرابط هذا لإصطياد رقم الخطأ ، ثم بعد الحصول على الخطأ ، مشاركتي التالية تخبرك كيف تعمل رسالة الخطأ الخاصة بك . 2. مثل ما عملت في النموذج في الضغط على F2 ، اعمل نفس الشيء في النموذج الآخر ، والرقم الذي تريد هو: keycode=13 or keycode=108 جعفر 1
النجاشي قام بنشر ديسمبر 16, 2017 الكاتب قام بنشر ديسمبر 16, 2017 4 دقائق مضت, jjafferr said: وعليكم السلام 1. راجع الرابط هذا لإصطياد رقم الخطأ ، ثم بعد الحصول على الخطأ ، مشاركتي التالية تخبرك كيف تعمل رسالة الخطأ الخاصة بك . 2. مثل ما عملت في النموذج في الضغط على F2 ، اعمل نفس الشيء في النموذج الآخر ، والرقم الذي تريد هو: keycode=13 or keycode=108 جعفر جاري العمل استاذي الله يبارك فيك
النجاشي قام بنشر ديسمبر 16, 2017 الكاتب قام بنشر ديسمبر 16, 2017 (معدل) استاذي @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 تم تعديل ديسمبر 16, 2017 بواسطه ابو زاهر
jjafferr قام بنشر ديسمبر 16, 2017 قام بنشر ديسمبر 16, 2017 تفضل Option Compare Database Dim Ky As Integer Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Ky = KeyCode End Sub Private Sub Rajmsanf_LostFocus() Dim Rs As DAO.Recordset Set Rs = CurrentDb.OpenRecordset("select * from Alsnaf where Rajmsanf = '" & Me.Rajmsanf & "'") If Rs.recordcount > 0 Then Alwsf = Rs!Alwsf Sanf = Rs!Sanf ID_Sanf = Rs!ID_Sanf Albdil = Rs!Albdil Price_Sales = Rs!Price_Sales Else If Len(Me.Rajmsanf & "") = 0 And (Ky = 13 Or Ky = 9) Then MsgBox "عفوا يجب ادخال رقم" Me.Alkmiah.SetFocus Me.Rajmsanf.SetFocus ElseIf Len(Me.Rajmsanf & "") <> 0 Then MsgBox "عفوا هذا الرقم غير صحيح" Me.Alkmiah.SetFocus Me.Rajmsanf.SetFocus End If End If Ky = 0 Rs.Close: Set Rs = Nothing End Sub جعفر 807.147.mdb.zip 1
النجاشي قام بنشر ديسمبر 16, 2017 الكاتب قام بنشر ديسمبر 16, 2017 5 دقائق مضت, jjafferr said: تفضل Option Compare Database Dim Ky As Integer Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Ky = KeyCode End Sub Private Sub Rajmsanf_LostFocus() Dim Rs As DAO.Recordset Set Rs = CurrentDb.OpenRecordset("select * from Alsnaf where Rajmsanf = '" & Me.Rajmsanf & "'") If Rs.recordcount > 0 Then Alwsf = Rs!Alwsf Sanf = Rs!Sanf ID_Sanf = Rs!ID_Sanf Albdil = Rs!Albdil Price_Sales = Rs!Price_Sales Else If Len(Me.Rajmsanf & "") = 0 And (Ky = 13 Or Ky = 9) Then MsgBox "عفوا يجب ادخال رقم" Me.Alkmiah.SetFocus Me.Rajmsanf.SetFocus ElseIf Len(Me.Rajmsanf & "") <> 0 Then MsgBox "عفوا هذا الرقم غير صحيح" Me.Alkmiah.SetFocus Me.Rajmsanf.SetFocus End If End If Ky = 0 Rs.Close: Set Rs = Nothing End Sub جعفر 807.147.mdb.zip بارك الله فيك وزادك الله علما تسلم يديك ابو الجعافر حلو جدا الله يعطيك العافيه الف تحيه اليك
النجاشي قام بنشر ديسمبر 17, 2017 الكاتب قام بنشر ديسمبر 17, 2017 السام عليكم استاذي @jjafferr الله يعطيك الصحه والعافيه كيف نتخلص من هذا الرسايل عندما اعمل اغلاق للنموذج من الاكس تحياتي حبيبنا جعفر رساله بثلاث شرزط بنموج الاضافه.rar
jjafferr قام بنشر ديسمبر 17, 2017 قام بنشر ديسمبر 17, 2017 وعليكم السلام اخي وضاح في الصورة الاولى ، الظاهر انك واضع شرط في الجدول ان لا يحفظ السجل بدون ذلك الحقل ، جعفر 1
النجاشي قام بنشر ديسمبر 17, 2017 الكاتب قام بنشر ديسمبر 17, 2017 2 ساعات مضت, jjafferr said: وعليكم السلام اخي وضاح في الصورة الاولى ، الظاهر انك واضع شرط في الجدول ان لا يحفظ السجل بدون ذلك الحقل ، جعفر السلام عليكم استاذي جعفر اسال الله ان يوفقك بجميع اعمالك ويعطيك الصحه والعافيه نعم كما قلت كانت المشكله في الجدول الله يسعدك تحياتي اليك يابو الجعافر
النجاشي قام بنشر ديسمبر 17, 2017 الكاتب قام بنشر ديسمبر 17, 2017 (معدل) السلام عليكم استاذي @jjafferr ربي يحفظك نقلت الاكواد لنموذجي الاساسي واشتغلت الرساله في حاله يكون الرقم خطاء تمام اما في حاله اذا خرجت من رقم الصنف وهو فارغ وظغت انتر ينتقل الموشر و لم تشتغل الرساله رغم ان الكود بالنموذج الذي عملت عليه شغال مايه في المايه فاين المشكله رغم اننا نسخت الكود كامل تحياتي اليك 951.rar تم تعديل ديسمبر 17, 2017 بواسطه ابو زاهر
jjafferr قام بنشر ديسمبر 17, 2017 قام بنشر ديسمبر 17, 2017 هذه الاسطر مافيها فائدة بدون السطر اللي فوقها ، اللي فوق جميع الاحداث 1
النجاشي قام بنشر ديسمبر 17, 2017 الكاتب قام بنشر ديسمبر 17, 2017 2 دقائق مضت, jjafferr said: هذه الاسطر مافيها فائدة بدون السطر اللي فوقها ، اللي فوق جميع الاحداث 2 دقائق مضت, jjafferr said: هذه الاسطر مافيها فائدة بدون السطر اللي فوقها ، اللي فوق جميع الاحداث 18 دقائق مضت, ابو زاهر said: السلام عليكم استاذي @jjafferr ربي يحفظك نقلت الاكواد لنموذجي الاساسي واشتغلت الرساله في حاله يكون الرقم خطاء تمام اما في حاله اذا خرجت من رقم الصنف وهو فارغ وظغت انتر ينتقل الموشر و لم تشتغل الرساله رغم ان الكود بالنموذج الذي عملت عليه شغال مايه في المايه فاين المشكله رغم اننا نسخت الكود كامل تحياتي اليك 951.rar حاولت اطبق بالسطر الذي فوق جميع الاحداث ولم استطيع القي نظره للقاعده الجديد بالمشاركه المعدله951.rar
النجاشي قام بنشر ديسمبر 17, 2017 الكاتب قام بنشر ديسمبر 17, 2017 الحمدلله استاذي كما قلت السطر الاول فوق الاحداث هو الفايده كان نسخته بالغلط الحمدلله تم النسخ واليكم القاعده للفايده 89888.rar
ابو ياسين المشولي قام بنشر ديسمبر 17, 2017 قام بنشر ديسمبر 17, 2017 كلام الاخ جعفر صحيح انظر 951.rar 1
النجاشي قام بنشر ديسمبر 17, 2017 الكاتب قام بنشر ديسمبر 17, 2017 49 دقائق مضت, مرشدعلي said: كلام الاخ جعفر صحيح انظر 951.rar الله يجزيك خير استاذي ابو ياسين انت والاستاذ جعفر ربنا يعطيكم الصحه ولكن بقي ملاحظه بسيطه بعد اصلاح الشرط بالجدول بشان رساله الاكسس الذي كلمنا عليه الاستاذ جعفر برفعه اليكم بعد شويه
النجاشي قام بنشر ديسمبر 17, 2017 الكاتب قام بنشر ديسمبر 17, 2017 بقت معي ذي المشكله موضحه بالصوره عندما يكون في اصناف بالفاتوره واعمل خروج من الاكس او زر رجوع تظهر رساله فهل لها علاج نهائي علما بانه عند فتح النموذج واغلاقه طبيعي ما تظهر رساله المشكله بعد ما ادرج اصناف بالفاتوره واجي اعمل اغلاق او رجوع تظهر الرساله نرجو العمل علي هذه القاعده لاننا عدلت فيها شاكرين مقدرين تحياتي احبتي 3211.rar
ابو ياسين المشولي قام بنشر ديسمبر 17, 2017 قام بنشر ديسمبر 17, 2017 اتفضل اخي ابو زاهر عند الخروج بدون رساله اتمنا ان يكون المطلوب 3211.rar
النجاشي قام بنشر ديسمبر 17, 2017 الكاتب قام بنشر ديسمبر 17, 2017 12 دقائق مضت, مرشدعلي said: اتفضل اخي ابو زاهر عند الخروج بدون رساله اتمنا ان يكون المطلوب 3211.rar استاذي ابو ياسين الله يعطيك العافيه الف شكر وتحيه وتقدير اليك من زر الرجوع صار تمام بقي معنا كذا عند الخروج من الاكس (X) براس النموذج نكون خلصنا من هذا الموضوع ولاننسا ان نقدم لاستاذنا الحبيب @jjafferr الف تحيه وشكر وتقدير 1
النجاشي قام بنشر ديسمبر 18, 2017 الكاتب قام بنشر ديسمبر 18, 2017 في ١٧/١٢/٢٠١٧ at 13:39, ابو زاهر said: استاذي ابو ياسين الله يعطيك العافيه الف شكر وتحيه وتقدير اليك من زر الرجوع صار تمام بقي معنا كذا عند الخروج من الاكس (X) براس النموذج نكون خلصنا من هذا الموضوع ولاننسا ان نقدم لاستاذنا الحبيب @jjafferr الف تحيه وشكر وتقدير للرفع
jjafferr قام بنشر ديسمبر 18, 2017 قام بنشر ديسمبر 18, 2017 17 ساعات مضت, ابو زاهر said: بقت معي ذي المشكله موضحه بالصوره عندما يكون في اصناف بالفاتوره واعمل خروج من الاكس او زر رجوع تظهر رساله 3211.rar انا استعملت هذا المرفق ، واضفت قيم للنموذج الفرعي ، ثم استعملت زر "خروج" واستعملت زر x لخروج من النموذج ، وفي كلتا الحالتين لم احصل على رسالة خطأ!! اخبرني خطوات الحصول على الخطأ لوسمحت جعفر
النجاشي قام بنشر ديسمبر 18, 2017 الكاتب قام بنشر ديسمبر 18, 2017 (معدل) 37 دقائق مضت, jjafferr said: انا استعملت هذا المرفق ، واضفت قيم للنموذج الفرعي ، ثم استعملت زر "خروج" واستعملت زر x لخروج من النموذج ، وفي كلتا الحالتين لم احصل على رسالة خطأ!! اخبرني خطوات الحصول على الخطأ لوسمحت جعفر انظر للصوره استاذي بعد ادارج القيم بالنموذج الفرعي واريد اخرج من الاكس تظهر الرساله عفو يجب ادخال الرقم انا اريد عند الخروج من الاكس او زر الرجوع لات ظهر هذا الرساله فانت ممكن عملت خروج وموجود قيم بنموذج الاضافه اسمه frmEdrajSenf يكون يخرج طبيعي لكن اذا ادرجت صنف للنموذج الفرعي وعملت خروج بعد الادارج للصنف ستظهر لك الرساله تحياتي اليك تم تعديل ديسمبر 18, 2017 بواسطه ابو زاهر
ابو ياسين المشولي قام بنشر ديسمبر 18, 2017 قام بنشر ديسمبر 18, 2017 اتمنا يكون المطلوب والحل هو تبع الاخ جعفر فقط انا سويت في حدث عند الخروج من الادراج ky=0 3211.rar 1
النجاشي قام بنشر ديسمبر 18, 2017 الكاتب قام بنشر ديسمبر 18, 2017 54 دقائق مضت, مرشدعلي said: اتمنا يكون المطلوب والحل هو تبع الاخ جعفر فقط انا سويت في حدث عند الخروج من الادراج ky=0 3211.rar السلام عليكم استاذي ابو ياسين الله يعطيك العافيه نعم هو المطلوب والاستاذ@jjafferr ابو الجعافر ربنا يعطيه الصحه استاذنا وحبيبنا دوما وهو في المواقف الصعيبه الله لا يحرمنا من لمساته و اسميه بعالم الاكسس صراحه مع شهاده شكر تقدير رغم اني عانيت من هذا الموضوع قبل فتره ولم نوصل لحل فجزاه الله خير الجزاء باذن الله نصير زي استاذنا جعفر والعيب منا كمبتدي عندما لا استطيع اوصل السوال بطريقه علميه الف تحيه للاستاذ جعر والف تحيه اليك استاذ ابو ياسين الله يجزيكم كل خير 1
jjafferr قام بنشر ديسمبر 18, 2017 قام بنشر ديسمبر 18, 2017 السلام عليكم شكرا أخي مرشد على المساعدة كان المفروض اعمل الشرح للكود ، علشان يكون واضح عمله ، واللي منه اخوي مرشد فهم بيت القصيد ، واستعمله: 'مؤقتا احفظ هذا المتغير في الذاكرة Dim Ky As Integer 'كلما نضغط على اي زر ، اريد حفظه مؤقتا للحدث التالي Ky = KeyCode 'اذا الصنف فارغ ، والزر الذي تم الضغط عليه هو 'Enter او TAB 'فقم بالكود التالي If Len(Me.Rajmsanf & "") = 0 And (Ky = 13 Or Ky = 9) Then 'احذف معلومات آخر زر تم الضغط عليه Ky = 0 . جعفر 2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.