MODIFIER TOUT LES CONTROLS D'UNE FORM

Function Bloquer(frm As Form)
    Dim ctl As Control

    On Error Resume Next
    ' Enumère la collection Controls.
    For Each ctl In frm.Controls
        With ctl
            ' Vérifie si le contrôle est une zone de texte.
            If .ControlType = acTextBox Or _
            .ControlType = 106 Or _
            .ControlType = 111 And UCase(Mid(.Name, 1, 9)) <> "SELECTION" And _
            UCase(Mid(.Name, Len(.Name) - 4)) <> "DATE" Then
            ' Définit les propriétés du contrôle.
                .Locked = Not live
            End If
        End With
    Next ctl
End Function