[فراس الغزي]

السلام  عليكم  

  الاخوة  الاعزاء  اتمنى  ان  تكونوا بصحة  جيدة  

  اخوتي  انا  عندي  جدول  اصناف  
 وجدول  الفاتورة  
  اريد  كود  لما يقوم  البائع ببيع صنف  معين  يقوم  البرنامج  بانقاص  الكمية  المباعة  من  جدول  الاصناف  انا بصراحة  عملت  كود  لكن  لم  افلح في  ذبك  علما  ان  القاعدة  اكسيس  والفيجوال  2013  
  انا اكتب  لكم لكود  الي  انا اشتغلت  عليه  وما ضبط  معي  

كود :

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Butsave.Click
        Dim query As String
        Try
            If ToDo = "add" Then
                query = "INSERT INTO invoicepro (id_user,codpro,extnumpro,extprice,qasd1,qasd2,abbaqy,datetak) VALUES(@id_user,@codpro,@extnumpro,@extprice,@qasd1,@qasd2,@abbaqy,@datetak) "
            Else
                query = "UPDATE invoicepro SET id_user=@id_user ,codpro=@codpro ,extnumpro=@extnumpro ,extprice=@extprice ,qasd1=@qasd1 ,qasd2=@qasd2 ,abbaqy=@abbaqy,datetak=@datetak  WHERE IDInvoices= " & id

            End If

            cmd = New OleDbCommand(query, Conn)
            cmd.Parameters.Add(New OleDbParameter("@id_user", OleDbType.VarChar, 200)).Value = Textname.Text
            cmd.Parameters.Add(New OleDbParameter("@codpro", OleDbType.VarChar, 200)).Value = Textpro.Text
            cmd.Parameters.Add(New OleDbParameter("@extnumpro", OleDbType.VarChar, 200)).Value = Textnum.Text
            cmd.Parameters.Add(New OleDbParameter("@extprice", OleDbType.VarChar, 200)).Value = Textprice.Text
            cmd.Parameters.Add(New OleDbParameter("@qasd1", OleDbType.VarChar, 200)).Value = Textqasd1.Text
            cmd.Parameters.Add(New OleDbParameter("@qasd2", OleDbType.VarChar, 200)).Value = Textqasd2.Text
            cmd.Parameters.Add(New OleDbParameter("@abbaqy", OleDbType.VarChar, 200)).Value = Labbaqy.Text
            cmd.Parameters.Add(New OleDbParameter("@datetak", OleDbType.Date)).Value = DateTi.Value

            Conn.Open()
            cmd.ExecuteNonQuery()

            cmd.CommandText = "UPDATE Materials SET QuantityAvailable= @QuantityAvailable WHERE MaterialBarCode = '" & Textpro.Text & "'"
            cmd.Parameters.AddWithValue("QuantityAvailable", Val(Textnum.Text) - 1)
            cmd.ExecuteScalar()


            MsgBox("تم الحفظ  بنجاح")

        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            Conn.Close()

        End Try
    End Sub

هذا  الكود لكن  تتم  الاضافة  ولكن  دون  الانقاص  من  جدول  الاصناف  بانتظار ردودكم يا  مبدعين

[sendbad100]

وعليكم  السلام 

اهلا اخي فراس الغزي

اعتقد الفكرة ليست في الحفظ 

انما لا بد ان تحلل البرنامج  تنظم طريقة معينا لانقاص او زيادة المخزون 

كان تقوم بعمل  استعلام يقوم بجمع  المشتريات  وينقص منها المبيعات 

او تضع خانة  للكمية  وعند الشراء  تعدلها باضافة الكمية المشتراة.

  والعكس عند البيع اي تذهب الى الحقل المخصص للكمية وتنقص الكمية المطلوبة 

انصحك بمتابعت الموضوعين او الدورتين التالية.

http://vb4arb.com/vb/showthread.php?tid=24627

http://vb4arb.com/vb/showthread.php?tid=16087

والله الموفق