[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