10-04-14, 08:45 AM
10-04-14, 09:13 PM
جربت ونفس الشي
12-04-14, 03:13 AM
السلام عليكم
المشكلة احتمال ان يكون سببها كالآتي :
مثلا عند انشاء متغير بهذه الطريقة
ايضا عند انشاء متغير بهذه الطريقة
عند النظر الى هذه الاكواد قد يقول شخص ما انها مختلفة
لكن الحقيقة غير ذلك , عند استخدام الاجراءات procedure فان الاجراء في هذه الحالة يعتبر cmd و CMD هو متغير واحد
لكي تتجنب هذا الخطأ عليك تغيير جميع اسماء المتغيرات المتشابهه مثلا cmd ,CMD ,cmd1,CMD1 باسماء مختلفة
قد يكون هذا هو سبب المشكلة.
والله وحده اعلم.
المشكلة احتمال ان يكون سببها كالآتي :
مثلا عند انشاء متغير بهذه الطريقة
PHP كود :
Dim CMD As New OleDbCommand
ايضا عند انشاء متغير بهذه الطريقة
PHP كود :
Dim cmd As New OleDbCommand
عند النظر الى هذه الاكواد قد يقول شخص ما انها مختلفة
لكن الحقيقة غير ذلك , عند استخدام الاجراءات procedure فان الاجراء في هذه الحالة يعتبر cmd و CMD هو متغير واحد
لكي تتجنب هذا الخطأ عليك تغيير جميع اسماء المتغيرات المتشابهه مثلا cmd ,CMD ,cmd1,CMD1 باسماء مختلفة
قد يكون هذا هو سبب المشكلة.
والله وحده اعلم.
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