Метод Module.InsertLines (Access)

Метод InsertLines вставляет строку или группу строк кода в стандартный модуль или модуль класса.

Синтаксис

expression. InsertLines (Строка, Строка)

Выражение Переменная, представляющая объект Module .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Line	Обязательный	Long	Номер строки, с которой начинается вставка.
String	Обязательный	String	Текст для вставки в модуль.

Возвращаемое значение

Отсутствует

Примечания

Чтобы добавить несколько строк, добавьте встроенную константу vbCrLf в нужные разрывы строк в строку, которая составляет аргумент String . Эта константа приводит к принудительному возврату каретки и конвейеру.

При использовании метода InsertLines любой существующий код в строке, указанной аргументом Line , перемещается вниз.

Строки в модуле нумеруются, начиная с единицы. Чтобы определить количество строк в модуле, используйте свойство CountOfLines .

Пример

В следующем примере создается новая форма, добавляется кнопка команды и создается процедура события Click для кнопки.

Function ClickEventProc() As Boolean 
 Dim frm As Form, ctl As Control, mdl As Module 
 Dim lngReturn As Long 
 
 On Error GoTo Error_ClickEventProc 
 ' Create new form. 
 Set frm = CreateForm 
 ' Create command button on form. 
 Set ctl = CreateControl(frm.Name, acCommandButton, , , , _ 
 1000, 1000) 
 ctl.Caption = "Click here" 
 ' Return reference to form module. 
 Set mdl = frm.Module 
 ' Add event procedure. 
 lngReturn = mdl.CreateEventProc("Click", ctl.Name) 
 ' Insert text into body of procedure. 
 mdl.InsertLines lngReturn + 1, vbTab & "MsgBox ""Way cool!""" 
 ClickEventProc = True 
 
Exit_ClickEventProc: 
 Exit Function 
 
Error_ClickEventProc: 
 MsgBox Err & " :" & Err.Description 
 ClickEventProc = False 
 Resume Exit_ClickEventProc 
End Function

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.