Как обратиться к однообразным полям таблицы в цикле

jS_Bender
Дата: 17.11.2009 12:51:29
Всем привет!

Есть таблица с полями Номер, район, всего, 2009,2008,2007,......1991
Хочу заполнить ее в цикле значениями определенных запросов, но не получается в цикле обращаться к разным полям

делаю модуль
Dim MyRst As Recordset
Dim str As String, j As String, k As String
Dim Tam
Tam = Array("1", "Ленинский", "Кировский", "Западный")

Set MyRst = CurrentDb.OpenRecordset("Таблица", dbOpenDynaset)
j = "1999"
For i = 1 To 19
With MyRst
    .AddNew
    !Номер = i
    !Район = Tam(i)

Dim dbs As Database, rst As DAO.Recordset
  Set dbs = CurrentDb
  Set rst = dbs.OpenRecordset("SELECT Count(*) AS sel_count FROM temp WHERE [0]='" & Tam(i) & "';")
    !всего = rst!sel_count
 Set rst = dbs.OpenRecordset("SELECT Count(*) AS sel_count FROM temp WHERE [7]='" & j & "' ;")
    ![ j ] = rst!sel_count
    .Update
End With
j = j + 1
Next i

кострукция ![ j ] не работает, пробовал ![ " & j & " ] !j и разные вариации, не работает

можт кто что посоветует???
qwrqwr
Дата: 17.11.2009 12:56:38
jS_Bender

кострукция ![ j ] не работает

With MyRst
.Fields(j).Value=...

в код не вчитывался
ё
Дата: 17.11.2009 13:00:09
jS_Bender
Всем привет!

Есть таблица с полями Номер, район, всего, 2009,2008,2007,......1991
Хочу заполнить ее в цикле значениями определенных запросов, но не получается в цикле обращаться к разным полям

делаю модуль
Dim MyRst As Recordset
Dim str As String, j As String, k As String
Dim Tam
Tam = Array("1", "Ленинский", "Кировский", "Западный")

Set MyRst = CurrentDb.OpenRecordset("Таблица", dbOpenDynaset)
j = "1999"
For i = 1 To 19
With MyRst
    .AddNew
    !Номер = i
    !Район = Tam(i)

Dim dbs As Database, rst As DAO.Recordset
  Set dbs = CurrentDb
  Set rst = dbs.OpenRecordset("SELECT Count(*) AS sel_count FROM temp WHERE [0]='" & Tam(i) & "';")
    !всего = rst!sel_count
 Set rst = dbs.OpenRecordset("SELECT Count(*) AS sel_count FROM temp WHERE [7]='" & j & "' ;")
    ![ j ] = rst!sel_count
    .Update
End With
j = j + 1
Next i

кострукция ![ j ] не работает, пробовал ![ " & j & " ] !j и разные вариации, не работает

можт кто что посоветует???

???
ё
Дата: 17.11.2009 13:02:41
j=CStr(CLng(j) + 1)
qwrqwr
Дата: 17.11.2009 13:06:08
ё

???
ну нравятся человеку 2 неявных преобразования - ну не может он ничего с собой поделать - ну нехай будут, ведь работает же :)
jS_Bender
Дата: 18.11.2009 06:56:22
Большое спасибо qwrqwr и ё !!!!
Все получилось.....