Как заставить работать форму при изменении свойств?

Автор smagluk, 11 декабря 2021, 14:21

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

smagluk

Есть форма с таблицей. В этой форма размещена субформа с другой связанной таблицей. 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

В чем может быть загвоздка?