Вопрос : Как вывести все textboxes, кнопки командование, комбинированные рамки из строя etc… на форме:

ПРОБЛЕМА DESCRIPTION
Disable все textboxes, commcand застегивает, comboboxes, платы etc…. на form
«frmProjects_NEW_VER1 "
Until потребитель вписывал и имя проекта и number

WHAT iий TRIED
I проекта положило это Кодего в форму» «frmProjects_NEW_VER1» на случае нагрузки и оно не работало:
Dim c по мере того как резюме Next
For ошибки
On управления каждый c в Me.Controls
c.Enabled = c.Name = c
____________________________________

What
Next «ProjectName " делает я нужно сделать?
_______________________________________

To воссоздает проблему:
3. нового проекта " часов
1. Logon
2. '. Заметьте что потребитель может вписать всю информацию на
frmProjects_NEW_VER1 и щелкнуть ЗА ИСКЛЮЧЕНИЕМ без входа имени проекта или проекта number.


 class= " lastRow
>Attachments " имени " class= class= " значение "
>
filename " class= >With-Code-AHA-Builder-2010-VER-1.zip (705 KB) яваскрипт " href= " attachmentDetails class= " (по возможности тип архива рассогласование)
class= " описание " >db
class=
>
>
filename " class= >Deactivate-7-25-2010.jpg (94 KB) яваскрипт " href= " " attachmentDetails class= (тип архива детали)
class= " описание " >image
«src=» /images/t330238/Deactivate-7-25-2010.jpg»
class=
>
class=

Ответ : Как вывести все textboxes, кнопки командование, комбинированные рамки из строя etc… на форме:

Вопрос 1. Я заменяю ть Кодего, котор я кладу в ДАЛЬШЕ ОТКРЫТЫЙ СЛУЧАЙ с:
Приватное Sub VerifyNameAndNumber ()
Если Len (Me.ProjectName) > 0 и Len (Me.ProjectNumber) > 0 после этого
    Тусклый c как управление
        Для каждого c в Me.Section (0). Управление
            Если c.ControlType = acTextBox или c.ControlType = acCommandButton после этого
                'MsgBox c.Name
                c.Enabled = True
            Закончитесь если
        Следующий c
Закончитесь если

Не, вы не вспоминаете?
Я вывесил здесь 33293015?
Здесь весь столб снова:

Bingo!

Так попытайтесь это:

Приватное Sub VerifyNameAndNumber ()
Если Len (Me.ProjectName) > 0 и Len (Me.ProjectNumber) > 0 после этого
    Тусклый c как управление
        Для каждого c в Me.Section (0). Управление
            Если c.ControlType = acTextBox или c.ControlType = acCommandButton или c.ControlType = acCombobox после этого
                'MsgBox c.Name
                c.Enabled = True
            Закончитесь если
        Следующий c
Закончитесь если

; -)

Никак вопрос в том, что $50.000 долларов:
Можете вы приспособить это к Кодему *enable comboboxes в процедуре по «VerifyNameAndNumber» sub?

; -)

Джеф
\
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us