powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / преобразование макроса в код VBA
25 сообщений из 50, страница 1 из 2
преобразование макроса в код VBA
    #39377499
pims
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день.
Возможно дурацкий вопрос, но не работает функция преобразования макроса в код VBA.
При попытке преобразования макроса появляется сообщение "Ошибка при открытии макроса [внедренный макрос], продолжить?". Жму "Продолжить", сообщение "Преобразование закончено" и ничего не преобразовывается.
C чем может быть связано? Access 2010 установлен полностью, со всеми добавками, мастерами и прочим.
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377512
pims
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
PS при чем это именно при преобразовании макроса в форме. Обычный макрос преобразуется нормально, например Autoexec
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377517
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Такое поведение наблюдается для любого макроса или для одного конкретного?
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377518
pims, что такое "макрос в форме"?
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377538
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Анатолий ( Киев )pims, что такое "макрос в форме"?
Если ни чего не путаю, то в 2007 и выше, появилась какая та фишка, типа - не в отдельном макросе, - как объекте БД писать макрос, а почти у любого элемента во внутренностях прописывать сам макрос.
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377539
pims
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Анатолий ( Киев ),
Лапух прав, именно так. Каждому элементу в форме может быть прикреплен макрос. И именно его преобразовать не удается.
Не какой-то конкретный, а абсолютно любой
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377546
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pimsАнатолий ( Киев ),
Лапух прав, именно так. Каждому элементу в форме может быть прикреплен макрос. И именно его преобразовать не удается.
Не какой-то конкретный, а абсолютно любой
Ни когда не пробовал, но в голову залетело такое.
Создать отдельный макрос как объект БД и из всех элементов форм скопировать в туда маклосы элементов.
Для начала парочку.
Если получится преобразовать, то и все остальные кидайте в туда и преобразовывайте.
Хотя помню. когда тоже давно макросами баловался не все макросы преобразовывались в процедуры.
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377547
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А это происходит только в одной форме? Только в одной базе? Похоже на повреждение.
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377557
pims
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
MrShin,

это происходит в любой форме, в любой базе
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377563
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pimsMrShin,

это происходит в любой форме, в любой базе
Вме обычно помогает - Сжать и восстановить БД
или
Просто
Создать - НОВУЮ ЧИСТУЮ БД
и
Импортировать в неё ВСЁ из глюченной БД.
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377565
pims
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Лапух,

смысл понятен, но как такое сделать даже не представляю
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377566
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pimsЛапух,
...но как такое сделать...
Что именно - такое?
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377567
pims
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Лапух,
в абсолютно новой чистой базе это происходит, уже пробовал
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377568
pims
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ЛапухpimsАнатолий ( Киев ),
Лапух прав, именно так. Каждому элементу в форме может быть прикреплен макрос. И именно его преобразовать не удается.
Не какой-то конкретный, а абсолютно любой
Ни когда не пробовал, но в голову залетело такое.
Создать отдельный макрос как объект БД и из всех элементов форм скопировать в туда маклосы элементов.
Для начала парочку.
Если получится преобразовать, то и все остальные кидайте в туда и преобразовывайте.
Хотя помню. когда тоже давно макросами баловался не все макросы преобразовывались в процедуры.
вот это не представляю
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377583
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pims,
Раз ни кто чего то про возможности 2007 и выше не может объяснить. то попытаюсь на пальцах. т. к. у меня Акс 2000. а про 2007 и выше версии только примерно представляю, НО
У вас же наверное можно - Создать макрос, как отдельный объект БД, типа таблицы. формы, запроса, отчета?
Как к примеру вы создаете запрос?
Ищете спец кнопку и жмете на неё п панели меню.
Так же скорее всего есть соответствующая кнопка, для создания макроса.
Жмите и он создастся.
Открывайте его в режиме конструктора и копируйте в него какой ни то макрос из объекта формы.
Потом через пустую строчку другой мактос и т. д.
Вот кстати порыскал по сусекам и нашел примерчик.
В - mdb (2000-03) это визуально выглядит вот так, и в событии нужно ссылаться на ИМЯ МАКРОСА.
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377606
pims
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Лапух,
да, как вариант, но это костыли.. хотелось бы узнать причину и исправить
Попробую - отпишусь
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377616
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А какая версия офиса? Сервиспаки-патчи накачены? Был такой баг, позже его исправили.
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377618
pimsЛапух прав, именно так. Каждому элементу в форме может быть прикреплен макрос. И именно его преобразовать не удается.
Не какой-то конкретный, а абсолютно любой Охренеть! Большинство посетителей форума считает макросы тупиковой ветвью Акса и признают только Autoexec и AutoKeys, а тут такое новшество, и, как обычео, кривое...
pims, нет в макросах ничего такого, что нельзя было бы сделать процедурой VBA c использованием методов DoCmd или других методов, часто более удобных (например поиск или перемещение по записям на форме).
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377621
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот тут обсуждение этого бага. Накатывайте патчи.
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377624
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Анатолий ( Киев )нет в макросах ничего такого, что нельзя было бы сделать процедурой VBA
Увы, если разрабатывается веб приложение, то там VBA нельзя использовать, только эти уродские макросы.
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377650
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Анатолий ( Киев )...Охренеть! Большинство посетителей форума считает макросы тупиковой ветвью Акса и признают только Autoexec и AutoKeys,
Некоторые знакомые зелёные человечки рассказывали мне, что в некоторых тарелках у них в ЭВМ, ещё до сих пор используются макросы и на скорость межзвёздных перелётов они не шибко влияють.
Хотя, последнее время, глядя на нас - Землян. тоже на процедуры стали переходить.
Я тоже, грешил этим раньше, но лет так 10 назад, прочуял большие возможности VBA, ТС видимо тоже, вот и хочет преобразовать макросы в процедуры без особого напряга, что ЕСТЬ ХОРОШО .
Я на себе конечно ощютил, что ТУТ так принято ржать над нами начинающими, но как говорится - Грешно смеяться над больными, решившими выздороветь.
У нас на работе даже есть комп с 1997 офисом и ни чего, работающие на нем не парятся даже, функционала даже наверное поболее в 2 чем, в 2016 Аксе.
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377651
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pimsВозможно дурацкий вопрос, но не работает функция преобразования макроса в код VBA.

скопируйте внедренный макрос в обычный
обычный переводится, правда не всегда корректно
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377656
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pims,

если же надо только посмотреть, а что же сидит внутри формы/отчета --применяю самописку для выдачи свойств формы /отчета
для анализа вполне удобно
ГЛАВНАЯ ===29.12.2016 12:51:23
` 8 `RecordSource `SELECT ГЛ.Код, ГЛ.ФАКУЛЬТЕТ, ГЛ.КУРС, ГЛ.СЕМЕСТР, ГЛ.ГРУППА, ГЛ.НАПРАВЛЕНИЕ, ГЛ.ЭКЗАМЕНАТОР, ГЛ.ДИСЦИПЛИНА, ГЛ.[КОЛ ВО ЧАСОВ], ГЛ.[КОЛ ВО ЕД], ГЛ.[ДЕКАН ФАКУЛЬТЕТА], ГЛ.[ГРУППА ТЕКСТ], ГЛ.[№ Ведомости], ГЛ.[от даты], ГЛ.[Ведомость выдана], ГЛ.[Сотрудник выдачи] FROM ГЛ;
` 8 `Picture `(отсутствует)
` 8 `OnOpen `[Event Procedure]
` 8 `PaletteSource `(Стандартный)
` 8 `DatasheetFontName `Arial
` 8209 `PrtMip `Prt=28
` 8209 `PrtDevMode `Prt=7380
` 8209 `PrtDevNames `Prt=59
` 8209 `Bookmark `?
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377657
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
MrShin...Вот тут обсуждение этого бага...
Лентяй, а перевести для читабельности читателей, заленился?
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377661
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ПЕНСИОНЕРКА,

ГЛАВНАЯ ===29.12.2016 12:51:23
` 8 `RecordSource `SELECT ГЛ.Код, ГЛ.ФАКУЛЬТЕТ, ГЛ.КУРС, ГЛ.СЕМЕСТР, ГЛ.ГРУППА, ГЛ.НАПРАВЛЕНИЕ, ГЛ.ЭКЗАМЕНАТОР, ГЛ.ДИСЦИПЛИНА, ГЛ.[КОЛ ВО ЧАСОВ], ГЛ.[КОЛ ВО ЕД], ГЛ.[ДЕКАН ФАКУЛЬТЕТА], ГЛ.[ГРУППА ТЕКСТ], ГЛ.[№ Ведомости], ГЛ.[от даты], ГЛ.[Ведомость выдана], ГЛ.[Сотрудник выдачи] FROM ГЛ;
` 8 `Picture `(отсутствует)
` 8 `OnOpen `[Event Procedure]
` 8 `PaletteSource `(Стандартный)
` 8 `DatasheetFontName `Arial
` 8209 `PrtMip `Prt=28
` 8209 `PrtDevMode `Prt=7380
` 8209 `PrtDevNames `Prt=59
` 8209 `Bookmark `
` 8 `Name `ГЛАВНАЯ
` 8209 `PictureData `0
` 8209 `ImageData `0
` 8209 `PrtDevModeW `Prt=7412
` 8209 `PrtDevNamesW `Prt=115
Код ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Код
` 8 `Name `Код
` 8 `ControlSource `Код
` 8 `FontName `Arial
` 8 `Text `###
` 8 `SelText `###
Надпись0 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Надпись0
` 8 `Name `Надпись0
` 8 `Caption `Код
` 8 `FontName `Arial
ФАКУЛЬТЕТ ===29.12.2016 12:51:23
` 8 `EventProcPrefix `ФАКУЛЬТЕТ
` 8 `Name `ФАКУЛЬТЕТ
` 8 `ControlSource `ФАКУЛЬТЕТ
` 8 `ColumnWidths `0;1440
` 8 `ListWidth `1440
` 8 `FontName `Arial
` 8 `RowSource `SELECT [ФАК].[Код], [ФАК].[ФАКУЛЬТЕТ] FROM ФАК;
` 8 `RowSourceType `Table/Query
` 8 `Text `###
` 8 `SelText `###
Надпись1 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Надпись1
` 8 `Name `Надпись1
` 8 `Caption `ФАКУЛЬТЕТ
` 8 `FontName `Arial
КУРС ===29.12.2016 12:51:23
` 8 `EventProcPrefix `КУРС
` 8 `Name `КУРС
` 8 `ControlSource `КУРС
` 8 `ColumnWidths `1440
` 8 `ListWidth `1440
` 8 `FontName `Arial
` 8 `RowSource `1;2;3;4;5;6
` 8 `RowSourceType `Value List
` 8 `Text `###
` 8 `SelText `###
Надпись2 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Надпись2
` 8 `Name `Надпись2
` 8 `Caption `КУРС
` 8 `FontName `Arial
СЕМЕСТР ===29.12.2016 12:51:23
` 8 `EventProcPrefix `СЕМЕСТР
` 8 `Name `СЕМЕСТР
` 8 `ControlSource `СЕМЕСТР
` 8 `ColumnWidths `1440
` 8 `ListWidth `1440
` 8 `FontName `Arial
` 8 `RowSource `1;2;3;4;5;6;7;8;9;10
` 8 `RowSourceType `Value List
` 8 `Text `###
` 8 `SelText `###
Надпись3 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Надпись3
` 8 `Name `Надпись3
` 8 `Caption `СЕМЕСТР
` 8 `FontName `Arial
ГРУППА ===29.12.2016 12:51:23
` 8 `EventProcPrefix `ГРУППА
` 8 `Name `ГРУППА
` 8 `ControlSource `ГРУППА
` 8 `ColumnWidths `0;1440
` 8 `ListWidth `1440
` 8 `FontName `Arial
` 8 `RowSource `SELECT [ГРУП].[Код], [ГРУП].[ГРУППА] FROM ГРУП;
` 8 `RowSourceType `Table/Query
` 8 `Text `###
` 8 `SelText `###
Надпись4 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Надпись4
` 8 `Name `Надпись4
` 8 `Caption `ГРУППА
` 8 `FontName `Arial
НАПРАВЛЕНИЕ ===29.12.2016 12:51:23
` 8 `EventProcPrefix `НАПРАВЛЕНИЕ
` 8 `Name `НАПРАВЛЕНИЕ
` 8 `ControlSource `НАПРАВЛЕНИЕ
` 8 `ColumnWidths `0;1440
` 8 `ListWidth `1440
` 8 `FontName `Arial
` 8 `RowSource `SELECT [НАПР].[Код], [НАПР].[НАПРАВЛЕНИЕ] FROM НАПР;
` 8 `RowSourceType `Table/Query
` 8 `Text `###
` 8 `SelText `###
Надпись5 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Надпись5
` 8 `Name `Надпись5
` 8 `Caption `НАПРАВЛЕНИЕ
` 8 `FontName `Arial
ЭКЗАМЕНАТОР ===29.12.2016 12:51:23
` 8 `EventProcPrefix `ЭКЗАМЕНАТОР
` 8 `Name `ЭКЗАМЕНАТОР
` 8 `ControlSource `ЭКЗАМЕНАТОР
` 8 `ColumnWidths `0;1440
` 8 `ListWidth `1440
` 8 `FontName `Arial
` 8 `RowSource `SELECT [ПРЕПО].[Код], [ПРЕПО].[ПРЕПОДОВАТЕЛЬ] FROM ПРЕПО;
` 8 `RowSourceType `Table/Query
` 8 `Text `###
` 8 `SelText `###
Надпись6 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Надпись6
` 8 `Name `Надпись6
` 8 `Caption `ЭКЗАМЕНАТОР
` 8 `FontName `Arial
ДИСЦИПЛИНА ===29.12.2016 12:51:23
` 8 `EventProcPrefix `ДИСЦИПЛИНА
` 8 `Name `ДИСЦИПЛИНА
` 8 `ControlSource `ДИСЦИПЛИНА
` 8 `ColumnWidths `0;1440
` 8 `ListWidth `1440
` 8 `FontName `Arial
` 8 `RowSource `SELECT [ДИСЦ].[Код], [ДИСЦ].[ДИС] FROM ДИСЦ;
` 8 `RowSourceType `Table/Query
` 8 `ListItemsEditForm `ДИСЦ
` 8 `Text `###
` 8 `SelText `###
Надпись7 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Надпись7
` 8 `Name `Надпись7
` 8 `Caption `ДИСЦИПЛИНА
` 8 `FontName `Arial
КОЛ ВО ЧАСОВ ===29.12.2016 12:51:23
` 8 `EventProcPrefix `КОЛ_ВО_ЧАСОВ
` 8 `Name `КОЛ ВО ЧАСОВ
` 8 `ControlSource `КОЛ ВО ЧАСОВ
` 8 `FontName `Arial
` 8 `Text `###
` 8 `SelText `###
Надпись8 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Надпись8
` 8 `Name `Надпись8
` 8 `Caption `КОЛ ВО ЧАСОВ
` 8 `FontName `Arial
КОЛ ВО ЕД ===29.12.2016 12:51:23
` 8 `EventProcPrefix `КОЛ_ВО_ЕД
` 8 `Name `КОЛ ВО ЕД
` 8 `ControlSource `КОЛ ВО ЕД
` 8 `FontName `Arial
` 8 `Text `###
` 8 `SelText `###
Надпись9 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Надпись9
` 8 `Name `Надпись9
` 8 `Caption `КОЛ ВО ЕД
` 8 `FontName `Arial
ГРУППА ТЕКСТ ===29.12.2016 12:51:23
` 8 `EventProcPrefix `ГРУППА_ТЕКСТ
` 8 `Name `ГРУППА ТЕКСТ
` 8 `ControlSource `ГРУППА ТЕКСТ
` 8 `FontName `Arial
` 8 `Text `###
` 8 `SelText `###
Надпись12 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Надпись12
` 8 `Name `Надпись12
` 8 `Caption `ГРУППА ТЕКСТ
` 8 `FontName `Arial
подчиненная форма ВЕД Запрос1 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `подчиненная_форма_ВЕД_Запрос1
` 8 `Name `подчиненная форма ВЕД Запрос1
` 8 `SourceObject `подчиненная форма ВЕД Запрос1
` 8 `LinkMasterFields `ГРУППА ТЕКСТ
` 8 `LinkChildFields `ГРУППА №
Кнопка14 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Кнопка14
` 8 `Name `Кнопка14
` 8 `Caption `Сформировать ведомость
` 8209 `PictureData `0
` 8 `Picture `(отсутствует)
` 8 `FontName `Arial
` 8 `OnClick `[Event Procedure]
` 8209 `ImageData `0
Надпись15 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Надпись15
` 8 `Name `Надпись15
` 8 `Caption `ВЕДОМОСТЬ
```
` 8 `FontName `Times New Roman
Кнопка16 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Кнопка16
` 8 `Name `Кнопка16
` 8 `Caption `Список Группы
` 8209 `PictureData `0
` 8 `Picture `(отсутствует)
` 8 `FontName `Arial
` 8 `OnClick `[Внедренный макрос]
` 8209 `OnClickEmMacro `Version =196611
```ColumnsShown =8
```Begin
``` Action ="OpenForm"
``` Argument ="=Г & Р & У & П"
``` Argument ="0"
``` Argument =""
``` Argument =""
``` Argument ="-1"
``` Argument ="0"
```End
```Begin
``` Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
`"nterfaceMacro For=\"Кнопка16\" xmlns=\" http://schemas.microsoft.com/office/acces"
`"sservices/2009/11/application\"><Statements><Action Name=\"OpenForm\"><Argument "
`"Name=\"FormName\">=Г &am"
```End
```Begin
``` Comment ="_AXL:p; Р' У' П</Argument></Action></Statem"
`"ents></UserInterfaceMacro>"
```End
```
` 8209 `ImageData `0
Кнопка17 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Кнопка17
` 8 `Name `Кнопка17
` 8 `Caption `СПИСОК ДИСЦИПЛИН
` 8209 `PictureData `0
` 8 `Picture `(отсутствует)
` 8 `FontName `Arial
` 8 `OnClick `[Внедренный макрос]
` 8209 `OnClickEmMacro `Version =196611
```ColumnsShown =8
```Begin
``` Action ="OpenForm"
``` Argument ="=Д & И & С & Ц"
``` Argument ="0"
``` Argument =""
``` Argument =""
``` Argument ="-1"
``` Argument ="0"
```End
```Begin
``` Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
`"nterfaceMacro For=\"Кнопка17\" xmlns=\" http://schemas.microsoft.com/office/acces"
`"sservices/2009/11/application\"><Statements><Action Name=\"OpenForm\"><Argument "
`"Name=\"FormName\">=Д &am"
```End
```Begin
``` Comment ="_AXL:p; И' С' Ц</Argument></Action></Statem"
`"ents></UserInterfaceMacro>"
```End
```
` 8209 `ImageData `0
Кнопка18 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Кнопка18
` 8 `Name `Кнопка18
` 8 `Caption `СПИСОК ПРЕп
` 8209 `PictureData `0
` 8 `Picture `(отсутствует)
` 8 `FontName `Arial
` 8 `OnClick `[Внедренный макрос]
` 8209 `OnClickEmMacro `Version =196611
```ColumnsShown =8
```Begin
``` Action ="OpenForm"
``` Argument ="=П & Р & Е & П & О"
``` Argument ="0"
``` Argument =""
``` Argument =""
``` Argument ="-1"
``` Argument ="0"
```End
```Begin
``` Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
`"nterfaceMacro For=\"Кнопка18\" xmlns=\" http://schemas.microsoft.com/office/acces"
`"sservices/2009/11/application\"><Statements><Action Name=\"OpenForm\"><Argument "
`"Name=\"FormName\">=П &am"
```End
```Begin
``` Comment ="_AXL:p; Р' Е' П' О</Argument>"
`"</Action></Statements></UserInterfaceMacro>"
```End
```
` 8209 `ImageData `0
Кнопка20 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Кнопка20
` 8 `Name `Кнопка20
` 8 `Caption `Добавить запись
` 8209 `PictureData `0
` 8 `Picture `(отсутствует)
` 8 `FontName `Arial
` 8 `OnClick `[Внедренный макрос]
` 8209 `OnClickEmMacro `Version =196611
```ColumnsShown =10
```Begin
``` Action ="OnError"
``` Argument ="0"
```End
```Begin
``` Action ="GoToRecord"
``` Argument ="-1"
``` Argument =""
``` Argument ="5"
```End
```Begin
``` Condition ="[MacroError]<>0"
``` Action ="MsgBox"
``` Argument ="=[MacroError].[Description]"
``` Argument ="-1"
``` Argument ="0"
```End
```Begin
``` Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
`"nterfaceMacro For=\"Кнопка20\" xmlns=\" http://schemas.microsoft.com/office/acces"
`"sservices/2009/11/application\"><Statements><Action Name=\"OnError\"/><Action Na"
`"me=\"GoToRecord\"><Argument Name="
```End
```Begin
``` Comment ="_AXL:\"Record\">New</Argument></Action><ConditionalBlock><If><Condition>[MacroEr"
`"ror]<>0</Condition><Statements><Action Name=\"MessageBox\"><Argument Name="
`"\"Message\">=[MacroError].[Description]</Argument></Action></Statements></If></C"
`"onditionalBlock></S"
```End
```Begin
``` Comment ="_AXL:tatements></UserInterfaceMacro>"
```End
```
` 8209 `ImageData `0
Рисунок21 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Рисунок21
` 8 `Name `Рисунок21
` 8 `Picture `Снимок
` 8209 `PictureData `0
` 8209 `ImageData `0
№ Ведомости ===29.12.2016 12:51:23
` 8 `EventProcPrefix `№_Ведомости
` 8 `Name `№ Ведомости
` 8 `ControlSource `№ Ведомости
` 8 `FontName `Arial
` 8 `Text `###
` 8 `SelText `###
Надпись22 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Надпись22
` 8 `Name `Надпись22
` 8 `Caption `№ Ведомости
` 8 `FontName `Arial
от даты ===29.12.2016 12:51:23
` 8 `EventProcPrefix `от_даты
` 8 `Name `от даты
` 8 `ControlSource `от даты
` 8 `FontName `Arial
` 8 `Text `###
` 8 `SelText `###
Надпись23 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Надпись23
` 8 `Name `Надпись23
` 8 `Caption `от даты
` 8 `FontName `Arial
Ведомость выдана ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Ведомость_выдана
` 8 `Name `Ведомость выдана
` 8 `ControlSource `Ведомость выдана
` 8 `ColumnWidths `0;1440
` 8 `ListWidth `1440
` 8 `FontName `Arial
` 8 `RowSource `SELECT [ПРЕПО].[Код], [ПРЕПО].[ПРЕПОДОВАТЕЛЬ] FROM ПРЕПО;
` 8 `RowSourceType `Table/Query
` 8 `Text `###
` 8 `SelText `###
Надпись24 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Надпись24
` 8 `Name `Надпись24
` 8 `Caption `Ведомость выдана
` 8 `FontName `Arial
Сотрудник выдачи ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Сотрудник_выдачи
` 8 `Name `Сотрудник выдачи
` 8 `ControlSource `Сотрудник выдачи
` 8 `FontName `Arial
` 8 `Text `###
` 8 `SelText `###
Надпись25 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Надпись25
` 8 `Name `Надпись25
` 8 `Caption `Сотрудник выдачи
` 8 `FontName `Arial
Кнопка26 ===29.12.2016 12:51:23
` 8 `EventProcPrefix `Кнопка26
` 8 `Name `Кнопка26
` 8 `Caption `Сохранить запись
` 8209 `PictureData `0
` 8 `Picture `(отсутствует)
` 8 `FontName `Arial
` 8 `OnClick `[Внедренный макрос]
` 8209 `OnClickEmMacro `Version =196611
```ColumnsShown =10
```Begin
``` Action ="OnError"
``` Argument ="0"
```End
```Begin
``` Action ="RunCommand"
``` Argument ="97"
```End
```Begin
``` Condition ="[MacroError]<>0"
``` Action ="MsgBox"
``` Argument ="=[MacroError].[Description]"
``` Argument ="-1"
``` Argument ="0"
```End
```Begin
``` Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
`"nterfaceMacro For=\"Кнопка26\" xmlns=\" http://schemas.microsoft.com/office/acces"
`"sservices/2009/11/application\"><Statements><Action Name=\"OnError\"/><Action Na"
`"me=\"SaveRecord\"/><ConditionalBl"
```End
```Begin
``` Comment ="_AXL:ock><If><Condition>[MacroError]<>0</Condition><Statements><Action Nam"
`"e=\"MessageBox\"><Argument Name=\"Message\">=[MacroError].[Description]</Argumen"
`"t></Action></Statements></If></ConditionalBlock></Statements></UserInterfaceMacr"
`"o>"
```End
```
` 8209 `ImageData `0
...
Рейтинг: 0 / 0
25 сообщений из 50, страница 1 из 2
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / преобразование макроса в код VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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