Форум русскоязычного сообщества Ubuntu


Увидели сообщение с непонятной ссылкой, спам, непристойность или оскорбление?
Воспользуйтесь ссылкой «Сообщить модератору» рядом с сообщением!

Автор Тема: Макрос OpenOffice Base  (Прочитано 1647 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн kaziev-95

  • Автор темы
  • Участник
  • *
  • Сообщений: 228
  • Ставь Ubuntu
    • Просмотр профиля
    • Убунту для жизни
Макрос OpenOffice Base
« : 16 Ноября 2015, 18:02:37 »
Доброго времени суток. Есть БД с таблицей клиенты, в которой столбцы Наименование, Учредитель, Состояние и Подразделение.
Есть форма, на которой текст, Текстовое поле и таблица. Нужен макрос, что бы при вводе данных в текстовое поле выполнял поиск по таблице клиенты и результат выводил в таблицу на форме.

Пробовал создать по этой инструкции, но макрос отказывается работать (Вариант 1)  - https://wiki.openoffice.org/wiki/RU/kb/50000002\

Заранее спасибо!

Оффлайн spk-ubuntu

  • Активист
  • *
  • Сообщений: 502
    • Просмотр профиля
Re: Макрос OpenOffice Base
« Ответ #1 : 17 Ноября 2015, 19:29:05 »
Только что попробовал сделать по мануалу - всё работает.
Посмотрите - может у Вас просто макросы отключены? Сервис/Параметры/Безопасность, кнопка "Безопасн.макросов...", на закладке "Уровень безопасности" поставить переключатель на "Средний". Потом перезайти в LO Base и на вопрос разрешить ли макросы ответить утвердительно.

Пользователь решил продолжить мысль 17 Ноября 2015, 19:39:06:
И проверьте, поменяли ли Вы в коде макроса имя поля, по которому фильтруете:
Цитировать
oForm.Filter = "Наименование like '" & oControl.Text & "*'"
Ну и заодно что форма, в которой расположена таблица с данными называется MainForm, а текстовое поле расположено в другой форме - как нарисовано в мануале:
(Нажмите, чтобы показать/скрыть)
« Последнее редактирование: 17 Ноября 2015, 19:39:07 от spk-ubuntu »

Оффлайн kaziev-95

  • Автор темы
  • Участник
  • *
  • Сообщений: 228
  • Ставь Ubuntu
    • Просмотр профиля
    • Убунту для жизни
Re: Макрос OpenOffice Base
« Ответ #2 : 18 Ноября 2015, 18:47:35 »
Все сделал так же, но не работает. Человек добрый, не мог бы ты посмотреть БД, и попробовать исправить?
Скачать - https://drive.google.com/file/d/0B88wQgBMo_sja1VEZkQ0c0Raa1U/view?usp=sharing

Оффлайн spk-ubuntu

  • Активист
  • *
  • Сообщений: 502
    • Просмотр профиля
Re: Макрос OpenOffice Base
« Ответ #3 : 18 Ноября 2015, 20:43:38 »
см. https://cloud.mail.ru/public/EMBA/KMZAr34or
Только я не понял куда Вы макрос вписали. Его в этой базе не было.
Также имхо не стоит в названиях полей использовать что-либо кроме букв и цифр (ну может быть ещё подчеркиваний). Даже использование кириллицы - это вопрос дискуссионный, а уж "Наименование/Ф.И.О." - это совсем перегиб.
И ещё - чтобы искалось без учёта регистра (что наверное было бы удобно), нужно тип этого поля поменять на "VARCHAR_IGNORECASE".

Оффлайн kaziev-95

  • Автор темы
  • Участник
  • *
  • Сообщений: 228
  • Ставь Ubuntu
    • Просмотр профиля
    • Убунту для жизни
Re: Макрос OpenOffice Base
« Ответ #4 : 19 Ноября 2015, 18:47:32 »
Спасибо большое. Все работает. Макрос у меня точно был. Возможно это ошибка LibreOffice 5.0

Пользователь решил продолжить мысль [time]19 Ноябрь 2015, 20:05:45[/time]:
А нет идей, как реализовать поиск по всем столбцам одновременно?
« Последнее редактирование: 19 Ноября 2015, 19:07:50 от kaziev-95 »

Оффлайн spk-ubuntu

  • Активист
  • *
  • Сообщений: 502
    • Просмотр профиля
Re: Макрос OpenOffice Base
« Ответ #5 : 19 Ноября 2015, 23:31:57 »
А нет идей, как реализовать поиск по всем столбцам одновременно?
oForm.Filter = "(""Наименование/Ф.И.О."" like '" & oControl.Text & "*') OR (""Учредитель 1"" like '" & oControl.Text & "*')"

Оффлайн kaziev-95

  • Автор темы
  • Участник
  • *
  • Сообщений: 228
  • Ставь Ubuntu
    • Просмотр профиля
    • Убунту для жизни
Re: Макрос OpenOffice Base
« Ответ #6 : 24 Ноября 2015, 00:06:53 »
Спасибо огромное. Без тебя не справился бы. Действительно проблема была в версии 5.0.0.5, которая у меня установлена на работе. Дома на 5.0.3.2 при работе с макросами проблем нет. Если повезет, то как минимум на два десятка пк будем устанавливать LO.

 

Страница сгенерирована за 0.051 секунд. Запросов: 25.