**كود**للتأكد من أن جمبع مربعات النص علي الفورم بها قيم

اخواني

السلام عليكم

وهذه مساهمه مني للفائده

Private Sub Command17_Click() 

    Dim ctlTextbox As Control 

      For Each ctlTextbox In Me.Controls 

      If ctlTextbox.ControlType = acTextBox Then 

         If IsNull(ctlTextbox) Then 

         MsgBox "لقد تركت أحد مربعات النص فارغاً" 

         ctlTextbox.SetFocus 

         Exit Sub 

         End If 

      End If 

      Next ctlTextbox 

      MsgBox "جميع مربعات النص بها قيم ، شكرا" 

 End Sub

ارجو لكم الفائده.....دعواتكم