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

السلام عليكم

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

كيفية تحديث الكمية المخزنة عند حفظ فاتورة جديدة باستخدام 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

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

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

كود :

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

كن ان شاء الله

سوف

يتم بكم

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

AwsEsam

aljzazy

atefkhalf2004