[ali_ahmed12]

السلام عليكم 
كيف اجعل برنامج لايفعل شي عندما تكون كميه مباعه اكبر من كميه موجود هدا كود قمت بكتابته في حدث keydown خاص بالكميه المباعه 
للعلم تظهر حتا في حالة ادخلت كميه اقل رساله خطا انه كميه غير متاحه ياريت الي يعرف يفيديني

كود :

Private Sub txtqty_KeyDown(sender As Object, e As KeyEventArgs) Handles txtqty.KeyDown
       'لو كميه تباع اكبر من كميه مخزنه
       Dim id_prod3, qty3 As Integer
       If e.KeyCode = Keys.Enter Then
           For a As Integer = 0 To DGV_PRODUCT.Rows.Count - 1
               id_prod3 = DGV_PRODUCT.Rows(a).Cells(0).Value
               qty3 = DGV_PRODUCT.Rows(a).Cells(2).Value

               cmd = New SqlCommand("select *from products where id_product=@id_prod3 and qty>=@qty3 ", Module1.con)
               cmd.Parameters.Add("@id_prod3", SqlDbType.Int).Value = id_prod3
               cmd.Parameters.Add("@qty3", SqlDbType.Int).Value = qty3

               Module1.con.Open()
               cmd.ExecuteNonQuery()
               Module1.con.Close()
           Next
           MessageBox.Show("كمية غير متاحه")
           Exit Sub
       End If
   End Sub