Discussion :

[Ric500]

Bonjour à tous!

Je souhaite tester l'existence d'une section de formulaire en VBA (entête ou pied).

Existe-t-il une méthode?

Lorsque les sections existent On peut les rendre visibles/invisibles. Une erreur se déclenche lorsqu'on y fait référence en leur absence.

Merci de vos lumières !

[tee_grandbois]

bonjour ric500,
pas possible en effet de détecter leur existence d'autant que Section n'a pas de propriété Count, du coup, impossible de traiter l'objet en tant que tableau: Ubound(Me.Section) ne fonctionne pas.
Donc, à part trapper l'erreur (2462, à priori), je ne vois pas comment faire

[Ric500]

Merci Tee !

J'ai fait un truc qui trappe l'erreur, en effet, et je m'en tire pas trop mal.

L'idée de base était d'écrire une fonction qui projette exactement les mêmes codes-couleur/style à tous les contrôles d'un formulaire (listes déroulantes, text, label) en fonction de leur ControlType (111, 109, 100).

Merci encore de ton attention, à la revoyure !!!

[deedolith]

Salut,

En déléguant la détection à une fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function SectionExist(ByVal Frm As Access.Form, ByVal Index As Access.AcSection) As Boolean
On Error GoTo Error
    Dim Section As Section
    Set Section = Frm.Section(Index)
    SectionExist = True
Exit Function
Error:
    Select Case Err.Number
    Case 2462   '// Numéro de section non valide.
        SectionExist = False
    Case Else    '// autre erreur, on l'escalade
        Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext
    End If
End Function

[Ric500]

Merci Deedolith,

J'ai pu me débrouiller en trappant l'erreur mais si tu le permets, je vais garder ta suggestion dans un coin qui me semble si ... simple et lumineuse !!!

Bonne journée !