Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

22 Январь 2022, 21:37 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Доступно и просто о работе в офисных пакетах
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Как заставить работать форму при изменении свойств?  (Прочитано 353 раз)
0 Пользователей и 1 Гость смотрят эту тему.
smagluk
Участник
**
Offline Offline

Сообщений: 8


« Стартовое сообщение: 11 Декабрь 2021, 14:21 »

Есть форма с таблицей. В этой форма размещена субформа с другой связанной таблицей. BASE .  Необходимо при постановке отметки в чекбоксе, разрешить редактирование строк в таблице.
Написал небольшой макрос, но он не работает.
Вставляю отладку , xray. И он (код) начинает работать.
Код:
sub Main

'Получаем значение состояния Чекбокса
oValueChekBox = ThisComponent.DrawPage.getByIndex(2).Control.getCurrentValue
oValueForm = ThisComponent.DrawPage.Forms.getByName("MainForm")
 ' xray oValueForm
If oValueChekBox = 0 Then

oValueForm.SetPropertyValue("AllowUpdates", False)
oValueForm.SetPropertyValue("AllowDeletes", False)  
oValueForm.SetPropertyValue("AllowInserts", False)
oValueForm.reload()

Else

oValueForm.SetPropertyValue("AllowUpdates", True)
oValueForm.SetPropertyValue("AllowDeletes", True)  
oValueForm.SetPropertyValue("AllowInserts", True)
oValueForm.reload()

End If


end sub
В чем может быть загвоздка?
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!