عدم ترك حقل فارغا بشرط في الصف

[كوماندير]

السلام عليكم

 

اخوتي الكرام بالمرفق

 

في النموذج الفرعي BSubFrm

 

اذا كان ItemNo  لايساوي 8  او  9  يجب عدم ترك الحقل Result فارغا .

 

اريد رسالة تنبهني غند ترك اي حقل Result  فارغا عند خروجي من الفورم الفرعي BSubFrm

 

وهذا المرفق :

 

SomeItemsNill.rar

[عبد الفتاح كيرة]

أنت تريد عمل شروط على قيمة حقل مفتاح أساسى

المفروض أصلا أنه غير قابل للتكرار

[كوماندير]

الاخ عبدالفتاح كيره

 

وهو كذلك جرب وسترى انه غير قابل للتكرار بالنسبة لرقم ال طلب OrderID  في النموذج الاب الثاني OrdersSubFrm

 

جرب وسترى النتيجة 

[سعيد صواب]

المقصد هنا اخي كوماندير 

 

مالفائدة من عمل الشرط مادام الحقل لن يتكرر ؟؟

 

itemno  لن يساوي 8 الا مره واحده وكذلك لن يساوي 9 الا مره واحده ..

 

وذلك لأنه مفتاح اساسي 

 

بالتوفيق ان شاء الله .

[كوماندير]

 اخي اخر الارض

 

يبدو ان هناك خللا في شرحي للمشكلة :

 

بالنسبه للحقل ItemNo  لاعلاقة لنا به بخصوص التكرار

المشكله اذا كانت قيمة هذا الحقل غير 8 او 9 اريد الزام المستخدم بعدم ترك الحقل Result فارغا

 

ماعلاقة التكرار والمفتاح الاساسي بما ذكرنا ؟

[rudwan]

انسخ هذا الكود في الوحدة النمطية الخاصة بالنموذج

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

[كوماندير]

 اخي رضوان

 

الف الف شكر

 

مجهود تشكر عليه كثيرا

 

وقد استخدمت الكود للعمل على حدث عند الخروج من النموذج الفرعي لان لدي بالحقيقة عدد من النماذج الفرعية

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 على الصف الذي تم نسيانه فارغا ؟

[rudwan]

الافضل ان تبقي الكود الاول على مستوى النموذج الفرعي

لأنه لديك أكثر من سجل في النموذج الفرعي

فكيف سينقلك المؤشر الى كل السجلات التي تركتها فارغة واحدا بعد الاخر

[كوماندير]

الف الف شكر اخي رضوان

 

وقد اضفت بعض الاضافات ياريت لو تلاحظها وتبدي رايك

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

[rudwan]

الكود يعمل في حدث قبل التعديل و ليس بعد التعديل