Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Может кто-то знает / 6 сообщений из 6, страница 1 из 1
18.01.2003, 20:06
    #32092973
Shc
Shc
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Может кто-то знает
Ребят, как
1) из VBA достучаться до групп объектов (набора ссылок) в Access 2000-XP
2) из VBA достучаться до главного окна (окна базы данных, которое выводится по F11)
3) можно ли в VBA объявить переменную функцию (навесить на переменную ссылку на функцию)
Спасибо тем, кто дочитал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2003, 02:24
    #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
| Ответить | Цитировать | Написать  
28.01.2003, 20:30
    #32097767
Shc
Shc
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Может кто-то знает
Большой спасибо, -=Alexey=-!!!
О 3 вопросе.
Формирую 2 отчета в Ексель (с перспективой на увеличение их количества) по одинаковому алгоритму (поэтому сую все в одну процедуру).
Отличаются только функцией построения запроса к данным.
Вот я и хотел бы присвоить перед вызовом процедуры переменной А нужную функцию, а в процедуре обращаться к А как функции.
(Сейчас засунул все в Кейсы, но это неинтересно, тем более, что с объектами (типа списков, ...) это можно делать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2003, 06:49
    #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, 11:50
    #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, 19:41
    #32098491
Shc
Shc
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Может кто-то знает
Спасибо всем, особенно Polev
Похоже это то, что нужно
(наконец-то мой метод научного тыка тыкнулся и на эту функцию)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Может кто-то знает / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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