powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / преобразование макроса в код VBA
50 сообщений из 50, показаны все 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
преобразование макроса в код VBA
    #39377665
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ПЕНСИОНЕРКАpimsВозможно дурацкий вопрос, но не работает функция преобразования макроса в код VBA.

скопируйте внедренный макрос в обычный
обычный переводится, правда не всегда корректно
Я уже реколмендовал, но ТС похоже как и я - Великий паталогический лентяй . тем более в БД таких внедренных макросов может быть - Сотни .
Даже я бы наверное обломался так делать.
Хотя если 20-30. не поленился бы.
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377668
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ПЕНСИОНЕРКА,
Согласен, Мы - Владимирские - САМЫЕ НЕ ЛЕНТЯИ , а САМЫЕ ТРУДОЛЮБИВЫЕ .
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377670
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да в SP1 к 2010 этот баг поправили, а в 2013 он опять появился. У меня 2010 нормально конвертирует. Если там меньше полусотни форм, могу сконвертировать.
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377743
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
коллеги подскажите-макросами не пользуюсь, но иногда здесь, на форуме, смотришь приложенную базу и видишь в списке,открывающемся на событиях, в свойствах, "внедренный макрос"-как увидеть его текст или удалить нахфиг (если это возможно, лень искать да и не очень-то надо, может кто подскажет и как он появляется/создается)
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377746
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ПыСы: Акцесс2007
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377758
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sdku,если нет 2007 и выше, то не увидеть, и нужно ли это вам?
Вы же не того похоже калибра?
Но если уж так шибко нужно, то вспоминается, что когда пробовал перейти на 2007, то находясь в свойстве- элемента формы выбирал или процедуру или макрос и там уже прописывал таковой.
Показалось очень заумно, решил перейти на процедуры, как советовали старшие товарищи.
Не каюсь.
Хоть много го и не знаю, но когда спрошу, то всегда подскажут.
Согласен, что в 2000-03 по человечески понятно прописано, для чего и чего именно сделать макросом можно, никак со временем понял не Все.
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377764
pims
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ой как сожалею, что переметнулся с 97 на 2010 аксес... да еще с 15 летним перерывом в работе по данному направлению...

короче, накатил все обновления, что предложила винда, в том числе и для 2010 аксеса, но лыжи не едут...
да и ладно, не критично...
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377770
ну вот
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ЛапухMrShin...Вот тут обсуждение этого бага...
Лентяй, а перевести для читабельности читателей, заленился? Лапух... , но ТС похоже как и я - Великий паталогический лентяй.... Лапух ПЕНСИОНЕРКА,
Согласен, Мы - Владимирские - САМЫЕ НЕ ЛЕНТЯИ , а САМЫЕ ТРУДОЛЮБИВЫЕ . на CF фонтану дали отдохнуть месяц, теперь тут флуда не оберешься...
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377778
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не знаю. Работал на всех версиях Акцесса, начиная с версии 2 и до 2016, считаю 2010 лучшим - пока не начали резать все подряд в угоду ненужного веба. На 2003 и уж тем более на 97 совершенно не хочется возвращаться.
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377782
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pims...ой как сожалею, что переметнулся с 97 на 2010 аксес...
Если это типа цынизм, тут каждому самому решать и имеется сожаление, что в 2000-03 не уверовали.

pims...в том числе и для 2010 аксеса, но лыжи не едут...
да и ладно, не критично...
Для БД - Критично, лыжы должны ехать, иначе, зачем такая БД, стоило ли её ТАКУЮ делать - Неработающую?
Хотя, всё возможно, у меня наверное ещё больще тараканов в голове, тоже типа для образца есть с сотню не работающих как надо БД, а то со временем и не вспомнишь как НЕ НАДО делать, пару раз даже приходилось извращаться, да бы показать как _НЕ НУЖНО, но это уже было в 10-20 раз труднее, чем как - НУЖНО.
Парадокс прям какой та.
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377783
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sdkuв свойствах, "внедренный макрос"-как увидеть его текст или удалить нахфиг
увидеть или создать новый - нажать на кнопку с тремя точками в поле события, удалить - просто удалить текст "[внедренный макрос]" или заменить его на что-то другое.
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377817
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sdkuколлеги подскажите-макросами не пользуюсь, но иногда здесь, на форуме, смотришь приложенную базу и видишь в списке,открывающемся на событиях, в свойствах, "внедренный макрос"-как увидеть его текст или удалить нахфиг (если это возможно, лень искать да и не очень-то надо, может кто подскажет и как он появляется/создается)
я часто пользуюсь замоделками типа преобразование макроса в код VBA
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377820
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вывожу для форм/отчетов
--имя контрола
--имя данных
--макрос в читаемом виде(почистить правда надо как нибудь код)
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39377962
pims
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Лапухpims...ой как сожалею, что переметнулся с 97 на 2010 аксес...
Если это типа цынизм, тут каждому самому решать и имеется сожаление, что в 2000-03 не уверовали.
off top: это констатация факта, достаточно большой промежуток времени занимался совершенно иными делами, далекими от аксеса
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39393707
pims
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день.
Теперь возник вопрос из другой области. Еще в декабре создал макросы данных для некоторых таблиц, теперь возникла необходимость кое-что в них подправить. Но кнопки на панели, которые отвечают за доступ к данным функциям почему-то заблокированы (обвел красным на скрине). Уже пробовал и монопольно открывать - все равно не могу войти в данный функционал... Что делаю не так?
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39393718
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pims....создал макросы данных для некоторых таблиц....И хде они находятся, как запускаются, какие действия выполняют: короче-поподробней
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39393719
pims
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
все, разобрался... надо было поставить в настройках текущей базы разрешение "включение изменений в структуре таблиц в табличном представлении", а я его ранее отключал, думал не нужно более...
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39393720
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pimsв декабре создал макросы данных для некоторых таблиц

ни разу не создавала, даже не представляю, как выглядят
---может пример базы с подобной новинкой выложите
у меня а2010
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39393752
pims
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ПЕНСИОНЕРКА,
вот, пример, правда сильно порезанная база, но понять можно. Лог изменений пишется в таблицу с окончанием _log
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39393849
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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.
<?xml version="1.0" encoding="UTF-16" standalone="no"?> 
<DataMacros xmlns="http://schemas.microsoft.com/office/accessservices/2009/11/application">
<DataMacro Event="AfterDelete">
<Statements>
<CreateRecord>
<Data>	<Reference>Таблица_звонков_log</Reference>	</Data>
<Statements>
	<Action Name="SetField">
	<Argument Name="Field">Дата_звонка_old</Argument>
	<Argument Name="Value">[Old].[Дата_звонка]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">цвет_телефона_Код_old</Argument>
	<Argument Name="Value">[Old].[цвет_телефона_Код]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">тема_звонка_Код_old</Argument>
	<Argument Name="Value">[Old].[тема_звонка_Код]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">ФИО_клиента_old</Argument>
	<Argument Name="Value">[Old].[ФИО_клиента]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">Контакты_old</Argument>
	<Argument Name="Value">[Old].[Контакты]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">e-mail_old</Argument>
	<Argument Name="Value">[Old].[e-mail]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">агенство_old</Argument>
	<Argument Name="Value">[Old].[агенство]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">дата_мероприятия_old</Argument>
	<Argument Name="Value">[Old].[дата_мероприятия]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">кол_взрослых_old</Argument>
	<Argument Name="Value">[Old].[кол_взрослых]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">кол_детей_old</Argument>
	<Argument Name="Value">[Old].[кол_детей]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">ID_менеджер_работа_old</Argument>
	<Argument Name="Value">[Old].[ID_менеджер_работа]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">зал_Код_old</Argument>
	<Argument Name="Value">[Old].[зал_Код]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">статус_звонка_Код_old</Argument>
	<Argument Name="Value">[Old].[статус_звонка_Код]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">хостес_Код_old</Argument>
	<Argument Name="Value">[Old].[хостес_Код]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">дата_ориент_месяц_old</Argument>
	<Argument Name="Value">[Old].[дата_ориент_месяц]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">дата_ориент_год_old</Argument>
	<Argument Name="Value">[Old].[дата_ориент_год]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">Содержание_разговора_old</Argument>
	<Argument Name="Value">[Old].[Содержание_разговора]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">data_change</Argument>
	<Argument Name="Value">Now()</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">type_change</Argument>
	<Argument Name="Value">"Удаление"</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">user</Argument>
	<Argument Name="Value">[Old].[user]</Argument>
	</Action>
</Statements>

</CreateRecord>
</Statements>
</DataMacro>
</DataMacros>
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39393854
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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.
<?xml version="1.0" encoding="UTF-16" standalone="no"?>
<DataMacros xmlns="http://schemas.microsoft.com/office/accessservices/2009/11/application">
<DataMacro Event="AfterUpdate">
<Statements>
<CreateRecord>
<Data><Reference>Таблица_звонков_log</Reference></Data>
<Statements>
	<Action Name="SetField">
	<Argument Name="Field">Дата_звонка_new</Argument>
	<Argument Name="Value">[Таблица_звонков].[Дата_звонка]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">Дата_звонка_old</Argument>
	<Argument Name="Value">[Old].[Дата_звонка]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">цвет_телефона_Код_new</Argument>
	<Argument Name="Value">[Таблица_звонков].[цвет_телефона_Код]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">цвет_телефона_Код_old</Argument>
	<Argument Name="Value">[Old].[цвет_телефона_Код]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">тема_звонка_Код_new</Argument>
	<Argument Name="Value">[Таблица_звонков].[тема_звонка_Код]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">тема_звонка_Код_old</Argument>
	<Argument Name="Value">[Old].[тема_звонка_Код]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">ФИО_клиента_new</Argument>
	<Argument Name="Value">[Таблица_звонков].[ФИО_клиента]</Argument>
	</Action>
	<Action Name="SetField">
	<Argument Name="Field">ФИО_клиента_old</Argument>
	<Argument Name="Value">[Old].[ФИО_клиента]</Argument>
	</Action>
	

.......
</Statements>
</CreateRecord>
</Statements>
</DataMacro>
</DataMacros>
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39394525
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pims,

У меня прекрасно макросы все видны, у меня 2010. В другой версии не открывали/сохраняли?
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39394582
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pimsНо кнопки на панели, которые отвечают за доступ к данным функциям почему-то заблокированы (обвел красным на скрине).таблицу надо открыть в режиме конструктора
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39394590
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pims,

хотя и в режиме открытия --все видно
...
Рейтинг: 0 / 0
преобразование макроса в код VBA
    #39394655
хм-м-м
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ПЕНСИОНЕРКА,
Так ведь ТС уже объяснил 20156416 pimsвсе, разобрался... надо было поставить в настройках текущей базы
разрешение "включение изменений в структуре таблиц в табличном представлении",
а я его ранее отключал, думал не нужно более...
...
Рейтинг: 0 / 0
50 сообщений из 50, показаны все 2 страниц
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / преобразование макроса в код VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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