[alshandodi]

اتمنى ان يكون  هذا الكود ذو فائده ..
- اذا كان اقل من 3 يضيف وينبه المستخدم انه قريب تنفذ الكمية 
- وعندما يصل 0 لا يضيف اي شي 
- إذا كانت اكبر من في المخزن لا يعمل شي 

كود :

 Sub checkqty()
       Try
           Dim QTY As Double = Convert.ToDouble(TextBox1.Text)
           Dim Stock As Double = Convert.ToDouble(TextBox2.Text)

           If QTY > Stock Then
               MsgBox("القيمة المدخله اكبر من القيمة في المخزن")
               Exit Sub
           Else
               ' كود اضافة الى داتا جريد فيو
               MsgBox("تم إضافة")
           End If

       Catch ex As Exception

       End Try
   
End Sub
هذا يكون في button  
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Try
           Dim QTY As Double = Convert.ToDouble(TextBox1.Text)

           If QTY <= 0 Then
               MsgBox("لقد نفذت الكمية")
               Exit Sub
           End If
           If QTY <= 3 Then
               checkqty()
               MsgBox("لقد اوشكت الكمية على النفاذ")
           Else
               checkqty()
           End If
       Catch ex As Exception

       End Try


   End Sub

أتمنى ان يكون ذو فائده