Объект Control, семейство Controls, пример

Пример 1. В следующей процедуре перебираются все элементы управления, входящие в семейство Controls формы. Процедура вызывается в модуле формы, и в нее передается объект Form с помощью ключевого слова Me. Если элемент управления является полем, то в процедуре задаются значения его свойств.

' Вызов процедуры SetTextBoxProperties.

SetTextBoxProperties Me

Sub SetTextBoxProperties(frm As Form)

Dim ctl As Control

' Перебор всех компонентов семейства Controls.

For Each ctl In frm.Controls

' Проверяет, является ли элемент управления полем.

If ctl.ControlType = acTextBox Then

' Задает свойства элемента управления.

With ctl

.SetFocus

.Enabled = True

.Height = 400

.SpecialEffect = 0

End With

End If

Next ctl

End Sub

Объект Debug

Объект Debug используется для организации вывода в окно отладки во время выполнения.

Объект DoCmd

Методы, определенные для объекта DoCmd (команда), позволяют запускать макрокоманды Microsoft Access из программ Visual Basic. С помощью макрокоманд выполняют такие действия как закрытие окон, открытие форм и задание значений элементов управления. Например, метод OpenForm объекта DoCmd позволяет открыть форму, а метод Hourglass изменить вид указателя на значок Windows «Занято» (песочные часы).

Примечание. Объект DoCmd служит для тех же целей, что и инструкция DoCmd версий 1.x и 2.0 Microsoft Access. Действия, используемые ранее как аргументы инструкции DoCmd, стали теперь методами объекта DoCmd. Например, для открытия формы из Access Basic в Microsoft Access 2.0 могла быть использована следующая инструкция DoCmd OpenForm "Заказы". В Microsoft Access 97 аналогичное действие производится с помощью следующей команды:

DoCmd.OpenForm "Заказы"

Синтаксис

[приложение.]DoCmd.метод [арг1, арг2, ...]

Синтаксис конструкций для объекта DoCmd требует указания следующих аргументов.

Аргумент	Описание
приложение	Необязательный аргумент. Определяет объект Application.
метод	Имя одного из методов, поддерживаемых объектом.
арг1, арг2, ...	Аргументы указанного метода. Данные аргументы совпадают с аргументами соответствующей макрокоманды.

Большинство из методов, определенных для объекта DoCmd, имеют аргументы, некоторые из которых являются обязательными, а другие необязательными. Если необязательный аргумент опущен, то при выполнении макрокоманды подразумевается значение данного аргумента по умолчанию. Например, метод OpenForm использует семь аргументов, но только первый из них, имяФормы, является обязательным.

Пример. Демонстрирует конструкцию, открывающую форму «Сотрудники» из текущей базы данных, причем отбираются только записи о сотрудниках, имеющих должность «Торговый агент».

DoCmd.OpenForm "Сотрудники", , ,"[Должность] = 'Торговый агент'"

Объект DoCmd не поддерживает методы, соответствующие следующим макрокомандам:

ДобавитьМеню (AddMenu)

Сообщение (MsgBox)  Используйте функцию MsgBox.

ЗапускПриложения (RunApp). Для запуска другого приложения используйте функцию Shell.

ЗапускПрограммы (RunCode)  Вызывайте программу в Visual Basic.

КомандыКлавиатуры (SendKeys)  Используйте инструкцию SendKeys.

ЗадатьЗначение (SetValue)  Задавайте значения в конструкциях Visual Basic.

ОстановитьВсеМакросы (StopAllMacros)

ОстановитьМакрос (StopMacro)

Для того чтобы вывести описание макрокоманд Microsoft Access, соответствующих методам объекта DoCmd, следует выбрать имя макрокоманды в предметном указателе справочной системы.