[VBA/Access] Utilisation de Me dans un module

Option Compare Database
Option Explicit

Sub CacheControle()

    Dim Etiquette As String
    Dim Reponse As Boolean
    Dim Texte As String
    Dim Limite As Long, Boucle As Long
    
    Reponse = False
    Etiquette = "cmd"
    
    Limite = (Forms.Count - 1)
    
    For Boucle = 0 To Limite
        Reponse = HiddenGroup(Etiquette, Forms.Item(Boucle))
    Next Boucle

    If (Reponse) Then
        Texte = "Réussi."
    Else
        Texte = "Échec."
    End If
    MsgBox Texte

End Sub
'


Private Function HiddenGroup(ByVal name_group As String, _
                             ByRef Frm As Form) As Boolean

    Dim Ctl As Control
    
    On Error GoTo HiddenGroup_Err

    HiddenGroup = False
    For Each Ctl In Frm.Controls
        If Left(Ctl.Name, 3) = name_group Then
            Ctl.Visible = False
            HiddenGroup = True
        End If
    Next Ctl
    

HiddenGroup_Exit:
    Exit Function

HiddenGroup_Err:
    MsgBox Error$
    Resume HiddenGroup_Exit

End Function
'

Function hiddengroup(name_group As String, mon_fom As Form)
Dim ctl As Control

For Each ctl In mon_fom.Controls
        If Left(ctl.Name, 3) = name_group Then
            ctl.Visible = False
        End If
Next ctl
End Function

Function hiddengroup(name_group As String)
Dim ctl As Control

For Each ctl In Screen.ActiveForm.Controls
        If Left(ctl.Name, 3) = name_group Then
            ctl.Visible = False
        End If
Next ctl
End Function

Sub ColorGroup(name_group As String, Color As String)
Dim ctl As Control

' Pour chaque contrôle du formulaire
For Each ctl In Screen.ActiveForm.Controls
        ' On vérifie le contenu du contrôle
        If Right(ctl.Name, 3) = name_group Then
            ' On lui change la couleur de fond
            ctl.BackColor = QBColor(Color)
        End If
Next ctl
End Sub

GroupColor("fn1", "2")