Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Имена полей в динамический массив / 4 сообщений из 4, страница 1 из 1
24.05.2004, 16:10
    #32531010
v skopin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Имена полей в динамический массив
Привет!

Проблема следующая.

При заполнении Формы необходимо использовать различные таблички ( не из Access тоже!!!).
Для удобства хочу создать дин. массив с именами полей. Т.е.
имеем, скажем таблици:

таб1 (пк1 число, т тект)
таб2 (пк2 число, н число, т текст)
...
Хотел бы получить процедуру ИМЯ(таб):
такую, чтобы превращала

Dim names() As String

при ИМЯ(таб1) в names(1) = 'пк1', names(2) ='т',
при ИМЯ(таб2) в names(1) = 'пк2', names(2) ='н', names(3) ='т'

Помогите, написать такую процедурку!
...
Рейтинг: 0 / 0
24.05.2004, 16:14
    #32531021
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Имена полей в динамический массив
set rst = me.recordsetclone

for each fld in rst.fields
msgbox fld.name
next
...
Рейтинг: 0 / 0
24.05.2004, 16:24
    #32531055
v skopin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Имена полей в динамический массив
Если можно чуть-чуть подробнее,плииз!
...
Рейтинг: 0 / 0
24.05.2004, 16:34
    #32531082
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Имена полей в динамический массив
создай на форме кнопку
введи в событие нажатие код:

dim rst
'объявление переменной

set rst = me.recordsetclone
'после того как форма загрузилась такая команда назначит объекту
' rst копию набора записей формы

for each fld in rst.fields
'циклически подставлять в переменную Fld из коллекции rst.fields

msgbox fld.name
'выводить сообщение о названии поля

next
'конец цикла

set rst = nothing
'Очистка переменной
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Имена полей в динамический массив / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]