02-06-14, 10:53 AM
.....
المشكلة أنه يوجد شرط If الخاص ب (كود التحقق من المدخل عدد صحيح) يمنع من وصول التنفيذ إليه
بسبب وضع Exit Sub في الحالة Then وأيضاً في نهاية الحالة Else وأيضاً وجود Return الذي سيخرج التنفيذ قبل Exit Sub الثانية
الخلاصة سيتم الخروج من الإجراء قبل السطر Dim cmd As New OleDbCommand وأصبح ما بعد End If بلا فائدة وبالتالي يعتبرها المعالج غير مستخدمة
وهذا كود If المتسبب بالمشكلة مع مشاهدة الكود في الرد رقم #7 لتتضح الصورة
المشكلة أنه يوجد شرط If الخاص ب (كود التحقق من المدخل عدد صحيح) يمنع من وصول التنفيذ إليه
بسبب وضع Exit Sub في الحالة Then وأيضاً في نهاية الحالة Else وأيضاً وجود Return الذي سيخرج التنفيذ قبل Exit Sub الثانية
الخلاصة سيتم الخروج من الإجراء قبل السطر Dim cmd As New OleDbCommand وأصبح ما بعد End If بلا فائدة وبالتالي يعتبرها المعالج غير مستخدمة
وهذا كود If المتسبب بالمشكلة مع مشاهدة الكود في الرد رقم #7 لتتضح الصورة
كود :
'كود التحقق من المدخل عدد صحيح
If IsNumeric(txtCRN.Text) Then
Exit Sub '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Else
Dim Msg As String = "رقم السجل المدني يجب أن يكون عددا صحيحا"
MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
txtCRN.Text = ""
txtCRN.Focus()
txtCRN.SelectionStart = 0
Return '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Exit Sub '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
End If


