Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.02.2018, 16:47   #1
Ethex
Пользователь
 
Регистрация: 26.04.2017
Сообщений: 86
По умолчанию VBA Access Добавление в список в определённом порядке

Доброго времени суток
Имеется в аксессе некоторое количество таблиц. Нужно добавить их имена в список в определённом порядке (разумеется, изначально они расположены не так как нужно). Благо таблицы всегда идентичны по типу и количеству
Я решил задачу следующим способом:
Код:
Dim db As DAO.Database, aot As DAO.TableDef
Set db = CurrentDb
   For Each aot In db.TableDefs
      If InStr(1, aot.Name, "blabla1") > 0 Then
      Me.Список.AddItem Item:=aot.Name
      End If
   Next
   For Each aot In db.TableDefs
      If InStr(1, aot.Name, "blabla2") > 0 Then
      Me.Список.AddItem Item:=aot.Name
      End If
   Next
   For Each aot In db.TableDefs
      If InStr(1, aot.Name, "blabla3") > 0 Then
      Me.Список.AddItem Item:=aot.Name
      End If
   Next
...
'И так далее для каждой из нужных таблиц
А существует ли более красивый и грамотный способ решения аналогичной задачи?
Ethex вне форума Ответить с цитированием
Старый 28.02.2018, 17:39   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

вариант: идите по списку blabla1..n и проверяйте есть ли таблица с таким именем в списке таблиц базы
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 01.03.2018, 12:16   #3
Ethex
Пользователь
 
Регистрация: 26.04.2017
Сообщений: 86
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
вариант: идите по списку blabla1..n и проверяйте есть ли таблица с таким именем в списке таблиц базы
Имеется в виду заполнить список вручную и организовать по нему цикл?
Ethex вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Часть кода сделал. Односвязный список без заглавного звена. Динамическая память. Перевернуть список и считать в обратном порядке. Varner Общие вопросы Delphi 5 19.05.2016 17:30
Паскаль: переписать строковый список в обратном порядке aldmitt Помощь студентам 8 04.12.2013 23:14
Заполнение массива в определённом порядке. Иварунька Паскаль, Turbo Pascal, PascalABC.NET 2 20.11.2012 23:25
Вывод алфавита в определённом порядке. Tonik_A Помощь студентам 3 03.07.2010 15:42
Добавление записи через список в связанную таблицу(при связи с Access) megaten БД в Delphi 5 17.05.2009 15:57