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

[isaac23]

128590

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

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

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

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

[ahmad abdoli]

سلام

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

[isaac23]

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

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

[golbafan]

قبل از حلقه از 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

[vbhamed]

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