Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA access : организовать поиск в классе / 10 сообщений из 10, страница 1 из 1
02.03.2016, 13:46
    #39183713
Madlax
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA access : организовать поиск в классе
Добрый день.


Задача такая

Есть класс Person, туда скидываются данные из запроса .

Ожидается более 60 документов word которые нужно заполнить,

Нужно организовать перебор членов класса по названию(закладок)

Как это сделать?
есть что-нибудь такое типа

dim item

for each item in me


next
...
Рейтинг: 0 / 0
02.03.2016, 13:55
    #39183732
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA access : организовать поиск в классе
Вот именно так и сделать.
...
Рейтинг: 0 / 0
22.03.2016, 13:10
    #39197905
Madlax
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA access : организовать поиск в классе
Добрый день


Когда я так пишу


Public Function find_value(name_field As String) As String

Dim obj

For Each obj In Me

If obj = name_field Then
Call ok("ok")
End If
Next

End Function

выводит ошибку. Объясните пожалуйста что нужно дописать , чтобы эта функция работала?
...
Рейтинг: 0 / 0
22.03.2016, 13:32
    #39197934
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA access : организовать поиск в классе
Madlax,

а что по Вашему сравнивается этой строкой?
Код: vbnet
1.
If obj = name_field Then


контрол и текст? Думаете, так можно? На основании чего хотите найти? Имя контрола, значение в нем, еще что-то? Вот это и указывайте. Например, для поиска контрола с указанным именем:
Код: vbnet
1.
If obj.name = name_field Then
...
Рейтинг: 0 / 0
24.03.2016, 16:13
    #39199900
Madlax
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA access : организовать поиск в классе
The_Prist,

Добрый день.

Я вас понял.

Просто это пользовательский класс. Там нет этих коллекций.

Как правильно организовать эти коллекции?
...
Рейтинг: 0 / 0
24.03.2016, 16:18
    #39199907
Madlax
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA access : организовать поиск в классе
Точнее есть ли стандартный итератор в классах, для того чтобы добавить коллекцию полей?
...
Рейтинг: 0 / 0
24.03.2016, 16:52
    #39199940
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA access : организовать поиск в классе
Madlaxесть ли стандартный итератор в классах
Нет такого понятия как "стандартный итератор".
Для перебора коллекции экземпляров класса следует использовать либо переменную с типом этого класса, либо переменную с типом Variant (для классов, совместимых с объектным типом - ещё и типа Object).
Как это связано с добавлением коллекции, в частности коллекции полей (добавлением куда, кстати?) - непонятно.
...
Рейтинг: 0 / 0
24.03.2016, 16:54
    #39199944
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA access : организовать поиск в классе
Он имеет ввиду, перебрать поля самого класса (как GetFields в .NET). То есть, фактически, получить доступ к метаданным класса.
...
Рейтинг: 0 / 0
24.03.2016, 17:47
    #39200009
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA access : организовать поиск в классе
Ну... разве что проверить, есть ли у этого класса коллекция пропертей.
...
Рейтинг: 0 / 0
25.03.2016, 15:14
    #39200725
Madlax
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA access : организовать поиск в классе
добрый день .


просто я сейчас ищу значение по наименованию поля через select .. case
но это не удобною.
Поиск нужен для того чтобы заполнять закладки в документах

Мажет кто-нибудь решал такую же задачу?
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA access : организовать поиск в классе / 10 сообщений из 10, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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