wael_rafat قام بنشر مايو 10, 2015 قام بنشر مايو 10, 2015 السلام عليكم ورحمة الله وبركاته السادة الافاضل مشرفي واعضاء منتدانا العظيم استفساري هو كود للبحث والتأكد من عدم خلو حقل الكمية لكل صنف في النموذج الفرعي بمعني عند الضغط علي رز الحفظ يقوم بالبحث فى سجلات النموذج الفرعي وعند وجود حقل كمية فارغ يقوم بانذاري بذلك وبالتالـي لا يقبل الحفظ مرفق صورة توضيحية والقاعدة . ولكم جزيل الشكر .,,, Test.rar 1
ابوخليل قام بنشر مايو 10, 2015 قام بنشر مايو 10, 2015 الصق هذه الجملة في حدث النقر للزر في النموذج الرئيسي Dim rs As Recordset Set rs = Me.F_ordersubform.Form.RecordsetClone rs.MoveLast R = rs.RecordCount rs.MoveFirst For i = 1 To R If IsNull(rs!Qty) Then MsgBox "اكتب العدد" Exit Sub End If rs.MoveNext Next rs.close Set rs = Nothing 1
wael_rafat قام بنشر مايو 10, 2015 الكاتب قام بنشر مايو 10, 2015 تسلم ايدك استاذي الفاضل ابو خليل تمام وبعد اذنك لو ممكن اضافة للكود وهو الانتقال الي الحقل الفارغ بعد التنبيــه وسامحني على الاطالة وجزاك الله كل خير
ابوخليل قام بنشر مايو 10, 2015 قام بنشر مايو 10, 2015 ما رأيك بشيء افضل من ذلك ؟ اختصار للاكواد وبدون بحث ودوارات انظر التعديل على مثالك وحاول ترك حقل العدد فارغا TestUp.rar 1
Elsayed Bn Gemy قام بنشر مايو 10, 2015 قام بنشر مايو 10, 2015 اضافة الى ما افادنا به اخى الكريم ابو خليل حفظه الله ومن وجهة نظرى انها امنه هى ان تاتى على الحقل المطلوب وتختار خصائص ثم مطلوب تختار نعم
wael_rafat قام بنشر مايو 10, 2015 الكاتب قام بنشر مايو 10, 2015 بارك الله فيكم اخواني الكرام الاستاذ ابو خليل والاستاذ مارد وجزاكم عنا كل خير
Elsayed Bn Gemy قام بنشر مايو 10, 2015 قام بنشر مايو 10, 2015 ممكن الكود دا ينفع فى موضوع الحقل الفارغ علشان تذهب اليه If (Me.SubFormControl.Form.Recordset.RecordCount=0) then Me.SubFormControl.SetFocus End if الى ان يصحح لى الاخوة
Elsayed Bn Gemy قام بنشر مايو 10, 2015 قام بنشر مايو 10, 2015 الصق هذه الجملة في حدث النقر للزر في النموذج الرئيسي Dim rs As Recordset Set rs = Me.F_ordersubform.Form.RecordsetClone rs.MoveLast R = rs.RecordCount rs.MoveFirst For i = 1 To R If IsNull(rs!Qty) Then MsgBox "اكتب العدد" Exit Sub End If rs.MoveNext Next rs.close Set rs = Nothing اضافة الى اخى الكريم ابو خليل حفظه الله هو ان تضيف هذا الكود لمعرفة الحقول الفارغة Dim rs As Recordset Set rs = Me.F_ordersubform.Form.RecordsetClone rs.MoveLast R = rs.RecordCount rs.MoveFirst For i = 1 To R If IsNull(rs!Qty) Then Me.F_ordersubform.Form.Filter = "Qty IS NULL" Exit Sub End If rs.MoveNext Next rs.close Set rs = Nothing
رمهان قام بنشر مايو 10, 2015 قام بنشر مايو 10, 2015 (معدل) تنبيه بوجود ثغرة : جرب ان تكتب في كود الصنف وبدون انتر انما انتقل بالماوس للسجل التالي مباشرة ! هنا شبيه لما طلبت بالتمام .. http://www.officena.net/ib/index.php?showtopic=61326 بالتوفيق تم تعديل مايو 10, 2015 بواسطه رمهان
wael_rafat قام بنشر مايو 11, 2015 الكاتب قام بنشر مايو 11, 2015 (معدل) يا سلام عليك استاذنا الجميل رمهان ولهذا السبب كان طلبي ولو بالامكان الانتقال الي الحقل الفارع بعد التنبيه اكون شاكرا لحضراتكم وجزاكم الله عنا كل خير تم تعديل مايو 11, 2015 بواسطه wael_rafat
رمهان قام بنشر مايو 11, 2015 قام بنشر مايو 11, 2015 اخي وائل ضع هذا السطر قبل التحديث للنموذج الفرعي Private Sub Form_BeforeUpdate(cancel As Integer) If IsNull(Qty) Then cancel = MsgBox("ادخل الكمية") End Sub بلتوفيق
راعي الغنم قام بنشر مايو 12, 2015 قام بنشر مايو 12, 2015 اضافة الى ما افادنا به اخى الكريم ابو خليل حفظه الله ومن وجهة نظرى انها امنه هى ان تاتى على الحقل المطلوب وتختار خصائص ثم مطلوب تختار نعم اضافة الى ماذكرت حضرتك يجعل القيمة الافتراضية صفر اذا مايشتي يدخل قيم يدوية..
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.