wael_rafat قام بنشر مايو 10, 2015 مشاركة قام بنشر مايو 10, 2015 السلام عليكم ورحمة الله وبركاته السادة الافاضل مشرفي واعضاء منتدانا العظيم استفساري هو كود للبحث والتأكد من عدم خلو حقل الكمية لكل صنف في النموذج الفرعي بمعني عند الضغط علي رز الحفظ يقوم بالبحث فى سجلات النموذج الفرعي وعند وجود حقل كمية فارغ يقوم بانذاري بذلك وبالتالـي لا يقبل الحفظ مرفق صورة توضيحية والقاعدة . ولكم جزيل الشكر .,,, Test.rar 1 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 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 رابط هذا التعليق شارك More sharing options...
wael_rafat قام بنشر مايو 10, 2015 الكاتب مشاركة قام بنشر مايو 10, 2015 تسلم ايدك استاذي الفاضل ابو خليل تمام وبعد اذنك لو ممكن اضافة للكود وهو الانتقال الي الحقل الفارغ بعد التنبيــه وسامحني على الاطالة وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 10, 2015 مشاركة قام بنشر مايو 10, 2015 ما رأيك بشيء افضل من ذلك ؟ اختصار للاكواد وبدون بحث ودوارات انظر التعديل على مثالك وحاول ترك حقل العدد فارغا TestUp.rar 1 رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 10, 2015 مشاركة قام بنشر مايو 10, 2015 اضافة الى ما افادنا به اخى الكريم ابو خليل حفظه الله ومن وجهة نظرى انها امنه هى ان تاتى على الحقل المطلوب وتختار خصائص ثم مطلوب تختار نعم رابط هذا التعليق شارك More sharing options...
wael_rafat قام بنشر مايو 10, 2015 الكاتب مشاركة قام بنشر مايو 10, 2015 بارك الله فيكم اخواني الكرام الاستاذ ابو خليل والاستاذ مارد وجزاكم عنا كل خير رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 10, 2015 مشاركة قام بنشر مايو 10, 2015 ممكن الكود دا ينفع فى موضوع الحقل الفارغ علشان تذهب اليه If (Me.SubFormControl.Form.Recordset.RecordCount=0) then Me.SubFormControl.SetFocus End if الى ان يصحح لى الاخوة رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر مايو 10, 2015 مشاركة قام بنشر مايو 10, 2015 (معدل) تنبيه بوجود ثغرة : جرب ان تكتب في كود الصنف وبدون انتر انما انتقل بالماوس للسجل التالي مباشرة ! هنا شبيه لما طلبت بالتمام .. http://www.officena.net/ib/index.php?showtopic=61326 بالتوفيق تم تعديل مايو 10, 2015 بواسطه رمهان رابط هذا التعليق شارك More sharing options...
wael_rafat قام بنشر مايو 11, 2015 الكاتب مشاركة قام بنشر مايو 11, 2015 (معدل) يا سلام عليك استاذنا الجميل رمهان ولهذا السبب كان طلبي ولو بالامكان الانتقال الي الحقل الفارع بعد التنبيه اكون شاكرا لحضراتكم وجزاكم الله عنا كل خير تم تعديل مايو 11, 2015 بواسطه wael_rafat رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر مايو 11, 2015 مشاركة قام بنشر مايو 11, 2015 اخي وائل ضع هذا السطر قبل التحديث للنموذج الفرعي Private Sub Form_BeforeUpdate(cancel As Integer) If IsNull(Qty) Then cancel = MsgBox("ادخل الكمية") End Sub بلتوفيق رابط هذا التعليق شارك More sharing options...
راعي الغنم قام بنشر مايو 12, 2015 مشاركة قام بنشر مايو 12, 2015 اضافة الى ما افادنا به اخى الكريم ابو خليل حفظه الله ومن وجهة نظرى انها امنه هى ان تاتى على الحقل المطلوب وتختار خصائص ثم مطلوب تختار نعم اضافة الى ماذكرت حضرتك يجعل القيمة الافتراضية صفر اذا مايشتي يدخل قيم يدوية.. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.