Добрый день.
Задача следующая.
В базе имеется 35 логических полей. Выбираем одну строку по условию. Затем нужно перебрать все поля по очереди.
Для удобства хочу вместо имени поля использовать переменную, но не получается.
код такой

Set rst = dbs.OpenRecordset("SELECT Max(Тбл1.Дата) AS [Max-Дата], Тбл1.id, Max(Тбл1.Код) AS [Max-Код], " _
        & "Тбл1.[a1], Тбл1.[a2], Тбл1.[a3], Тбл1.[a4], Тбл1.[a5], Тбл1.[a6], " _
        & "Тбл1.[a8], Тбл1.[a9], Тбл1.[a10], Тбл1.[a11], Тбл1.[a12], Тбл1.[a13], " _
        & "Тбл1.[a14], Тбл1.[a15], Тбл1.[a16], Тбл1.[a17], Тбл1.[a18], Тбл1.[a19], " _
        & "Тбл1.[a20], Тбл1.[a21], Тбл1.[a22], Тбл1.[a23], Тбл1.[a24], Тбл1.[a25], " _
        & "Тбл1.[a26], Тбл1.[a27], Тбл1.[a28], Тбл1.[a29], Тбл1.[a30], Тбл1.[a31], " _
        & "Тбл1.[a32], Тбл1.[a33], Тбл1.[a34], Тбл1.[a35] " _
        & "FROM Тбл1 " _
        & "GROUP BY Тбл1.id, Тбл1.[a32], Тбл1.[a33], Тбл1.[a34], Тбл1.[a35] " _
        & "HAVING (((Тбл1.id) =" & ab & ")) " _
        & "ORDER BY Max(Тбл1.Дата);")
    
    
   If rst.RecordCount > 0 Then
        rst.MoveLast
    
        For i = 1 To 35
        t = "a" & CStr(i)
            If rst![" & t & "] Then
                
            Select Case i
                Case 1

Ошибка возникает здесь rst![" & t & "], т.е. почему-то не может подставить переменную вместо имени.

помогите решить. очень не хочется 35 If-ов писать.

http://www.sql.ru/forum/1157526/obrabotka-rezultatov-zaprosa