ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Может кто-то знает
6 сообщений из 6, страница 1 из 1
Может кто-то знает
    #32092973
Shc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shc
Гость
Ребят, как
1) из VBA достучаться до групп объектов (набора ссылок) в Access 2000-XP
2) из VBA достучаться до главного окна (окна базы данных, которое выводится по F11)
3) можно ли в VBA объявить переменную функцию (навесить на переменную ссылку на функцию)
Спасибо тем, кто дочитал.
...
Рейтинг: 0 / 0
18.01.2003, 20:06
| Ответить | Цитировать | Написать  
Может кто-то знает
    #32093070
-=Alexey=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=Alexey=-
Участник
1.например, печать всех ссылок в окно отладки

Код: plaintext
1.
2.
3.
For Each ref In Application.References
    Debug.Print ref.Name
Next ref


2. показ окна базы данных на вкладке таблицы

Код: plaintext
 DoCmd.SelectObject acTable, , True


спрятать окно

Код: plaintext
DoCmd.RunCommand acCmdWindowHide


3. не знаю. А за чем это понадобилось, может есть другие пути решения?
...
Рейтинг: 0 / 0
20.01.2003, 02:24
| Ответить | Цитировать | Написать  
Может кто-то знает
    #32097767
Shc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shc
Гость
Большой спасибо, -=Alexey=-!!!
О 3 вопросе.
Формирую 2 отчета в Ексель (с перспективой на увеличение их количества) по одинаковому алгоритму (поэтому сую все в одну процедуру).
Отличаются только функцией построения запроса к данным.
Вот я и хотел бы присвоить перед вызовом процедуры переменной А нужную функцию, а в процедуре обращаться к А как функции.
(Сейчас засунул все в Кейсы, но это неинтересно, тем более, что с объектами (типа списков, ...) это можно делать.
...
Рейтинг: 0 / 0
28.01.2003, 20:30
| Ответить | Цитировать | Написать  
Может кто-то знает
    #32097843
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shark
Участник
Чем
Select Case Алгоритм
Case A1:MyFanc=fn1
Case A2:MyFanc=fn2
End

MyFanc

Лучше Чем просто
Select Case Алгоритм
Case A1:fn1
Case A2:fn2
End
, а еще лучше
fn(Алгоритм)'Case внутри.
Не придумывай себе проблем :-)
...
Рейтинг: 0 / 0
29.01.2003, 06:49
| Ответить | Цитировать | Написать  
Может кто-то знает
    #32098012
Фотография Polev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Polev
Участник
Хелп из акеса 97. Цитата.
"В данном примере предполагается, что имеется набор из 50 функций с именами A1, A2 и т.д. С помощью функции Eval осуществляется вызов каждой функции.

Sub CallSeries()
Dim intI As Integer

For intI = 1 To 50
Eval("A" & intI & "()")
Next intI
End Sub"
Удачи :-))))
...
Рейтинг: 0 / 0
29.01.2003, 11:50
| Ответить | Цитировать | Написать  
Может кто-то знает
    #32098491
Shc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shc
Гость
Спасибо всем, особенно Polev
Похоже это то, что нужно
(наконец-то мой метод научного тыка тыкнулся и на эту функцию)
...
Рейтинг: 0 / 0
29.01.2003, 19:41
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Может кто-то знает
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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