|
преобразование макроса в код 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 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
ПЕНСИОНЕРКАpimsВозможно дурацкий вопрос, но не работает функция преобразования макроса в код VBA. скопируйте внедренный макрос в обычный обычный переводится, правда не всегда корректно Я уже реколмендовал, но ТС похоже как и я - Великий паталогический лентяй . тем более в БД таких внедренных макросов может быть - Сотни . Даже я бы наверное обломался так делать. Хотя если 20-30. не поленился бы. ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 13:58 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
ПЕНСИОНЕРКА, Согласен, Мы - Владимирские - САМЫЕ НЕ ЛЕНТЯИ , а САМЫЕ ТРУДОЛЮБИВЫЕ . ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 14:01 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
Да в SP1 к 2010 этот баг поправили, а в 2013 он опять появился. У меня 2010 нормально конвертирует. Если там меньше полусотни форм, могу сконвертировать. ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 14:02 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
коллеги подскажите-макросами не пользуюсь, но иногда здесь, на форуме, смотришь приложенную базу и видишь в списке,открывающемся на событиях, в свойствах, "внедренный макрос"-как увидеть его текст или удалить нахфиг (если это возможно, лень искать да и не очень-то надо, может кто подскажет и как он появляется/создается) ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 15:23 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
ПыСы: Акцесс2007 ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 15:25 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
sdku,если нет 2007 и выше, то не увидеть, и нужно ли это вам? Вы же не того похоже калибра? Но если уж так шибко нужно, то вспоминается, что когда пробовал перейти на 2007, то находясь в свойстве- элемента формы выбирал или процедуру или макрос и там уже прописывал таковой. Показалось очень заумно, решил перейти на процедуры, как советовали старшие товарищи. Не каюсь. Хоть много го и не знаю, но когда спрошу, то всегда подскажут. Согласен, что в 2000-03 по человечески понятно прописано, для чего и чего именно сделать макросом можно, никак со временем понял не Все. ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 15:35 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
ой как сожалею, что переметнулся с 97 на 2010 аксес... да еще с 15 летним перерывом в работе по данному направлению... короче, накатил все обновления, что предложила винда, в том числе и для 2010 аксеса, но лыжи не едут... да и ладно, не критично... ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 15:41 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
ЛапухMrShin...Вот тут обсуждение этого бага... Лентяй, а перевести для читабельности читателей, заленился? Лапух... , но ТС похоже как и я - Великий паталогический лентяй.... Лапух ПЕНСИОНЕРКА, Согласен, Мы - Владимирские - САМЫЕ НЕ ЛЕНТЯИ , а САМЫЕ ТРУДОЛЮБИВЫЕ . на CF фонтану дали отдохнуть месяц, теперь тут флуда не оберешься... ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 15:45 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
Не знаю. Работал на всех версиях Акцесса, начиная с версии 2 и до 2016, считаю 2010 лучшим - пока не начали резать все подряд в угоду ненужного веба. На 2003 и уж тем более на 97 совершенно не хочется возвращаться. ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 15:50 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
pims...ой как сожалею, что переметнулся с 97 на 2010 аксес... Если это типа цынизм, тут каждому самому решать и имеется сожаление, что в 2000-03 не уверовали. pims...в том числе и для 2010 аксеса, но лыжи не едут... да и ладно, не критично... Для БД - Критично, лыжы должны ехать, иначе, зачем такая БД, стоило ли её ТАКУЮ делать - Неработающую? Хотя, всё возможно, у меня наверное ещё больще тараканов в голове, тоже типа для образца есть с сотню не работающих как надо БД, а то со временем и не вспомнишь как НЕ НАДО делать, пару раз даже приходилось извращаться, да бы показать как _НЕ НУЖНО, но это уже было в 10-20 раз труднее, чем как - НУЖНО. Парадокс прям какой та. ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 15:53 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
sdkuв свойствах, "внедренный макрос"-как увидеть его текст или удалить нахфиг увидеть или создать новый - нажать на кнопку с тремя точками в поле события, удалить - просто удалить текст "[внедренный макрос]" или заменить его на что-то другое. ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 15:54 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
sdkuколлеги подскажите-макросами не пользуюсь, но иногда здесь, на форуме, смотришь приложенную базу и видишь в списке,открывающемся на событиях, в свойствах, "внедренный макрос"-как увидеть его текст или удалить нахфиг (если это возможно, лень искать да и не очень-то надо, может кто подскажет и как он появляется/создается) я часто пользуюсь замоделками типа преобразование макроса в код VBA ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 16:31 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
вывожу для форм/отчетов --имя контрола --имя данных --макрос в читаемом виде(почистить правда надо как нибудь код) ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 16:34 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
Лапухpims...ой как сожалею, что переметнулся с 97 на 2010 аксес... Если это типа цынизм, тут каждому самому решать и имеется сожаление, что в 2000-03 не уверовали. off top: это констатация факта, достаточно большой промежуток времени занимался совершенно иными делами, далекими от аксеса ... |
|||
:
Нравится:
Не нравится:
|
|||
29.12.2016, 20:37 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
Добрый день. Теперь возник вопрос из другой области. Еще в декабре создал макросы данных для некоторых таблиц, теперь возникла необходимость кое-что в них подправить. Но кнопки на панели, которые отвечают за доступ к данным функциям почему-то заблокированы (обвел красным на скрине). Уже пробовал и монопольно открывать - все равно не могу войти в данный функционал... Что делаю не так? ... |
|||
:
Нравится:
Не нравится:
|
|||
28.01.2017, 12:55 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
pims....создал макросы данных для некоторых таблиц....И хде они находятся, как запускаются, какие действия выполняют: короче-поподробней ... |
|||
:
Нравится:
Не нравится:
|
|||
28.01.2017, 13:14 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
все, разобрался... надо было поставить в настройках текущей базы разрешение "включение изменений в структуре таблиц в табличном представлении", а я его ранее отключал, думал не нужно более... ... |
|||
:
Нравится:
Не нравится:
|
|||
28.01.2017, 13:16 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
pimsв декабре создал макросы данных для некоторых таблиц ни разу не создавала, даже не представляю, как выглядят ---может пример базы с подобной новинкой выложите у меня а2010 ... |
|||
:
Нравится:
Не нравится:
|
|||
28.01.2017, 13:16 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
ПЕНСИОНЕРКА, вот, пример, правда сильно порезанная база, но понять можно. Лог изменений пишется в таблицу с окончанием _log ... |
|||
:
Нравится:
Не нравится:
|
|||
28.01.2017, 15:23 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
pims, хотела найти, где этот макрос хранится ---не нашла попыталась скопировать и вставить в простой макрос(для внедренных --проходит) т --не вышло затем вставила скопированное в блокнот и получила (немного конечно подредактировала для читабельности Код: xml 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. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. 66. 67. 68. 69. 70. 71. 72. 73. 74. 75. 76. 77. 78. 79. 80. 81. 82. 83. 84. 85. 86. 87. 88. 89. 90. 91. 92. 93.
... |
|||
:
Нравится:
Не нравится:
|
|||
28.01.2017, 21:16 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
pims, пример после изменения(усечен) Код: xml 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.
... |
|||
:
Нравится:
Не нравится:
|
|||
28.01.2017, 21:29 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
pims, У меня прекрасно макросы все видны, у меня 2010. В другой версии не открывали/сохраняли? ... |
|||
:
Нравится:
Не нравится:
|
|||
30.01.2017, 12:38 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
pimsНо кнопки на панели, которые отвечают за доступ к данным функциям почему-то заблокированы (обвел красным на скрине).таблицу надо открыть в режиме конструктора ... |
|||
:
Нравится:
Не нравится:
|
|||
30.01.2017, 13:22 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
pims, хотя и в режиме открытия --все видно ... |
|||
:
Нравится:
Не нравится:
|
|||
30.01.2017, 13:28 |
|
преобразование макроса в код VBA
|
|||
---|---|---|---|
#18+
ПЕНСИОНЕРКА, Так ведь ТС уже объяснил 20156416 pimsвсе, разобрался... надо было поставить в настройках текущей базы разрешение "включение изменений в структуре таблиц в табличном представлении", а я его ранее отключал, думал не нужно более... ... |
|||
:
Нравится:
Не нравится:
|
|||
30.01.2017, 14:07 |
|
|
start [/forum/topic.php?all=1&fid=45&tid=1612767]: |
0ms |
get settings: |
9ms |
get forum list: |
12ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
180ms |
get topic data: |
11ms |
get forum data: |
2ms |
get page messages: |
68ms |
get tp. blocked users: |
1ms |
others: | 9ms |
total: | 300ms |
0 / 0 |