[Hazem1]

بسم الله الرحمن الرحيم

استخدمت الكود التالي لعدم السماح بترك الصندوق النصي فارغ 

PHP كود :

If String.IsNullOrWhiteSpace(TextBox1.Text) Then
           MessageBox.Show("Null Date")
       Else
   
       End If 


وحاولت استخدام نفس الكود مع أداة ال Combobox ولكن لم ينجح، فما هو الكود الصحيح؟ بارك الله فيكم.

[rnmr]

جرب هذا

أضف Trim لتصبح TextBox1.Text.Trim

---

وإذا كنت تريد اختبار محتوى الصندوق النصي إن كان يحتوي تاريخ

جرب هذا

كود :

If Not IsDate(TextBox1.Text.Trim) Then
    MessageBox.Show("Null Date")
Else

End If

[Hazem1]

(03-10-18, 09:49 PM)rnmr كتب : جرب هذا

أضف Trim لتصبح TextBox1.Text.Trim

---

وإذا كنت تريد اختبار محتوى الصندوق النصي إن كان يحتوي تاريخ

جرب هذا

كود :

If Not IsDate(TextBox1.Text.Trim) Then
   MessageBox.Show("Null Date")
Else

End If

ربما لم أقم بتوضيح السؤال بشكل كاف، لذا سأقوم بالتوضيح بشكل أكبر أخي الكريم rnmr ، استخدمت هذا الكود في عدم السماح بترك حقل ال textbox فارغ:

PHP كود :

If String.IsNullOrWhiteSpace(TextBox1.Text) Then
           MessageBox.Show("Null Date")
       Else
   
       End If 


، فنفس الكود لا يعمل مع الأداة Combobox ، لذا فسألت عن الكود الذي يُستخدم بحيث لو تركت حقل ال Combobox فارغ تظهر رسالة مثلاً ( Combobox is Null )

[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

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

السلام عليكم اخي hazem1

في هذا الكود لن ينفذ البرنامج الاكواد التي ستكتبها بدل الرسالة

الا اذا قمت بادخال قيمة في الـ Combobox  وسيظل يعيدك الى الكومبو بوكس حتى تضع له قيمة

كود :

If ComboBox1.Text.Trim = "" Then
           ComboBox1.Focus()
           Exit Sub
       Else
           MessageBox.Show("الان يمكنك المتابعة")
       End If

[Hazem1]

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

السلام عليكم اخي hazem1

في هذا الكود لن ينفذ البرنامج الاكواد التي ستكتبها بدل الرسالة

الا اذا قمت بادخال قيمة في الـ Combobox  وسيظل يعيدك الى الكومبو بوكس حتى تضع له قيمة

كود :

If ComboBox1.Text.Trim = "" Then
           ComboBox1.Focus()
           Exit Sub
       Else
           MessageBox.Show("الان يمكنك المتابعة")
       End If

وعليكم السلام ورحمة الله وبركاته، جزاك الله خيراً أخي العزيز ابراهيم ايبو ، بالفعل أعادني مهما حاولت التجاوز لكن للأسف الشديد توقف عن التحديث ولا أدري ما الخطأ في كتابة كود الحفظ  

---

(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

جزاك الله خيراً ، يظهر الخطأ لكن هُناك خطأ عندي والله المُستعان، مشكورين يا إخوة على مجهوداتكم الطيبة.

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

اخي ضع الحملة الشرطية في اول الكود 

قبل اي شيء وضع اكوادك بدل الرسالة

[Hazem1]

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

اخي ضع الحملة الشرطية في اول الكود 

قبل اي شيء وضع اكوادك بدل الرسالة

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

PHP كود :

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

        If ComboBox1.Text.Trim = "" Then
            ComboBox1.Focus()
            Exit Sub
        Else
            MessageBox.Show("Please Insert Value")
        End If


        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 Sub 


[rnmr]

جرب هذا

كود :

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

       If ComboBox1.Text.Trim = "" Then
           MessageBox.Show("Please Insert Value")
           Return
       End If

[Hazem1]

(04-10-18, 01:02 AM)rnmr كتب : جرب هذا

كود :

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

       If ComboBox1.Text.Trim = "" Then
           MessageBox.Show("Please Insert Value")
           Return
       End If

تمت التجربة أخي الكريم rnmr ، لكن سُبحان الله توقف عن حفظ البيانات تمامًا.