Méthode Module.InsertText (Access)

La méthode InsertText insère une chaîne de texte spécifique dans un module standard ou un module de classe.

Syntaxe

expression. InsertText (Text)

expression Variable qui représente un objet Module .

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Text	Obligatoire	Chaîne	Texte à insérer dans le module.

Valeur renvoyée

Aucune

Remarques

Lorsque vous insérez une chaîne à l'aide de la méthode InsertText, Microsoft Access insère le nouveau texte à la fin du module, après toutes les autres procédures.

Pour ajouter plusieurs lignes, incluez la constante intrinsèque vbCrLf aux sauts de ligne souhaités dans la chaîne qui compose l’argument Text . Cette constante force un retour chariot et un saut de ligne.

Pour spécifier au niveau de la ligne à laquelle le texte est inséré, utilisez la méthode InsertLines. Pour insérer le code dans la section Déclarations du module, utilisez la méthode InsertLines au lieu de la méthode InsertText.

Remarque

[!REMARQUE] Dans les versions précédentes de Microsoft Access, la méthode InsertText était une méthode de l'objet Application. Vous pouvez toujours utiliser la méthode InsertText de l’objet Application , mais nous vous recommandons d’utiliser la méthode InsertText de l’objet Module à la place.

Exemple

L’exemple suivant insère une chaîne de texte dans un module standard.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.