[ تمت الإجابة ]خطاء اذا لم اضع رقم

up

أحد الحلول هو أن تلغي عملية الحفظ إذا لم تكن جميع المعلومات متوفرة مثلا :

if textBox1.Text = "" Then
MsgBox("المرجو إدخال المعلومة كذا")
textBox1.Focus()
Return
End If

الحل الأمثل هو الإشتراك في الحدت Validating و إلغاء المرور إلى مربع آخر حتى إدخال المعلومة هذا إذا كانت مهمة لدرجة فشل الحفظ في حالة تجاهلها.

 Dim con As Control
		For Each con In Me.Controls
			If TypeOf con Is TextBox Then
				If DirectCast(con, TextBox).Text = "" Then
					MsgBox("empty")
					Exit Sub
					Return
				End If
			End If
		Next

هذا كود يلف على كل الكنترول من نوع textbox أو أي كنترول أنت تحده فإذا كانت فاضية تلقائياً يلغي الاجراء ويبعث رسالة انها فاضية واذا كانت ممتلئه يقوم بعملية الحفظ او التعديل أو البحث إلى غير ذلك ولكن هناك نقطة مهمة وهي انك يجب ان يكون في اول الاجراء قبل كل شئ تعمل مسج بوكس رسالة عند ضغط الزر يخبر المستخدم هل تريد الحفظ مثلاً لانه يمكن يضغط بالغلط وهذا يحصل كثير ومن ثم الكود السابق وشكراً

جزاك الله كل خير اخوي محمد رضى

تم حل المشكله

الله ينور دربك يالساهر

الكود الاول اسهل :)

الله يطول بعمرك في طاعته

اخي hob_000

حل الاخ الساهر 24 احسن و عملي اكثر