[AwsEsam]

السلام عليكم 

بدي مساعدة في موضوع :

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

مع العلم اني استخدمت كود 

 For i As Integer = 0 To Guna2DataGridView1.RowCount - 2

                Dim a As Integer = Guna2DataGridView1.Rows(i).Cells(3).Value

 Try

                    Dim cmdupdateitems As New OleDbCommand("update tbl_itembaseinfo set itemqty = itemqty +" & -a & " where itemid = @iditemtogetqty ", conitems)

                    cmdupdateitems.Parameters.Add("@iditemtogetqty", OleDbType.Integer).Value = Guna2DataGridView1.Rows(i).Cells(0).Value

                    conitems.Open()

                Catch ex As Exception

                    MsgBox(ex.Message + "خطأ   1")

                Finally

con.close()

                End Try

 وعند التنفيذ تكون الرسالة "تجاوز لوجود عملية حسابية"



الرجاء المساعدة في اقرب وقت

[aljzazy]

كود :

Public Sub UpdateStore()
       For i As Integer = 0 To Guna2DataGridView1.Rows.Count - 1
           Dim cmd1 As New OleDbCommand("select * from tbl_itembaseinfo where itemid  =@itemid  ", Con)
           cmd1.Parameters.Clear()
           cmd1.Parameters.AddWithValue("@itemid ", OleDbType.Integer).Value = Guna2DataGridView1.Rows(i).Cells(0).Value
           Dim dt As New DataTable
           Dim adp As New OleDbDataAdapter(cmd1)
           adp.Fill(dt)
           If dt.Rows.Count > 0 Then
         Dim Cmd2 As New oledbCommand
               With Cmd2
                   .Connection = Con
                   .CommandType = CommandType.Text
                   .CommandText = "Update tbl_itembaseinfo  Set itemqty  = Qty + " & Guna2DataGridView1.Rows(i).Cells(3).Value & " Where itemid  = @itemid "
                   .Parameters.Clear()
                   .Parameters.AddWithValue("@itemid ", OleDbType.Integer).Value = Guna2DataGridView1.Rows(i).Cells(0).Value
               End With
               If Con.State = 1 Then Con.Close()
               Con.Open()
               Cmd2.ExecuteNonQuery()
               Con.Close()
               Cmd2 = Nothing

           End If
       Next
       MsgBox("تم تعديل الكميات  في المستودع بنجاح", MsgBoxStyle.Information, "تعديل")
   End Sub

[atefkhalf2004]

كن ان شاء الله

سوف


يتم بكم

1-عمل فاتورة للبيع بوحدات جزئية من وحدات كلية
بمعني
الشراء ب كارتونة مثل كارتونة شيبسي بها 24 كيس
البيع بالكيس

وكيفية اظهار الرصيد


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