Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Удаление всех контролов с формы  [new]
Vsevolod V
Member

Откуда: Россия. Санкт-Петербург
Сообщений: 3194
Есть элементарная функция очистки формы от всех контролов. Проблема в том, что для полной очистки формы, необходимо семь раз запустить эту функцию. То есть контролы удаляются по частям. Что это за ерунда такая?? -)
Private Function CleanForm()
Dim ctl As Control
Dim i As Integer

For Each ctl In Forms!Форма2.Controls
    Call DeleteControl(Forms!Форма2.NAME, ctl.NAME)
Next ctl

End Function
27 фев 07, 10:34    [3835671]     Ответить | Цитировать Сообщить модератору
 Re: Удаление всех контролов с формы  [new]
Serge Gavrilov
Member

Откуда:
Сообщений: 3248
Vsevolod V
Есть элементарная функция очистки формы от всех контролов. Проблема в том, что для полной очистки формы, необходимо семь раз запустить эту функцию. То есть контролы удаляются по частям. Что это за ерунда такая?? -)

Результат выполнения вашего кода такой и должен быть.
Попробуйте так:

Private Function CleanForm()
Dim i As Integer

For i = Forms!Форма2.Controls.Count - 1 To 0 Step -1
    Call DeleteControl(Forms!Форма2.NAME, Forms!Форма2.Controls(i))
Next

End Function
[/quot]

Ответ, почему у вас работает не так как вам бы хотелось, найдете в поиске или просто, немного подумав.
27 фев 07, 10:50    [3835753]     Ответить | Цитировать Сообщить модератору
 Re: Удаление всех контролов с формы  [new]
Vsevolod V
Member

Откуда: Россия. Санкт-Петербург
Сообщений: 3194
хм.. благодарю
27 фев 07, 10:57    [3835794]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить