كوماندير قام بنشر فبراير 27, 2015 مشاركة قام بنشر فبراير 27, 2015 السلام عليكم اخوتي الكرام بالمرفق في النموذج الفرعي BSubFrm اذا كان ItemNo لايساوي 8 او 9 يجب عدم ترك الحقل Result فارغا . اريد رسالة تنبهني غند ترك اي حقل Result فارغا عند خروجي من الفورم الفرعي BSubFrm وهذا المرفق : SomeItemsNill.rar رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر فبراير 27, 2015 مشاركة قام بنشر فبراير 27, 2015 أنت تريد عمل شروط على قيمة حقل مفتاح أساسى المفروض أصلا أنه غير قابل للتكرار رابط هذا التعليق شارك More sharing options...
كوماندير قام بنشر فبراير 27, 2015 الكاتب مشاركة قام بنشر فبراير 27, 2015 الاخ عبدالفتاح كيره وهو كذلك جرب وسترى انه غير قابل للتكرار بالنسبة لرقم ال طلب OrderID في النموذج الاب الثاني OrdersSubFrm جرب وسترى النتيجة رابط هذا التعليق شارك More sharing options...
سعيد صواب قام بنشر فبراير 27, 2015 مشاركة قام بنشر فبراير 27, 2015 المقصد هنا اخي كوماندير مالفائدة من عمل الشرط مادام الحقل لن يتكرر ؟؟ itemno لن يساوي 8 الا مره واحده وكذلك لن يساوي 9 الا مره واحده .. وذلك لأنه مفتاح اساسي بالتوفيق ان شاء الله . رابط هذا التعليق شارك More sharing options...
كوماندير قام بنشر فبراير 28, 2015 الكاتب مشاركة قام بنشر فبراير 28, 2015 اخي اخر الارض يبدو ان هناك خللا في شرحي للمشكلة : بالنسبه للحقل ItemNo لاعلاقة لنا به بخصوص التكرار المشكله اذا كانت قيمة هذا الحقل غير 8 او 9 اريد الزام المستخدم بعدم ترك الحقل Result فارغا ماعلاقة التكرار والمفتاح الاساسي بما ذكرنا ؟ رابط هذا التعليق شارك More sharing options...
rudwan قام بنشر مارس 1, 2015 مشاركة قام بنشر مارس 1, 2015 انسخ هذا الكود في الوحدة النمطية الخاصة بالنموذج Private Sub Form_BeforeUpdate(Cancel As Integer) If Me.ItemNo <> 9 And Me.ItemNo <> 8 And IsNull(Me.Result) Then MsgBox "You Should Post Result" Cancel = True End If End Sub 1 رابط هذا التعليق شارك More sharing options...
كوماندير قام بنشر مارس 1, 2015 الكاتب مشاركة قام بنشر مارس 1, 2015 اخي رضوان الف الف شكر مجهود تشكر عليه كثيرا وقد استخدمت الكود للعمل على حدث عند الخروج من النموذج الفرعي لان لدي بالحقيقة عدد من النماذج الفرعية Private Sub BSubFrm_Exit(Cancel As Integer) If Me!BSubFrm.Form!ItemNo <> 9 And Me!BSubFrm.Form!ItemNo <> 8 And IsNull(Me!BSubFrm.Form!Result) Then MsgBox "You Should Post Result" Cancel = True End If End Sub ان كان ذلك ممكنا المطلوب الان بعد ظهور الرسالة ان يتم وضع المؤشر على حقل Result على الصف الذي تم نسيانه فارغا ؟ رابط هذا التعليق شارك More sharing options...
rudwan قام بنشر مارس 1, 2015 مشاركة قام بنشر مارس 1, 2015 الافضل ان تبقي الكود الاول على مستوى النموذج الفرعي لأنه لديك أكثر من سجل في النموذج الفرعي فكيف سينقلك المؤشر الى كل السجلات التي تركتها فارغة واحدا بعد الاخر رابط هذا التعليق شارك More sharing options...
كوماندير قام بنشر مارس 1, 2015 الكاتب مشاركة قام بنشر مارس 1, 2015 الف الف شكر اخي رضوان وقد اضفت بعض الاضافات ياريت لو تلاحظها وتبدي رايك Private Sub Form_AfterUpdate() If Me.ItemNo <> 9 And Me.ItemNo <> 8 And IsNull(Me.Result) Then If MsgBox("You Should Post Result", vbMsgBoxRight + vbMsgBoxRtlReading + vbYesNo) = vbYes Then Cancel = True Else MsgBox "You Will Delete this item" DoCmd.SetWarnings False DoCmd.RunSQL "DELETE tblOrderDetils.ItemNo, tblOrderDetils.OrderNo, tblOrderDetils.Result " & vbCrLf & _ "FROM tblOrderDetils " & vbCrLf & _ "WHERE (((tblOrderDetils.ItemNo)=[Forms]![MainFrm]![OrdersSubFrm].[Form]![BSubFrm].[Form]![ItemNo]) AND ((tblOrderDetils.OrderNo)=[Forms]![MainFrm]![OrdersSubFrm].[Form]![BSubFrm].[Form]![OrderNo]) AND ((tblOrderDetils.Result) Is Null));" DoCmd.SetWarnings True Me.Requery End If Me.Result.SetFocus End If End Sub رابط هذا التعليق شارك More sharing options...
rudwan قام بنشر مارس 1, 2015 مشاركة قام بنشر مارس 1, 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.