Вычисления в Access

[alex shestov]

Помогите реализовать следующию задумку.
Есть вот такая таблица
Id Номер Эмитент Дата покупки Кол-во
334 52 Автоваз (ОАО) 17-фев-05 13 500,00
335 57 Автоваз (ОАО) 18-фев-05 10 000,00
336 97 Автоваз (ОАО) 19-май-05 20 000,00

Так вот, нужно например продать 15 000 бумаг. Хочеться сделать таким образом чтоб программа сама отняла 13 500 из первой строки и остаток в 1 500 из второй строки.

[alibek]

Ну... Не самое удачно применение для СУБД.
Лучше всего будет пройтись циклом по рекордсету и отнять то, что тебе надо. SQL-запросом это будет непросто сделать.

[alex shestov]

Ну... Не самое удачно применение для СУБД.
Лучше всего будет пройтись циклом по рекордсету и отнять то, что тебе надо. SQL-запросом это будет непросто сделать.

Понимаю что не удачное - то то у меня не получается это сделать . А как будет выглядывать SQL-запрос...если не сложно..

[alex shestov]

Почему может виснуть данный код?

Dim nToSell As Long
nToSell = [Forms]![SaleTab]![SQ]
Dim db As Database
Set db = CurrentDb
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("SELECT * FROM SaleTab WHERE Quantity > 0")
While Not rs.EOF And nToSell > 0
rs.Edit
If rs!Quantity < nToSell Then
nToSell = nToSell - rs!Quantity
rs!Quantity = 0
Else
rs!Quantity = rs!Quantity - nToSell
nToSell = 0
End If
rs.Update
Wend
rs.Close

[snov]

Почему может виснуть данный код?

Dim nToSell As Long
nToSell = [Forms]![SaleTab]![SQ]
Dim db As Database
Set db = CurrentDb
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("SELECT * FROM SaleTab WHERE Quantity > 0")
While Not rs.EOF And nToSell > 0
rs.Edit
If rs!Quantity < nToSell Then
nToSell = nToSell - rs!Quantity
rs!Quantity = 0
Else
rs!Quantity = rs!Quantity - nToSell
nToSell = 0
End If
rs.Update
Wend
rs.Close

У тебя меняется только 1 запись. Двигаем дальше: rs.movenext

[alex shestov]

Почему может виснуть данный код?

Dim nToSell As Long
nToSell = [Forms]![SaleTab]![SQ]
Dim db As Database
Set db = CurrentDb
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("SELECT * FROM SaleTab WHERE Quantity > 0")
While Not rs.EOF And nToSell > 0
rs.Edit
If rs!Quantity < nToSell Then
nToSell = nToSell - rs!Quantity
rs!Quantity = 0
Else
rs!Quantity = rs!Quantity - nToSell
nToSell = 0
End If
rs.Update
Wend
rs.Close

У тебя меняется только 1 запись. Двигаем дальше: rs.movenext

Ага, спасиб. Уже разобрался