[ali_ahmed12]

السلام عليكم لدي كود تالي اريد في حالة كمية مدخله اكبر من موجوده يظهر رسالة خطا هدا محاولتي في كود مع كود اجراء مخزن 

كود :

Private Sub txtprice_KeyDown(sender As Object, e As KeyEventArgs) Handles txtprice.KeyDown

       If e.KeyCode = Keys.Enter Then
           Dim parm(2) As SqlParameter
           parm(0) = New SqlParameter("@id_product", SqlDbType.Int)
           parm(0).Value = txtid.Text
           parm(1) = New SqlParameter("@qty_entered", SqlDbType.Int)
           parm(1).Value = txtqty.Text

           cmd = New SqlCommand("Veryifqty", Module1.con)
           cmd.CommandType = CommandType.StoredProcedure

           da = New SqlDataAdapter(cmd)
           da.Fill(dt)
           If dt.Rows.Count < 1 Then
               MessageBox.Show("كمية المدخلة لهدا المنتج غير متاحه")
               For i As Integer = 0 To DGV_PRODUCT.Rows.Count - 1
                   If DGV_PRODUCT.Rows(i).Cells(0).Value = txtid.Text Then
                       MsgBox("هدا المنتج موجود مسبقا", MsgBoxStyle.Critical, "تحذير")
                       cl()
                       Exit Sub
                   End If
               Next
               Dim row As DataRow = dt.NewRow
               row(0) = txtid.Text
               row(1) = txtlabel.Text
               row(2) = txtqty.Text
               row(3) = txtprice.Text
               row(4) = txtamount.Text
               dt.Rows.Add(row)
               Me.DGV_PRODUCT.DataSource = dt
               cl()
               tootal()
           End If
       End If
   End Sub

هدا اجراء مخزن 

كود :

create proc Veryifqty
@ID_product int , @qty_Entered int
as
select *from PRODUCTS
where ID_product=@ID_product and Qty>@qty_Entered