[asemshahen5]

جدول TB_END غير موجود
ضع التعريفات خارج الجمل الشرطية أي قبلها .

[نورالدين32]

لم أفهم أخي

[asemshahen5]

مشكتك بسيطة إذا أردت تعريف متغير فقط ضعه قبل جملة إف و لا تضعه بعد Exit Sub لأن كل ما بعد Exit Sub يصبح غير فعال أي غير مستخدم كما مكتوب .
اما إذا كانت مشكلتك أخرى فعندي جدول ناقص في قاعدة البيانات التي أرسلتها اسمه TB_END

كود :

Private Sub ButtonX2_Click(sender As Object, e As EventArgs) Handles ButtonX2.Click
       If TXT_NAME.Text = Nothing Then
           MessageBox.Show("يجب إدخال إسم الحساب", "نقص", MessageBoxButtons.OK, MessageBoxIcon.Error)
           Exit Sub
       End If
       '------------------------------------------------------------------------
       If TXT_GUID_PARENT.Text = Nothing Then
           MessageBox.Show("يجب إدخال الحساب الرئيسي", "نقص", MessageBoxButtons.OK, MessageBoxIcon.Error)
           Exit Sub
       End If
       '------------------------------------------------------------------------
       Dim DT As New DataTable
       DT.Clear()
       DT = CLS_ACCOUNT_.SEARCH_NAME(TXT_NAME.Text)
       Dim COD__ As Double = 0
       Dim DT_COD As New DataTable
       If DT.Rows.Count > 0 Then
           MessageBox.Show("الإسم موجود من قبل", "تنبيـــه", MessageBoxButtons.OK, MessageBoxIcon.Error)
           Exit Sub
       End If
       '------------------------------------------------------------------------
       DT_COD.Clear()
       DT_COD = CLS_ACCOUNT_.COD_(TXT_GUID_PARENT.Text)
       If DT_COD.Rows.Count > 0 Then
           COD__ = Val(DT_COD.Rows(0)(0).ToString())
       End If
       If COD__ = "0" Then
           COD__ = Val(TXT_CODE_PARENT_GUIDE.Text) + 10001
       End If
       '------------------------------------------------------------------------
       CLS_ACCOUNT_.ADD_(TXT_NAME.Text, TXT_GUID_PARENT.Text, Val(COD__), Convert.ToInt32(CMB_END.SelectedValue))
       MessageBox.Show("تمت عملية الحفظ بنجاح", "تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)

   End Sub

[نورالدين32]

مشكتك بسيطة إذا أردت تعريف متغير فقط ضعه قبل جملة إف و لا تضعه بعد Exit Sub لأن كل ما بعد Exit Sub يصبح غير فعال أي غير مستخدم كما مكتوب .
اما إذا كانت مشكلتك أخرى فعندي جدول ناقص في قاعدة البيانات التي أرسلتها اسمه TB_END

كود :

Private Sub ButtonX2_Click(sender As Object, e As EventArgs) Handles ButtonX2.Click
       If TXT_NAME.Text = Nothing Then
           MessageBox.Show("يجب إدخال إسم الحساب", "نقص", MessageBoxButtons.OK, MessageBoxIcon.Error)
           Exit Sub
       End If
       '------------------------------------------------------------------------
       If TXT_GUID_PARENT.Text = Nothing Then
           MessageBox.Show("يجب إدخال الحساب الرئيسي", "نقص", MessageBoxButtons.OK, MessageBoxIcon.Error)
           Exit Sub
       End If
       '------------------------------------------------------------------------
       Dim DT As New DataTable
       DT.Clear()
       DT = CLS_ACCOUNT_.SEARCH_NAME(TXT_NAME.Text)
       Dim COD__ As Double = 0
       Dim DT_COD As New DataTable
       If DT.Rows.Count > 0 Then
           MessageBox.Show("الإسم موجود من قبل", "تنبيـــه", MessageBoxButtons.OK, MessageBoxIcon.Error)
           Exit Sub
       End If
       '------------------------------------------------------------------------
       DT_COD.Clear()
       DT_COD = CLS_ACCOUNT_.COD_(TXT_GUID_PARENT.Text)
       If DT_COD.Rows.Count > 0 Then
           COD__ = Val(DT_COD.Rows(0)(0).ToString())
       End If
       If COD__ = "0" Then
           COD__ = Val(TXT_CODE_PARENT_GUIDE.Text) + 10001
       End If
       '------------------------------------------------------------------------
       CLS_ACCOUNT_.ADD_(TXT_NAME.Text, TXT_GUID_PARENT.Text, Val(COD__), Convert.ToInt32(CMB_END.SelectedValue))
       MessageBox.Show("تمت عملية الحفظ بنجاح", "تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)

   End Sub

شكراً والله لا أعرف كيف أتشكرك على هذه المعلومة القيمة التي أوصلتني للحل حيث أن أحد الأكواد لم يكن به END IF بعد EXIT SUB وكنت أضع END IF أسفل وسف أضع أين كان الخطأ

---

كود :

Dim DT As New DataTable
           DT.Clear()
           DT = CLS_ACCOUNT_.SEARCH_NAME(TXT_NAME.Text)
           If DT.Rows.Count > 0 Then
               MessageBox.Show("الإسم موجود من قبل", "تنبيـــه", MessageBoxButtons.OK, MessageBoxIcon.Error)
               Exit Sub
           End If
           '------------------------------------------------------------------------

           Dim COD__ As Double = 0
           Dim DT_COD As New DataTable
           DT_COD.Clear()
           DT_COD = CLS_ACCOUNT_.COD_(TXT_GUID_PARENT.Text)
           If DT_COD.Rows.Count > 0 Then
               COD__ = Val(DT_COD.Rows(0)(0).ToString())
           End If
           If COD__ = "0" Then
               COD__ = Val(TXT_CODE_PARENT_GUIDE.Text) + 10001

           End If
           TextBoxX1.Text = COD__.ToString
           '------------------------------------------------------------------------
           CLS_ACCOUNT_.ADD_(TXT_NAME.Text, TXT_GUID_PARENT.Text, Val(COD__), Convert.ToInt32(CMB_END.SelectedValue))
           MessageBox.Show("تمت عملية الحفظ بنجاح", "تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)

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