| |
|
|
| | Программно созданные контролы?
KL1 = 1
Do While Not rst.EOF '
If NZVB(rst("NAME_Key")) <> "" Then
KL = "Label" & KL1
Me(KL).Remove
KL1 = KL1 + 1
rst.MoveNext
End If
Loop
|
Код работает без ошибок, но и контролы не исчезают.... 
если - так
Ошибка...
так тоже | |
| |
| |
| |
|
|
| | А зачем их создавали?
Можно пробовать любые способы, но форму надо открыть acDesign | |
| |
| |
| |
|
|
| | Десигн - не катит....
Да и создаются они на нормально открытой форме...
Хотябы не удалить, а TOP у всех изменить на другое число.
Дело в том что они не видимы обычным методам вроде как...... | |
| |
| |
| |
|
|
| | а ежели не видимы - то на кой вообще голову морочить  | |
| |
| |
| |
|
|
| | Лан - ЗАРАБОТАЛо
KL1 = 1
rst.MoveFirst
Do While Not rst.EOF '
If NZVB(rst("NAME_Key")) <> "" Then
KL = "Label" & KL1
On Error Resume Next
Me(KL).Top = STR_TOP
KL1 = KL1 + 1
rst.MoveNext
End If
Loop
|
Мну устраивает!!!   | |
| |
| |
|
|
|
|
| |
|
|
| | так вроде пишет что невидимы...
подобные манипуляции с контролами бывают нужны если что-то на форме мышкой передвигаешь, выстраиваешь...
чтобы не запоминать позицию курсора в переменные, размещаешь на форме лейбл,
который за мышью ползает, потом по нему выстраиваются другие контролы на форме
или когда на форме панели и сплиттеры перестраиваются - например
"скрыть-показать панель навигации"
"скрыть показать панель предпросмотра"
скрытый лейбл-ограничитель сплиттера ставится в крайнюю позицию, по нему выстраивается сплиттер (скрывается) а по сплиттерам выстраиваются панели (скрываются) | |
| |
| |
|
|
| |
|
|
| | последнее положение ключевых меток на форме запоминай в свойства БД или в специальную пользовательскую таблицу
чтобы при открытии формы контролы выстраивались не по умолчанию, а как в последний раз были расставлены ключевые метки.
пользователям доставляет :) | |
| |
| |
| |
|
|
| | Так и сделано
И ширина столбцов в листвиеве и его размеры и положегие кнопачек - всё в таблу сую........  | |
| |
| |
