|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
Добрый день. Возможно дурацкий вопрос, но не работает функция преобразования макроса в код VBA. При попытке преобразования макроса появляется сообщение "Ошибка при открытии макроса [внедренный макрос], продолжить?". Жму "Продолжить", сообщение "Преобразование закончено" и ничего не преобразовывается. C чем может быть связано? Access 2010 установлен полностью, со всеми добавками, мастерами и прочим. ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 12:03 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
PS при чем это именно при преобразовании макроса в форме. Обычный макрос преобразуется нормально, например Autoexec ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 12:11 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
Такое поведение наблюдается для любого макроса или для одного конкретного? ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 12:18 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
pims, что такое "макрос в форме"? ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 12:19 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
Анатолий ( Киев )pims, что такое "макрос в форме"? Если ни чего не путаю, то в 2007 и выше, появилась какая та фишка, типа - не в отдельном макросе, - как объекте БД писать макрос, а почти у любого элемента во внутренностях прописывать сам макрос. ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 12:32 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
Анатолий ( Киев ), Лапух прав, именно так. Каждому элементу в форме может быть прикреплен макрос. И именно его преобразовать не удается. Не какой-то конкретный, а абсолютно любой ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 12:34 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
pimsАнатолий ( Киев ), Лапух прав, именно так. Каждому элементу в форме может быть прикреплен макрос. И именно его преобразовать не удается. Не какой-то конкретный, а абсолютно любой Ни когда не пробовал, но в голову залетело такое. Создать отдельный макрос как объект БД и из всех элементов форм скопировать в туда маклосы элементов. Для начала парочку. Если получится преобразовать, то и все остальные кидайте в туда и преобразовывайте. Хотя помню. когда тоже давно макросами баловался не все макросы преобразовывались в процедуры. ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 12:39 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
А это происходит только в одной форме? Только в одной базе? Похоже на повреждение. ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 12:39 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
MrShin, это происходит в любой форме, в любой базе ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 12:45 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
pimsMrShin, это происходит в любой форме, в любой базе Вме обычно помогает - Сжать и восстановить БД или Просто Создать - НОВУЮ ЧИСТУЮ БД и Импортировать в неё ВСЁ из глюченной БД. ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 12:49 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
Лапух, смысл понятен, но как такое сделать даже не представляю ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 12:50 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
pimsЛапух, ...но как такое сделать... Что именно - такое? ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 12:51 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
Лапух, в абсолютно новой чистой базе это происходит, уже пробовал ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 12:51 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
ЛапухpimsАнатолий ( Киев ), Лапух прав, именно так. Каждому элементу в форме может быть прикреплен макрос. И именно его преобразовать не удается. Не какой-то конкретный, а абсолютно любой Ни когда не пробовал, но в голову залетело такое. Создать отдельный макрос как объект БД и из всех элементов форм скопировать в туда маклосы элементов. Для начала парочку. Если получится преобразовать, то и все остальные кидайте в туда и преобразовывайте. Хотя помню. когда тоже давно макросами баловался не все макросы преобразовывались в процедуры. вот это не представляю ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 12:52 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
pims, Раз ни кто чего то про возможности 2007 и выше не может объяснить. то попытаюсь на пальцах. т. к. у меня Акс 2000. а про 2007 и выше версии только примерно представляю, НО У вас же наверное можно - Создать макрос, как отдельный объект БД, типа таблицы. формы, запроса, отчета? Как к примеру вы создаете запрос? Ищете спец кнопку и жмете на неё п панели меню. Так же скорее всего есть соответствующая кнопка, для создания макроса. Жмите и он создастся. Открывайте его в режиме конструктора и копируйте в него какой ни то макрос из объекта формы. Потом через пустую строчку другой мактос и т. д. Вот кстати порыскал по сусекам и нашел примерчик. В - mdb (2000-03) это визуально выглядит вот так, и в событии нужно ссылаться на ИМЯ МАКРОСА. ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 13:04 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
Лапух, да, как вариант, но это костыли.. хотелось бы узнать причину и исправить Попробую - отпишусь ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 13:18 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
А какая версия офиса? Сервиспаки-патчи накачены? Был такой баг, позже его исправили. ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 13:22 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
pimsЛапух прав, именно так. Каждому элементу в форме может быть прикреплен макрос. И именно его преобразовать не удается. Не какой-то конкретный, а абсолютно любой Охренеть! Большинство посетителей форума считает макросы тупиковой ветвью Акса и признают только Autoexec и AutoKeys, а тут такое новшество, и, как обычео, кривое... pims, нет в макросах ничего такого, что нельзя было бы сделать процедурой VBA c использованием методов DoCmd или других методов, часто более удобных (например поиск или перемещение по записям на форме). ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 13:25 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
Вот тут обсуждение этого бага. Накатывайте патчи. ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 13:28 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
Анатолий ( Киев )нет в макросах ничего такого, что нельзя было бы сделать процедурой VBA Увы, если разрабатывается веб приложение, то там VBA нельзя использовать, только эти уродские макросы. ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 13:30 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
Анатолий ( Киев )...Охренеть! Большинство посетителей форума считает макросы тупиковой ветвью Акса и признают только Autoexec и AutoKeys, Некоторые знакомые зелёные человечки рассказывали мне, что в некоторых тарелках у них в ЭВМ, ещё до сих пор используются макросы и на скорость межзвёздных перелётов они не шибко влияють. Хотя, последнее время, глядя на нас - Землян. тоже на процедуры стали переходить. Я тоже, грешил этим раньше, но лет так 10 назад, прочуял большие возможности VBA, ТС видимо тоже, вот и хочет преобразовать макросы в процедуры без особого напряга, что ЕСТЬ ХОРОШО . Я на себе конечно ощютил, что ТУТ так принято ржать над нами начинающими, но как говорится - Грешно смеяться над больными, решившими выздороветь. У нас на работе даже есть комп с 1997 офисом и ни чего, работающие на нем не парятся даже, функционала даже наверное поболее в 2 чем, в 2016 Аксе. ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 13:48 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
pimsВозможно дурацкий вопрос, но не работает функция преобразования макроса в код VBA. скопируйте внедренный макрос в обычный обычный переводится, правда не всегда корректно ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 13:48 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
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 `? ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 13:52 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
MrShin...Вот тут обсуждение этого бага... Лентяй, а перевести для читабельности читателей, заленился? ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 13:53 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
ПЕНСИОНЕРКА, ГЛАВНАЯ ===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 ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 13:56 |
|
|
start [/forum/topic.php?fid=45&fpage=84&tid=1612767]: |
0ms |
get settings: |
7ms |
get forum list: |
10ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
24ms |
get topic data: |
11ms |
get forum data: |
2ms |
get page messages: |
103ms |
get tp. blocked users: |
2ms |
others: | 12ms |
total: | 177ms |
0 / 0 |