С Новым годом! Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 08.01.2020
Сообщений: 2
Access

Почему нельзя запускать макрос более 19 раз в Access 2010

27.06.2025, 14:41. Показов 1357. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Option Compare Database
 
'------------------------------------------------------------
' Копия_Макрос1
'
'------------------------------------------------------------
Function Копия_Макрос1()
On Error GoTo Копия_Макрос1_Err
 
    DoCmd.OpenQuery "сс1a", acViewNormal, acEdit
    DoCmd.OpenQuery "cc1", acViewNormal, acEdit
    DoCmd.OpenQuery "aa11", acViewNormal, acEdit
    DoCmd.OpenForm "aa10", acNormal, "", "", , acNormal
    If (Forms!aa10!Выражение2 = 77) Then
        DoCmd.RunMacro "Макрос2a", , ""
    End If
    If (Forms!aa10!Выражение3 = 44) Then
        DoCmd.RunMacro "Макрос2bday", , ""
        DoCmd.OpenTable "f0", acViewNormal, acEdit
        Beep
        MsgBox "смена дня", vbOKOnly, ""
    End If
    DoCmd.Close acTable, "f0"
    DoCmd.Close acTable, "aa1"
    DoCmd.Close acTable, "aa2"
    If (Forms!aa10!Выражение1 = 99) Then
        DoCmd.RunMacro "Макрос2", 30, "[Forms]![aa10]![Выражение1]=99"
        If (Forms!aa10!Выражение1 = 88) Then
            DoCmd.RunMacro "Макрос4", , ""
        End If
    End If
    DoCmd.OpenTable "Копия D 4", acViewNormal, acEdit
    DoCmd.Close acForm, "aa10"
    DoCmd.OpenQuery "aaa02", acViewNormal, acEdit
    DoCmd.OpenQuery "aaa01", acViewNormal, acEdit
    DoCmd.OpenTable "aa1", acViewNormal, acEdit
    DoCmd.RunMacro "Копия Макрос1", , ""            .........   здесь возможные повторы до 40 раз (на 19 проходе выдает  
 
                                                                                 сообщение --нельзя запускать макрос  более 19 раз)
 
 
Копия_Макрос1_Exit:
    Exit Function
 
Копия_Макрос1_Err:
    MsgBox Error$
    Resume Копия_Макрос1_Exit
 
End Function
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
27.06.2025, 14:41
Ответы с готовыми решениями:

Остановить макрос, если значение в ячейке F1 больше нуля иначе макрос продолжать
Здравствуйте дорогие специалисты. Благодарю Вас за постоянную поддержку и помощь мне. В прошлой...

Макрос, запускающий макрос из другого закрытого файла
Здравствуйте. Использую Office 2007. Поискал на форуме, не нашел ответа. Опишу подробно...

При запуске в Excel редактора VBA, появляется окно с надписью file, и больше ничего сделать нельзя
Доброго. Проблема: при запуске в Excele редактора VBA, появляется окно с надписью file, и больше...

3
ᴁ ©
Эксперт MS Access
 Аватар для АЕ
4140 / 2434 / 503
Регистрация: 13.12.2016
Сообщений: 8,278
Записей в блоге: 5
27.06.2025, 15:23
Pavel255, почему вы спрашиваете о макросе, а выкладываете функцию?
0
Эксперт MS Access
 Аватар для Eugene-LS
12058 / 5843 / 1492
Регистрация: 05.10.2016
Сообщений: 16,429
28.06.2025, 05:15
Pavel255, как я понял это принудительная "Заглушка от зацикливания", которую щедро и бесплатно установил для вас "производитель".
Поищите в гугле строчку "access macros can only be run 19 times" - вы не первый кто столкнулся с этим.

Один чувак на некоем форуме по этому поводу написал:
- This is one of the reasons I don’t use “macros”.
0
1384 / 838 / 91
Регистрация: 08.02.2017
Сообщений: 3,512
Записей в блоге: 1
28.06.2025, 05:52
Это вроде ограничение для запуска неких "макрокоманд". В Экселе тоже есть макрофункции, но ими никто не пользуется.
Вот похожая тема Ошибка макроса: не допускается ввод макроса больше 19 раз
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
28.06.2025, 05:52
Помогаю со студенческими работами здесь

Макрос с параметрами нельзя запустить
Здраствуйте. Написали вот такой макрос в Excel, вставляющий p_lines количество строк на лист: Sub...

Как написать макрос, чтобы после "сохранить как" нельзя в него внести изменения не скопировать
Здравствуйте,нужна помощь, у нас есть документ которые сотрудники заполняют для погрузки разгрузки...

Почему Excel 2013 работает в 25 раз медленнее чем 2010
Здравствуйте, уважаемые эксперты. Столкнулся с проблемой не могу решить. В Excel 2010 макрос...

Обработать в цикле ячейки листа из Access и запустить макрос Excel-файла из Access
Access 2007, Excel 2007. Две задачи: обработать в цикле ячейки листа из Accessa и запустить макрос...

Переменной А присвоить ее значение, увеличенное в N раз, 2N раз, 3N раз
Переменной А присвоить ее значение, увеличенное в N раз, 2N раз, 3N раз


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru