Как запустить макрос ?

niktesla
Дата: 03.06.2004 19:09:57
Добрый день.

Написал в аксессовской БД пару макросов

--------------------------------------
Option Compare Database

Sub xz1()
MsgBox "makros xz1 was launched"
End Sub

Sub Runxz1()
DoCmd.RunMacro "xz1"
End Sub
----------------------------------------

Цель - запустить из второго макроса первый, однако при запуске второго макроса (Runxz1) Access говорит, что не может найти макрос xz1..... Беда.

Наcколько я понимаю, этот код долен работать (оба макроса содержатся в модуле Module1) может кто знает чего нужно настроить ?
Вербняков Александр
Дата: 03.06.2004 19:13:37
Это больше похоже на две процедуры чем на макросы

автор
Sub xz1()
MsgBox "makros xz1 was launched"
End Sub

Sub Runxz1()
call xz1
End Sub
Владимир Саныч
Дата: 03.06.2004 19:17:35
Больше того, это просто не макросы.
Rivkin Dmitry
Дата: 03.06.2004 20:36:03
Синтаксис:
DoCmd.RunMacro macroname[, repeatcount][, repeatexpression]
Ex:

DoCmd.RunMacro "Macro1.RunMyCode"
Владимир Саныч
Дата: 03.06.2004 20:38:43
Но прежде надо эти макросы создать.
Rivkin Dmitry
Дата: 03.06.2004 21:15:00
А на хрена их создавать? Я макросами пользуюсь только для нужд кнопок изToolBars и то по старой памяти, можно было бы и без них обходиться.
может быть я плохо воспитан?
Но код всегда нагляднее и возможностей поболе...
Владимир Саныч
Дата: 03.06.2004 21:20:23
На хрена - это отдельный вопрос. Но в этом топике вопрос следующий: как запустить макрос, если он не создан. Ответ: создать. Хотя, действительно, лучше не надо.
Rivkin Dmitry
Дата: 03.06.2004 21:23:44
Хотя, действительно, лучше не надо

Что и хотелось услышать от корифеев:
Это и есть ответ на весь топик!!!
Serge Gavrilov
Дата: 04.06.2004 06:46:51
Есть случаи, когда код не может заменить макрос и это уже обсуждалось.