Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: pashulka
А если количество пользовательских форм неизвестно, допустим, даже несколько сотен, то можно использовать следующий вариант.

iUserForm = InputBox(Prompt:="Введите имя формы", Title:="", Default:="UserForm1")

If iUserForm <> "" Then _
   UserForms.Add(iUserForm).Show


Обратите внимание на то, что имя UserForm должно быть указано верно, в противном случае, возникнет ошибка, которую, впрочем, можно избежать (см. пример)


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.