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


مساء الخير على الجميع .....اليوم أقدم لكم معلومة جديدة قد تكون غير معروفة للبعض وهى كيفية التأكد من القيم المدخلة فى مربعات النصوص بطريقة مختصرة و بسيطة .....فمثلا اذا كان لدى برنامج به نافذة فيها حوالى 5 مربعات نصوص و المطلوب أجبار المستخدم من أدخال بيانات فى تلك المربعات وعدم ترك أى مربع فارغ .......فمن البديهى أو الاكثر استخداما لدى كثيرا من المبرمجين أستخدام الكود التالى :

الكود:

  If Len(Trim(Text1.Text)) = "" Then
        MsgBox "مربع الاسم خالى", vbCritical
        Beep
        Text1.SetFocus
        Exit Sub
    ElseIf Len(Trim(Text2.Text)) = "" Then
        MsgBox "مربع الوظيفة خالى", vbCritical
        Beep
        Text2.SetFocus
        Exit Sub
    ElseIf Len(Trim(Text3.Text)) = "" Then
        MsgBox "ÚÝæÇ ãÑÈÚ ÇáäÕ ÎÇáì ....ÊÇÑíÎ ÇáãíáÇÏ", vbCritical
        Beep
        Text3.SetFocus
        Exit Sub
    ElseIf Len(Trim(Text4.Text)) = "" Then
        MsgBox "مربع العمر خالى", vbCritical
        Beep
        Exit Sub
  ElseIf Len(Trim(Text5.Text)) = "" Then
        MsgBox "مربع الراتب خالى", vbCritical
        Beep
        Text5.SetFocus
        Exit Sub
End If
 

لكن هناك طريقة أفضل ومختصرة من كل تلك الاكواد وهى على النحو التالى :

الكود:

Dim obj As Control
         
  For Each obj In Me
           
If TypeOf obj Is TextBox  Then
                    If obj.Text = ""
Then
MsgBox  " عفوا مربع النص خالى "  &  obj.Name ,
vbExclamation, Me.Caption
                   
obj.SetFocus
                    Exit Sub
                End
If
            End If
            Next obj


ارايتم كيف أختصرنا الكود السابق فى هذا الكود البسيط ....فتخليوا معى كم سيوفر لنا هذا الكود كثيرا من الوقت خصوصا لو أن مربعات النصوص أكثر من 5 مربعات كما أفترضنا فى المثال