Discussion :

[atom41]

Bonjour,

j'utilise Access 2000. J'ai une fonction qui manipule un formulaire (ouverture, changement du titre et des contrôles en fonction d'un argument passé à la fonction). Pour simplifier la maintenance du code j'ai cru intelligent de passer le formulaire dans une variable, comme ça quand si je change le nom du formulaire il n'y a qu'une ligne à modifier... Mais je n'y comprends rien, ça a marché une fois ou 2 et puis maintenant plus du tout.. donc après une matinée de tests et de recherches je sollicite vos lumières !

Voici les résultats de mes tests :
le code de la fonction :

Code :

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

1
2
3
4
5
6
7
8
Public Function test1()
Dim frm As Form
Set frm = Form_test
DoCmd.OpenForm frm.Name
frm.Caption = "toto"
Set frm = Nothing
End Function

si je place ce code sur l'événement OnClick d'un bouton placé sur le formulaire Form_test, ça marche (Caption change). Si je place ce code sur un bouton d'un autre formulaire, le formulaire Form_test est bien ouvert mais sa propriété Caption ne change pas !!!

Merci d'avance pour votre aide

[atom41]

Bon une avancée :
si j'écris le code suivant

Code :

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

1
2
3
4
5
6
7
Public Function test1()
DoCmd.OpenForm test
Dim frm As Form
Set frm = Form_test
frm.Caption = "toto"
Set frm = Nothing
End Function

j'ouvre le formulaire avant de le passer dans une variable : ça marche. Mais je préfèrerais le déclarer puis faire toute sorte de manipulations !! Comment ?

[Jack78960]

Salut, çà ne te suffirait pas ?

Code :

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

1
2
3
4
Public Function test()
DoCmd.OpenForm test
forms("Test").Caption = "toto"
End Function

[Gabout]

Bonsoir,

Une solution à tester : tu ouvres ton formulaire avec en argument le caption que tu veux afficher.

Code :

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

DoCmd.OpenForm "Test", , , , , , "toto"

et sur l'évènement Sur ouverture de ton formulaire Test

Code :

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

Me.Caption = Me.OpenArgs

[atom41]

Merci pour vos réponses. La modification du Caption n'était qu'un exemple, ma fonction devrait également me permettre, en fonction du paramètre mode passé dans les arguments (qui prend la valeur "consult" ou "insert" selon que je veux afficher le formulaire avec des données ou sur un nouvel enregistrement), d'afficher ou pas certains boutons, de permettre ou pas la modification de certains champs...
Faute de mieux, j'ai fait comme ça (un petit extrait exemple quand le paramètre mode="consult") :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
With Form_F_evalEFE
        .titre_form.Caption = "Evaluations"
        .Caption = "Consultation des évaluations"
        .CmdSuiv.Visible = True
        .CmdPrec.Visible = True
        .CmdRechercheevaluation.Visible = True
        .CmdNouv.Visible = True
        .CmdCR.Visible = True
        .mode_formulaire = "consult"
    End With

C'est juste que je trouvais plus rationnel de déclarer mon formulaire au début de la fonction dans une variable et d'écrire ensuite MonForm.caption etc... car dans ma fonction j'écris un grand nombre de fois "Form_F_evalEFE" et du coup si je décide de changer le nom du formulaire (ce n'est pas une situation hypothétique, j'ai justement eu besoin d'en renommer plein car les noms n'étaient plus cohérents avec les données manipulées et ça devenait compliqué à comprendre), il faut que je modifie plein de lignes dans ma fonction...
Mais ça ne marche pas, je ne comprends pas comment fonctionne l'objet form et ça m'agace !!!

Effectivement je peux faire autrement mais je voulais savoir ce qui est possible et ce qui ne l'est pas, histoire d'apprendre... ça me semble assez logique qu'on puisse stocker un objet formulaire dans une variable et accéder à ses propriétés, controles et méthodes mais je n'y arrive pas.

[Jack78960]

Code :

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

1
2
3
4
5
6
Public Function test()
Dim frm As object
DoCmd.OpenForm "frmTest"
Set frm = forms("frmTest")
frm.Caption = "toto"
End Function

la collections forms englobe toutes les feuilles ouvertes ==> cette syntaxe fonctionne et te permet de piloter une (ou x) feuille(s) depuis une autre