Discussion :

[arr37]

Bonjour,

J'ai 3 formulaires nommés : Formulaire1, Formulaire2, Formulaire3
A chaque activation de Formulaire1 ou Formulaire2 je réccupère le nom du formulaire dans une variable globale : Public NomduFormulaire As String
Dans Formulaire3, j'ai une liste déroulante nommée : Liste Déroulante
Je la remplis ainsi, dans la fonction Form_Open() :

Code :

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

1
2
3
4
5
6
7
 
With Me.[Liste Déroulante]
	.AddItem NomduFormulaire.value
	.AddItem "Formulaire1"
	.AddItem "Formulaire2"
	.AddItem "Formulaire3"
End With

Je définis ensuite la première valeur de cette liste comme 'valeur par défaut' dans ses Propriétés.

OR
A l'ouverture "Erreur d'execution '5': Argument ou appel de procédure incorrect" apparaît.
L'erreur vient surement de

Code :

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

1
2
 
	.AddItem NomduFormulaire.value

puisque sans, tout fonctionne.

Malheureusement, c'est justement mon but premier : avoir en valeur par défaut le nom du formulaire actif juste avant Formulaire3.

J'ai passé un temps fou à essayer de faire fonctionner ce tout petit bout de code (c'est ainsi quand on débute ), en écumant la toile, mais rien n'y fait, je n'ai plus d'idées. Un petit coup de main serait le bienvenu.

Merci

Contexte :
- pour mon stage j'améliore et corrige une BD crée par plusieurs autres avant moi
- je ne suis pas autorisée à diffuser le code de la BD > j'ai quand même essayé d'être la plus précise possible.

[ClaudeLELOUP]

Bonjour et bienvenue,

Ne serait-ce pas plutôt ceci ?

Code :

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

1
2
3
4
5
6
7
Option Compare Database
Option Explicit
 
Private Sub Form_Open(Cancel As Integer)
  Me.Liste_Déroulante.RowSource = NomduFormulaire & ";Formulaire1;Formulaire2;Formulaire3"
  Me.Liste_Déroulante = NomduFormulaire
End Sub

[arr37]

Bonjour,

Celà fonctionne parfaitement, merci pour cette proposition très optimisée !

Par contre, j'ai un problème avec NomduFormulaire, elle se vide au changement de formulaire... --'

Comme dit je l'ai déclaré ainsi, tout en haut de la feuille de code dédiée à Formulaire3 (dans le fichier Microsoft Access Objets de classe) :

Code :

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

Public NomduFormulaire As String

Je pensais que la déclarer Public équivalait à la déclarer Static mais la rendait utilisable dans les autres formulaires.
OR
Quand j'active Formulaire2, NomduFormulaire réccupère bien "Formulaire2", mais l'oublie quand on passe sur Formulaire3.

Une dernière petite idée ?

[ClaudeLELOUP]

Tu dois la déclarer dans un module indépendant elle sera ainsi visible quels que soient les formulaires ouverts.

[arr37]

Super !
Encore un petit rien qui m'aura donné du fil à retordre.
Merci beaucoup ClaudeLELOUP !!!

Au passage, pour ma curiosité perso : est-il possible de retenir le contenu d'une valeur entre 2 ouvertures du .accbd ?

Résumé pour tous ceux qui chercheront à faire l'action en objet :
* Déclarer une variable publique dans un module indépendant

Code :

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

Public NomduFormulaire As String

* Dans chacun des codes formulaires concernés (ici Formulaire1 et Formulaire2)

Code :

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

1
2
3
Private Sub Form_Activate()
    NomduFormulaire = Me.Name 
End Sub

* Dans le code formulaire contenant la liste déroulante (ici Formulaire3)

Code :

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

1
2
3
4
5
6
7
Option Compare Database
Option Explicit
 
Private Sub Form_Open(Cancel As Integer)
  Me.Liste_Déroulante.RowSource = NomduFormulaire & ";Formulaire1;Formulaire2;Formulaire3"
  Me.Liste_Déroulante = NomduFormulaire
End Sub

Ne pas oublier d'appeler ces procédures dans les Propriétés des formulaires et d'indiquer en 'origine source' de la liste déroulante 'liste de valeurs'

[ClaudeLELOUP]

Au passage, pour ma curiosité perso : est-il possible de retenir le contenu d'une valeur entre 2 ouvertures du .accbd ?

Au lieu d'utiliser une variable pour mémoriser le nom des formulaires, tu utilises une table :



Le code des Formulaire1 et Formulaire2 devient

Code :

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

1
2
3
4
5
Private Sub Form_Current()
  DoCmd.SetWarnings False
  DoCmd.RunSQL "UPDATE tParam SET FormActif = """ & Me.Name & """;"
  DoCmd.SetWarnings True
End Sub

Et celui de Formulaire3

Code :

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

1
2
3
4
5
6
Private Sub Form_Open(Cancel As Integer)
  Dim Param As String
  Param = DLookup("FormActif", "tParam")
  Me.Liste_Déroulante.RowSource = Param & ";Formulaire1;Formulaire2;Formulaire3"
  Me.Liste_Déroulante = Param
End Sub

[arr37]

Très intéressant.
Merci