[abulayth]

السلام عليكم

جرب ان تستخدم متغير غير cmd لان الكلمة ممكن ان تكون محجوزة

يعطيك العافية

[bumb]

جربت ونفس الشي

[Adrees]

السلام عليكم
المشكلة احتمال ان يكون سببها كالآتي :
مثلا عند انشاء متغير بهذه الطريقة

PHP كود :

Dim CMD As New OleDbCommand 


ايضا عند انشاء متغير بهذه الطريقة

PHP كود :

Dim cmd As New OleDbCommand 


عند النظر الى هذه الاكواد قد يقول شخص ما انها مختلفة
لكن الحقيقة غير ذلك , عند استخدام الاجراءات procedure فان الاجراء في هذه الحالة يعتبر cmd و CMD هو متغير واحد

لكي تتجنب هذا الخطأ عليك تغيير جميع اسماء المتغيرات المتشابهه مثلا cmd ,CMD ,cmd1,CMD1 باسماء مختلفة

قد يكون هذا هو سبب المشكلة.
والله وحده اعلم.

[vbnet]

.....

المشكلة أنه يوجد شرط 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