ارتباط دوجدول و آپدیت خودکار آن

[polisoftco]

باسلام
یک مشکلی داشتم تو وی بی :
من دوتا جدول دارم بنام های tblAccount(حساب اشخاص) و tblAccWork(پرداختیها به شخص) حالا من میخام حسابی رو از فرم (حساب کارگران tblAccount) انتخاب کنم و هروقت مبلغ کارکرد و مبلغ گرفته شده (درجدولtblAccWork) رو وارد کردیم، کل مبلغ گرفته ، کل روزکارکرد و کل مبلغ کارکرد (درجدول tblAccount) رو بصورت خودکار بنویسه.
یعنی مبلغ کارکرد به کل مبلغ کارکرد اضافه بشه و همینطور مبلغ گرفته، و یک واحد به تعداد روزکارکرد اضافه بشه.
اینم کد من که ناقص جواب داد.


cmdA.ActiveConnection = strCon
cmdA.CommandText = "update_tblAccount"
cmdA.CommandType = adCmdStoredProc
cmdA.Parameters("@accID_1") = txtID.Text
cmdA.Parameters("@TotalPrice_4") = Val(lblTMK.Caption) + Val(txtMK.Text)
cmdA.Parameters("@TotalWork_5") = Val(lblTW.Caption) + 1
cmdA.Parameters("@TotalPriceG_6") = Val(lblTMG.Caption) + Val(txtMG.Text)
'Set rsA = cmdA.Execute()


آیا روش بهتری واسه این هست.؟ یا من دوتا جدولم رو بهم دیگه بچسبونم(یک جدولش کنم).
این هم عکسهای فرمم.

http://polisoftco.persiangig.com/2.JPG

http://polisoftco.persiangig.com/3.JPG

[polisoftco]

سلام
کسی نیست جواب مارو بده
لطفا کمکم کنین
:ناراحت::ناراحت::ناراحت::افس� �ده::افسرده::افسرده::ناراحت::� �اراحت::ناراحت: