الاخوه الكرام / جزاكم الله خيرا على ما تقدمونه من معلومات للمبتدئين في الاكسس ولي عندكم طلب برجاء المساعدة لتعديل هذا الكود
If IsNull(Me.Text1) Then
If MsgBox("عفواً هل تريد ترك هذا الحقل1 فارغا؟ ", vbExclamation + vbMsgBoxRight + vbYesNo, "تنبيه") = vbNo Then
Me.Text1.SetFocus
Else
If IsNull(Me.Text2) Then
If MsgBox("عفواً هل تريد الحقل2 فارغا ؟", vbExclamation + vbMsgBoxRight + vbYesNo, "تنبيه") = vbNo Then
Me. Text2.SetFocus
End If
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.GoToRecord , , acNext
هذا الكود عند تنفيذه يعطي رسالة لا / نعم
بالضغط على (نعم) ينتقل لتنفيذ الكود الثاني ويسأل هل تريد الحقل2 فارغا وبالضغط على نعم ينتقل إلى السجل التالي مباشرة .
أما عند الضغط على (لا) فإنه يترك الحقل1 فارغا وينتقل إلى السجل التالي مباشرة
المطلوب : بالضغط على نعم يقوم بنفس العمل ، ولكن عند الضغط على لا المطلوب ينتقل الى الحقل1 ولا ينتقل الى السجل التالي فهل يمكن فعل هذا وجزاكم الله خيرا