كيف انقص عدد القطع من المخزن .. كاتب الكود يحتاج تعديل

صباح الطيب والمسك

عندي جدولين

الاول موجود فيه ال Items القطع المطلوبة

الثاني تسجيل خروج القطع من المخزن

المطلوب

اضغط على الزر تحديث وينقص عدد القطع من المخزن

يعني القطع المتوفرة 40 اريد 5 قطع للخروج يتم ناتج التحديث 35 وعند ال 0 يصدر رسالة

محاولتي في الكود

 Private Sub Less_Quntity()
		Cn.ConnectionString = "Provider=MicroSoft.JET.OLEDB.4.0; Data Source= database2.mdb"
		Cn.Open()
		Dim cmd As New OleDbCommand
		Dim dr As OleDbDataReader
		cmd.Connection = Cn
		cmd.CommandType = CommandType.Text
		cmd.CommandText = "Select Quntity From Items Where Code =" & Me.ItemIDTextBox.Text
		dr = cmd.ExecuteReader
		dr.Read()

		Dim NewQuntity As Integer
		NewQuntity = IntQuntity - CInt(Me.QuantityTextBox.Text)
		Cmd.Connection = Cn
		Cmd.CommandType = CommandType.Text
		cmd.CommandText = "Update Items Set Quntity=" & NewQuntity & " Where Code=" & ItemIDTextBox.Text
		Cmd.ExecuteNonQuery()
		Cmd = Nothing
	End Sub

دمتم بود وسلام

:wub:

GiftSystem.rar

GiftSystem.rar