Функция InputBox Access

MyTetra Share

Делитесь знаниями!

Ссылка на оригинал

Время создания: 16.03.2019 23:43

Текстовые метки: VBA_Access, InputBox

Раздел: Разные закладки - VBA - Access

Запись: xintrea/mytetra_db_adgaver_new/master/base/1517297992sf3g1ywwsg/text.html на raw.githubusercontent.com

Функция InputBox

Применяется к: Access 2016, Access 2013, Access 2010, Access 2007

Отображает приглашение в диалоговом окне, ждет ввода текста или нажатия кнопки пользователем и возвращает значение типа String с содержимым текстового поля.

Синтаксис

InputBox ( запрос [, заголовок ] [, по_умолчанию ] [, координата_x ] [, координата_y ] [, файл_справки ] [, контекст ] )

Функция InputBox имеет следующие аргументы:

Аргумент	Описание
запрос	Обязательный аргумент. Строковое выражение, отображаемое как сообщение в диалоговом окне. Максимальная длина строки аргумента запрос составляет приблизительно 1024 знаков и зависит от их ширины. Если запрос содержит несколько строк, их можно разделить с помощью знака возврата каретки (Chr(13)), знака перевода строки (Chr(10)) или сочетания этих знаков (Chr(13) & Chr(10)).
заголовок	Необязательный аргумент. Строковое выражение, отображаемое в заголовке диалогового окна. Если аргумент заголовок опущен, в заголовке выводится имя приложения.
по_умолчанию	Необязательный аргумент. Строковое выражение, отображаемое в текстовом поле как отклик по умолчанию, если не предоставлены другие входные данные. Если аргумент по_умолчанию опущен, отображается пустое текстовое поле.
координата_x	Необязательный аргумент. Числовое выражение, которое определяет расстояние по горизонтали от левого края диалогового окна до левого края экрана (в твипах). Если аргумент координата_x опущен, диалоговое окно выровнено по центру.
координата_y	Необязательный аргумент. Числовое выражение, которое определяет расстояние по вертикали от верхнего края диалогового окна до верхнего края экрана (в твипах). Если аргумент координата_y опущен, диалоговое окно располагается приблизительно на расстоянии одной трети высоты экрана от его верхнего края.
файл_справки	Необязательный аргумент. Строковое выражение, определяющее файл, в котором содержится контекстная справка для данного диалогового окна. Если задан аргумент файл_справки, необходимо также указать аргумент контекст.
контекст	Необязательный аргумент. Числовое выражение, представляющее собой номер контекста, присвоенный автором справки соответствующему разделу. Если задан аргумент контекст, необходимо также указать аргумент файл_справки.

Замечания

Если указаны аргументы файл_справки и контекст, пользователь может, нажав клавишу F1 (Windows) или HELP (macOS), открыть раздел справки, заданный аргументом контекст. Некоторые ведущие приложения, например Microsoft Office Excel 2007, автоматически добавляют кнопку Справка в диалоговое окно. При нажатии кнопки ОК или клавиши ВВОД функция InputBox возвращает все содержимое текстового поля. При нажатии кнопки Отмена функция возвращает пустую строку ("").

Примечание: Чтобы указать несколько именованных аргументов, используйте функцию InputBox в выражении. Чтобы опустить некоторые позиционные аргументы, замените их разделителем в виде запятой.

Пример

Примечание: В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.

В данном примере показаны различные способы использования функции InputBox для отображения запроса на ввод значения. Если координаты x и y опущены, диалоговое окно автоматически располагается по центру соответствующих осей. Переменная MyValue содержит значение, введенное пользователем при нажатии кнопки ОК или клавиши ВВОД. При нажатии кнопки Отмена возвращается пустая строка.

Dim Message, Title, Default, MyValue

Message = "Enter a value between 1 and 3" ' Set prompt.

Title = "InputBox Demo" ' Set title.

Default = "1" ' Set default.

' Display message, title, and default value.

MyValue = InputBox(Message, Title, Default)

' Use Helpfile and context.

' The Help button is added automatically.

MyValue = InputBox(Message, Title,,,,"DEMO.HLP", 10)

' Display dialog box at position 100, 100.

MyValue = InputBox(Message, Title, Default, 100, 100)

Так же в этом разделе:

MyTetra Share v.0.65