Добрый день. Как обращаться к ячейке таблицы Access в цикле VBA? В Excel это cells(1,1), в массиве это a(0,0). Как мне сделать цикл по ячейкам Access с вычислениями? Допустим, в первом столбце под названием "Арт" будут артикулы в виде цифр от 1 до 10. Во втором столбце "Цена" будут суммы (все по 100 для примера). Мне нужно пройти циклом по всем строкам таблицы.
Код |
---|
Sub perebor()
Dim db As Database
Dim rs As Recordset
Dim lngRecordCount As Long
Set db = CurrentDb
Set rs = db.OpenRecordset("q_promoexcel", dbOpenDynaset)
If rs.RecordCount <> 0 Then
rs.MoveLast
lngRecordCount = rs.RecordCount
rs.MoveFirst
For i = 4 To lngRecordCount
If rs(i,1) = rs(i-1,1) then rs(i,3) = rs(i-1,2)+rs(i,2) 'как обратиться к этим ячейкам правильно?
Next
rs.Close
db.Close
End Sub |