[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

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