powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Имена полей в динамический массив
4 сообщений из 4, страница 1 из 1
Имена полей в динамический массив
    #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
Имена полей в динамический массив
    #32531021
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
set rst = me.recordsetclone

for each fld in rst.fields
msgbox fld.name
next
...
Рейтинг: 0 / 0
Имена полей в динамический массив
    #32531055
v skopin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если можно чуть-чуть подробнее,плииз!
...
Рейтинг: 0 / 0
Имена полей в динамический массив
    #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
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Имена полей в динамический массив
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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