01-11-18, 12:26 AM (آخر تعديل لهذه المشاركة : 01-11-18, 12:52 AM {2} بواسطة 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
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
01-11-18, 01:54 AM (آخر تعديل لهذه المشاركة : 01-11-18, 01:57 AM {2} بواسطة نورالدين32.)
(01-11-18, 12:26 AM)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
شكراً والله لا أعرف كيف أتشكرك على هذه المعلومة القيمة التي أوصلتني للحل حيث أن أحد الأكواد لم يكن به 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)
هكذا الكود صحيح مئة بالمئة أشكر كل القائمين على هذا المنتدى وبإذن الله لن أبخل بشيء لهذا المنتدى على وقوفهم معي ومساعدتي على تجاوز بعض المشاكل وأتمنى أن أكون لم أزعجكم