Можете да използвате макрокомандата StopMacro в настолни бази данни на Access, за да спрете текущо изпълняваната макрос.
Настройка
Действието StopMacro няма никакви аргументи.
Забележки
Обикновено използвате това действие, когато дадено условие налага спирането на макроса. Можете да използвате условен израз в ред за действия на макроса, който съдържа това действие. Когато изразът дава за резултат True (-1), Access спира макроса.
Например можете да създадете макрос, който отваря формуляр, показващ общите суми по дневния ред за датата, въведена в персонализиран диалогов прозорец. Можете да използвате условен израз, за да сте сигурни, че датата на поръчката, контрола в диалоговия прозорец, съдържа валидна дата. Ако това не стане, действието MessageBox може да покаже съобщение за грешка и действието StopMacro може да спре макроса.
Ако макросът е използвал действията Echo или SetWarnings , за да изключи ехо или показването на системни съобщения, макрокомандата StopMacro автоматично ги включва отново.
Това действие не е налично в модул на Visual Basic for Applications (VBA).
Пример
Синхронизиране на формуляри с помощта на макрос
Следващият макрос отваря формуляр "Списък на продуктите" в долния десен ъгъл на формуляра "Доставчици", показващ продуктите на текущия доставчик. Той показва използването на макрокомандата Echo, MessageBox, GoToControl, StopMacro, OpenForm и MoveAndSizeWindow . Той показва също използването на условен израз с действията MessageBox, GoToControl и StopMacro . Този макрос трябва да бъде прикачен към бутона "Преглед на продукти" във формуляра "Доставчици".
|
Условие |
Действие |
Аргументи: настройка |
Коментар |
|
Echo |
Включено ехо: не |
Спрете актуализирането на екрана, докато се изпълнява макросът. |
|
|
IsNull([SupplierID]) |
Поле за съобщения |
Съобщение: Преминете към записа за доставчик, чиито продукти искате да видите, след което щракнете отново върху бутона "Преглед на продукти". Звуков сигнал: Да Тип: няма Заглавие: Избор на доставчик |
Ако няма текущ доставчик във формуляра "Доставчици", покажете съобщение. |
|
... |
GoToControl |
Име на контрола: CompanyName |
Преместване на фокуса върху контролата CompanyName. |
|
... |
StopMacro |
Спиране на макроса. |
|
|
OpenForm |
Име на формуляр: Списък на продуктите Изглед: Лист с данни Име на филтър: Условие Where: [SupplierID] = [Forms]! [Доставчици]! [ИД на доставчик] Режим на данни: само за четене Режим на прозорец: Нормален |
Отворете формуляра Списък на продуктите и покажете продуктите на текущия доставчик. |
|
|
MoveAndSizeWindow |
Десен: 0,7799" Надолу: 1,8" |
Позиционирайте формуляра Списък на продуктите в долния десен ъгъл на формуляра Доставчици. |
