Цикл по полям

Доброго времени суток.
Задача слудующая: необходимо просчитать месячную арендную плату по договорам. Справочник с исходными данными (клиент,ставка за м2, площадь, дата начала дог., дата конца дог.) имеется. Не знаю поступил ли я правильно-создал таблицу с полями 01_2008, 02_2008 и т.д. Хочу расчитать значения сумы и месяца с помощью цикла и записать в табл. по месяцам. Вопрос -как организавать цикл по полям. В поиске не нашел.
Спасибо.

автор

Не знаю поступил ли я правильно-создал таблицу с полями 01_2008, 02_2008

абсолютно не правильно.

IMHO, Mon$te®

Цикл по полям можно организовать по коллекции Fields объекта Recordset. Но лучше переделайте структуру. Пишите данные за месяц не по столбцам, а по строкам: один месяц - одна запись.

Учите перекрёстные запросы ! А эта таблица вам вообще не нужна !

sdfgsdfgsdf

Учите перекрёстные запросы ! А эта таблица вам вообще не нужна !

Как же так? А куда помещать внесенную клиентами плату? Из имеющихся таблиц - только справочник, там никакой динамики нет.
Нет, таблица нужна, конечно, но не такая как автор предлагает. Вертикальное хранение данных (совет Karfaqen) будет нормально. Хотя уверен, что некотое время мы снова увидим автора, поскольку схема данных совершенно не продумана.

Прочитайте автора повнимательнее - у него уже есть таблица ! (а во вторую он на вба хочет банные впихать ! - но зачем !)

Эщо в догонку .... ихходя ис чего вы собираетесь считать месячную плату ? на основании каких первычных данных ?

Согласен, переделаю. А можно привести пример кода с использованием цикла по recordset.field ? Спасибо.

sdfgsdfgsdf

Прочитайте автора повнимательнее - у него уже есть таблица ! (а во вторую он на вба хочет банные впихать ! - но зачем !)

Воспользуюсь вашим же советом: Прочитайте автора повнимательнее

kohman

Справочник с исходными данными (клиент,ставка за м2, площадь, дата начала дог., дата конца дог.) имеется

И все. Еще одну таблицу он только создает.

kohman

А можно привести пример кода с использованием цикла по recordset.field

Dim ds As dao.Recordset
Set ds = CurrentDb.OpenRecordset("ИмяТаблицы", dbOpenDynaset)
Dim f As dao.Field
For Each f In ds.Fields
    Debug.Print f.Name
Next f