[ابراهيم ايبو]

اخي حازم الكود هكذا بعد التعدبل

كود :

 If ComboBox1.Text.Trim = "" Then
           ComboBox1.Focus()
           Exit Sub
       Else
           
           DataGridView1.EndEdit()
           Table15BindingSource.EndEdit()
           Table15TableAdapter.Update(A18DataSet.Table15)


           Select Case MsgBox("Data saved successfully, Add New Data?", MsgBoxStyle.YesNo, ":::::::::: Save ::::::::::")
               Case MsgBoxResult.Yes
                   TextBox1.Select()
                   Table15BindingSource.AddNew()

               Case MsgBoxResult.No
                   TextBox3.Text = ""
                   TextBox4.Text = ""
                   TextBox5.Text = ""
                   ComboBox3.Text = ""
                   Me.Table15TableAdapter.Fill(Me.A18DataSet.Table15)
                   With DataGridView1
                       .ClearSelection()
                       .ReadOnly = True
                       .MultiSelect = False
                       TextBox3.Select()

                   End With
           End Select
       End If
 

[Hazem1]

(04-10-18, 01:14 AM)ابراهيم ايبو كتب : اخي حازم الكود هكذا بعد التعدبل

كود :

 If ComboBox1.Text.Trim = "" Then
           ComboBox1.Focus()
           Exit Sub
       Else
           
           DataGridView1.EndEdit()
           Table15BindingSource.EndEdit()
           Table15TableAdapter.Update(A18DataSet.Table15)


           Select Case MsgBox("Data saved successfully, Add New Data?", MsgBoxStyle.YesNo, ":::::::::: Save ::::::::::")
               Case MsgBoxResult.Yes
                   TextBox1.Select()
                   Table15BindingSource.AddNew()

               Case MsgBoxResult.No
                   TextBox3.Text = ""
                   TextBox4.Text = ""
                   TextBox5.Text = ""
                   ComboBox3.Text = ""
                   Me.Table15TableAdapter.Fill(Me.A18DataSet.Table15)
                   With DataGridView1
                       .ClearSelection()
                       .ReadOnly = True
                       .MultiSelect = False
                       TextBox3.Select()

                   End With
           End Select
       End If
 

الله المُستعان، أخي تستطيع أن تستريح وغداً أحاول مُراجعة الكود إن شاء الله، ما أُريد أن أشق عليك، الآن تظهر رسالة الحفظ وإن كانت القيمة فارغة.

[ابراهيم ايبو]

أخي ختى تتأكد من الكود ضع اي كود صحيح وشغال مابين else و end if

وبذلك تعرف اين تكمن المشكلة  اعانك الله 

[Hazem1]

(04-10-18, 01:28 AM)ابراهيم ايبو كتب :

أخي ختى تتأكد من الكود ضع اي كود صحيح وشغال مابين else و end if

وبذلك تعرف اين تكمن المشكلة  اعانك الله 

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

[Hazem1]

(03-10-18, 11:11 PM)princelovelorn كتب : إذا كنت تريد عدم السماح بترك الtextbox  او combobox فارغين نصيا 
بغض النظر عن نوع النص 

ممكن تستخدم  الطريقة التالية

كود :

       Dim errorpro As New ErrorProvider
       If Trim(Textbox1.Text) = "" Then
           errorpro.SetError(Textbox1, "يرجى إدخال نص")
           MsgBox("يرجى إدخال نص")
           Exit Sub
       ElseIf Trim(Textbox2.Text) = "" Then
           errorpro.SetError(Textbox2, "يرجى إدخال نص")
           MsgBox("يرجى إدخال نص")
           Exit Sub
       ElseIf Trim(Combobox1.Text) = "" Then
           errorpro.SetError(Combobox1, "يرجى إدخال نص")
           MsgBox("يرجى إدخال نص")
           Exit Sub
       End If

جزاك الله خيراً أخي العزيز [b][b]princelovelorn[/b]، ما قصرت، هناك نقطة أُخرى إن كنت تعلمها فالحمد لله وزادك الله علماً، بعد تحسين الكود وجدت الأفضل استخدام أداة ErrorProvider عوضًا عن المُتغير لأن أيقونة الخطأ التي تظهر عندما تُصبح القيمة فارغة لن تختفي إلا باستخدام الأداة.[/b]

[ay.alhaj]

بالنسبة للكومبو بوكس بتقدر تحط جملة شرطية كالتالي 

If combobox.selectedindex = - 1  then 
Msgbox("لا يمكن ترك الكومبو بوكس فارغ")
Exit sub 

Else 

هنا كود الحفظ او الكود الذي تريد تنفيذه 

End if

[Hazem1]

(04-10-18, 03:28 PM)ay.alhaj كتب : بالنسبة للكومبو بوكس بتقدر تحط جملة شرطية كالتالي 

If combobox.selectedindex = - 1  then 
Msgbox("لا يمكن ترك الكومبو بوكس فارغ")
Exit sub 

Else 

هنا كود الحفظ او الكود الذي تريد تنفيذه 

End if

أخي الكريم ay.alhaj  لم يعمل الكود وتم الحفظ بالقيمة الفارغة، على كل حال جزاك الله خيراً على محاولتك الطيبة ، لا تقلق أخي الفاضل المُشكلة تم حلها وكتبت الحل في المُشاركة السابقة، الشكر لله سُبحانه وتعالى ثُم للإخوة الكِرام  [b]princelovelorn ، [b][b]rnmr ، [b][b]ابراهيم ايبو . [/b][/b][/b][/b][/b]

[ay.alhaj]

مستحيل ما يعمل انا بشتغل عليه وشغال معي 
عادي ودائما استخدمه 

ممكن تصورلي الكود كيف كتبته

---

مكان combobox ضع اسم الكومبو بوكس الذي عليه الشرط

[Hazem1]

(04-10-18, 05:03 PM)ay.alhaj كتب : مستحيل ما يعمل انا بشتغل عليه وشغال معي 
عادي ودائما استخدمه 

ممكن تصورلي الكود كيف كتبته

---

مكان combobox ضع اسم الكومبو بوكس الذي عليه الشرط

رُغم أن المُشكلة تم حلها لكن سأرفق لحضرتك ما أردت يا أخي الفاضل، كي تتأكد أن الكود لم يعمل معي رُغم أني كتبته بشكلٍ صحيح

PHP كود :

Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click


        If ComboBox2.SelectedIndex = -1 Then
            MsgBox("Null Value")
            Exit Sub

        Else
            'Save Code
            Select Case MsgBox("Data saved successfully, Add New Data?", MsgBoxStyle.YesNo, ":::::::::: Save ::::::::::")
                Case MsgBoxResult.Yes
                    TextBox1.Select()
                    Table15BindingSource.AddNew()

                Case MsgBoxResult.No
                    TextBox3.Text = ""
                    TextBox4.Text = ""
                    TextBox5.Text = ""
                    ComboBox3.Text = ""
                    Me.Table15TableAdapter.Fill(Me.A18DataSet.Table15)
                    With DataGridView1
                        .ClearSelection()
                        .ReadOnly = True
                        .MultiSelect = False
                        TextBox3.Select()
                    End With
            End Select
        End If
End Sub 


الصورة المُرفقة توضح أنه بعدما قُمت بالضغظ على زر ( حفظ ) ظهرت رسالة الحفظ رُغم أن ال Combobox فارغ ، وفقك الله أخي الكريم لما يحبه ويرضاه.

[asemshahen5]

If ComboBox2.Text = String.Empty Then
            MsgBox("Null Value")
            Exit Sub
Else

End If