حساب الأستاذ

[zizohhh1]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

عندي databaseبها الجدول accounts و به الحسابات و جدول dailydiary وبه قيود اليوميه المحاسبية

فعند الشراء يكون القيد هو من حـ/ المشتريات الى حـ/النقدية

1___من حـ/ المشتريات

___1الى حـ/ النقدية

أريد أن

ينتقل مبلغ النقدية الموجود بالعمود credit بالجدول dailydiary الى العمود debitالموجود بالجدول accounts في صف المشتريات

ينتقل مبلغ المشتريات الموجود بالعمود debitبالجدول dailydiary الى العمود credit الموجود بالجدول accounts في صف النقدية

فأضفت هذا الكود في زر حفظ

Try

Dim UCmd As New OleDb.OleDbCommand

Dim ConStr As String = _

"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _

Application.StartupPath & "\a.mdb"

Dim Conn As New OleDbConnection(ConStr)

Dim UAdp As New OleDbDataAdapter(SQLstr, Conn)

UCmd.Connection = Conn

UCmd.CommandType = CommandType.Text

'For I As Integer = 0 To DataGridView1.RowCount - 1

'If Not System.Convert.IsDBNull(Me.DataGridView1("debit", I).Value) Then

'If DataGridView1("debit", I).Value > 0 Then

UCmd.CommandText = "UPDATE accounts SET debit = " & Trim(Me.TxtSumCredit.Text) & " WHERE account_id = account_id "

'End If

'End If

'Next

Conn.Open()

UCmd.ExecuteNonQuery()

DS.Clear()

UAdp.Fill(DS, "accounts")

UCmd.Dispose()

Conn.Close()

MsgBox("تمت عملية التعديل والحفظ في قاعدة البيانات بنجاح")

Catch ex As Exception

MsgBox(ex.Message)

End Try

لكن يحدث كل الصفوف

أرجوكم ساعدوني

مرفق ال database

a.rar

[zizohhh1]

للعلم أتا أستخدم vb2005