ACCESS : Code sur tous les champs d'un form

Private Sub Commande0_Click()
Dim ctl As Control
Dim mdl As Module
Dim Ret As Integer
Dim Nom As String
' Parcours des contrôles du formulaire courant
For Each ctl In Me.Controls
    'MsgBox ctl.Properties("Name")
    ' Si le contrôle m'intéresse
    If ctl.Properties("Name") = "bout1" Then
        Nom = ctl.Properties("Name").Value
        ' Recherche s'il n'y a pas déjà du code à l'évènement onclick
        If Controls(Nom).OnClick = "" Then
            Set mdl = Me.Module
            ' On crée la proc 'surclic'
            Ret = mdl.CreateEventProc("Click", Nom)
            ' On insère le code
            mdl.InsertLines Ret + 1, vbTab & "' ceci est une procédure" & vbCrLf & vbTab & "MsgBox ""coucou"""
            ' On met la propriété 'surclic' à 'procédure évènementielle
            Me.Controls(Nom).OnClick = "[Event Procedure]"
        End If
    End If
Next ctl
End Sub