Discussion :

[alonsyl]

bonjour,


j'ai 1 formulaire que j'ai appelle "nomForm". dans le Form_Load() de nomForm (comme dans d'autres procedures d'ailleurs), j'appelle un controle onglets ("ctlOngl") d'un sous-formulaire ("sousForm") de nomForm en procedant de la maniere suivante :

Code :

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

1
2
3
4
Private Sub Form_Load()
    Controls("sousForm").Controls.Item("ctlOngl").Pages.Item(0).Caption = "1er onglet"
    Controls("sousForm").Controls.Item("ctlOngl").Pages.Item(1).Caption = "2eme onglet"
End Sub

j'en ai marre d'avoir a tapper Controls("sousForm").Controls.Item("ctlOngl") pour acceder a ctlOngl.
j'ai essayer de faire des appels du type :

Code :

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

1
2
3
4
Dim onglets As Pages
onglets = Controls("sousForm").Controls.Item("ctlOngl")
onglets.Pages.Item(0).Caption = "1er onglet"
onglets .Pages.Item(1).Caption = "2eme onglet"

mais, rien a faire, ca plante !

comment puis-je creer une nouvelle variable qui fasse reference a Controls("sousForm").Controls.Item("ctlOngl") ?

MERCI A VOUS !!!

[philben]

bonjour,

<With> simplifie les écritures, voir aide d'Access :

Code :

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

1
2
3
4
With object
[statements]
End With

cordialement,

Philippe