Метод Module.InsertText (Access)

Метод InsertText вставляет указанную строку текста в стандартный модуль или модуль класса.

Синтаксис

expression. InsertText (Text)

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

Параметры

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

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

Отсутствует

Примечания

При вставке строки с помощью метода InsertText Microsoft Access помещает новый текст в конец модуля после всех остальных процедур.

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

Чтобы указать, в какую строку вставляется текст, используйте метод InsertLines . Чтобы вставить код в раздел Объявления модуля, используйте метод InsertLines , а не Метод InsertText .

Примечание.

В предыдущих версиях Microsoft Access метод InsertText был методом объекта Application . По-прежнему можно использовать метод InsertText объекта Application , но вместо него рекомендуется использовать метод InsertText объекта Module .

Пример

В следующем примере строка текста вставляется в стандартный модуль.

Function InsertProc(strModuleName) As Boolean 
 Dim mdl As Module, strText As String 
 
 On Error GoTo Error_InsertProc 
 ' Open module. 
 DoCmd.OpenModule strModuleName 
 ' Return reference to Module object. 
 Set mdl = Modules(strModuleName) 
 ' Initialize string variable. 
 strText = "Sub DisplayMessage()" & vbCrLf _ 
 & vbTab & "MsgBox ""Wild!""" & vbCrLf _ 
 & "End Sub" 
 ' Insert text into module. 
 mdl.InsertText strText 
 InsertProc = True 
 
Exit_InsertProc: 
 Exit Function 
 
Error_InsertProc: 
 MsgBox Err & ": " & Err.Description 
 InsertProc = False 
 Resume Exit_InsertProc 
End Function

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

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