Note
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
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.