کم کردن تعداد کالا همزمان از چند کالا در انبار

ضمیمه 128590

با سلام خدمت دوستان
من یک انبار دارم بنام Dbase و نام جدول T1 هستش و یک فرم فروش و جدول T2 در این جدول ها دو فیلد وجود دارد بنام Q که تعداد کالا و تعداد فروش رو داخل او ذخیره میکنم

حالا زمانی که من فرم فروش رو باز میکنم و چند کالا رو به لیست اضافه میکنم مثلا 10 تا کالا حالا اینا رو چطوری همزمان با زدن یک دکمه ثبت بره از انبار و تعداد کم بشه

یعنی با زدن اون دکه ثبت تعدادی که داخل فرم فروش هست از انبار کم بشه یکجا

ممنون میشم راهنمایی کنید .

سلام

خوب دوست عزیز همزمان به دو جدول وصل بشید به تعدادی که خرید انجام می شه از تعداد کالا کم می شه
(مثلا با دو ابزار adodc به هر دو جدول وصل بشید).

خوب اینو می دونم واسه یک کالا مشکلی نیست اگه به عکس بالا نگاه بندازی متوجه میشی بیشتر از یک کالا بشه مشکل دارم نحوه کد نویسی رو نمی دونم چطوری انجام بدم من خودم از این روش استقاده میکنم نمی دونم درسته یا غلطه کمک کنید ممنون میشم

 On Error Resume Next

Dim recordcount

recordcount = Adodc3.Recordset.recordcount

For i = 1 To recordcount

curentrecordcode = Adodc3.Recordset.Fields("kod")

Adodc2.RecordSource = "SELECT * FROM T1 where kod=" & curentrecordcode & ""

Adodc2.Refresh

Adodc2.Recordset.Update

Adodc2.Recordset.Fields("Q") = (Adodc2.Recordset.Fields("Q") - Adodc3.Recordset.Fields("Q"))

Adodc2.Recordset.Update

Adodc3.Recordset.MoveNext

Next

قبل از حلقه از movefirst استفاده کنید

On Error Resume Next

Dim recordcount

recordcount = Adodc3.Recordset.recordcount

Adodc3.movefirst

For i = 1 To recordcount

curentrecordcode = Adodc3.Recordset.Fields("kod")

Adodc2.RecordSource = "SELECT * FROM T1 where kod=" & curentrecordcode & ""

Adodc2.Refresh

Adodc2.Recordset.Update

Adodc2.Recordset.Fields("Q") = (Adodc2.Recordset.Fields("Q") - Adodc3.Recordset.Fields("Q"))

Adodc2.Recordset.Update



if not end of table  adodc3

Adodc3.Recordset.MoveNext



Next

سلام
فقط دقت کنید اگر بعدا یک فاکتور قرار باشه ویرایش بشه به محض باز کردن فاکتور باید لیست فعلی فاکتور رو در حافظه ذخیره کنید و قبل از ثبت با اون مقایسه کنید و انبار رو به صورت صحیح ویرایش کنید، مثلا اگر فاکتور ٣ قلم کالا داشته و حالا شده ٢ قلم، اون یک قلم حذف شده باید به انبار اضافه بشه