Méthode Module.InsertLines (Access)

La méthode InsertLines insère une ligne ou un groupe de lignes de code dans un module standard ou un module de classe.

Syntaxe

expression. InsertLines (Line, String)

Expression Variable qui représente un objet Module .

Parameters

Valeur renvoyée

Aucune

Remarques

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

Lorsque vous utilisez la méthode InsertLines , tout code existant à la ligne spécifiée par l’argument Line se déplace vers le bas.

Les lignes dans un module sont numérotées en commençant par 1. Pour déterminer le nombre de lignes dans un module, utilisez la propriété CountOfLines.

Exemple

L’exemple suivant crée un formulaire, ajoute un bouton de commande et crée une procédure événementielle Click pour le bouton de commande.

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

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.