[ تمت الإجابة ]عدم ترك عدة حقول فارغه ولايقبل الحفظ إلا يتعبئتها باستخدام الكود

تفضل اخي الكريم عزيز

حاول تترك احد الحقول فارغا في السجل وانظر ماذا يحدث

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

وايضا حاول تدخل بعض القيم في الحقول وتترك بعض القيم وقم بإغلاق النموذج وانظر ماذا يحدث

في كل الأحوال لا يمكن ترك اي حقل فارغ من الحقول المطلوبه إلا وتقوم بتعبئته وعدى ذلك سيتم حذف السجل كاملا وحتى لو كان به حقل واحد فارغ

za_AZIZ_UP.rar

بارك الله فيك وجزاك الله خير اختي الكريمه زهره

فعلا هذا اهو المطلوب

الله يحفظك ويعطيك الصحه والعافيه يااخت زهره

شكرا شكرا شكرا لك

احترامي وتقديري

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

السلام عليكم وحمة الله وبركاته

المعذره اختي الكريمه زهره

حصل عندي اشكال لم اجدله حل

وهو

اني جعلت حقل الجهة مربع سرد ةتحرير

وايضا حقل نوع الصرف مربع سرد وتحرير

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

اما بقيه الحقول تظهر الرساله في حالة عدم وجود بيانات فيها وماشيه تمام

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

ارجوا الافاده اختي الكريمه

بارك الله فيك وجزاك الله خير ونفع الله بعلمك

احترامي وتقديري

za_AZIZ_UP.rar

اخي الفاضل عزيز

كانت جميع الحقول هي مربعات نص acTextBox وقمت انت بإضافة مربعات تحرير وسرد acComboBox اذن لابد من اضافتها الى الكود بهذه الطريقة

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim ctl As Control
	 For Each ctl In Form.Controls
	 If ctl.ControlType = acTextBox And ctl.Tag <> "zahrah" Or acComboBox And ctl.Tag <> "zahrah" Then
		If IsNull(ctl) Then
		MsgBox "لقد تركت حقل  " & ctl.Tag & "  فارغا"
		ctl.SetFocus
		End If
	 End If
	 Next ctl

End Sub

za_AZIZ_UP2.rar

أخي الغالي

ملحوظة بسيطة

وبعد اذن الاخت الغالية زهرة

اذا حاولت تحميل مجلة قسم الاكسس الاصدار الثالث (آخر اصدار) لوجدت اجابتك بداخلها بالحرف الواحد

بارك الله فيك وجزاك الله خير اختي الكريمه زهره

اشكرك الله يعطيك الصحة والعافيه ماقصرتي

وشكرا لك اخي الكريم محمد

لم انتبه لما ذكرت رغم اني قرات المجله كامله

شكرا لكم جميعا

احترامي وتقديري