Discussion :

[Taylorised]

Bonjour/Bonsoir

Voila je vous explique mon problème :

Je dispose de deux formulaires différents, appelant une même méthode contenue dans un module de classe.

Cette méthode permet de mettre a jour les champ de la combobox 2 en fonction de la valeur choisie dans la combobox 1.

Mon problème est que lorsque je suis sur le premier formulaire et que je fais appel à cette fonction, cela m'ouvre l'autre formulaire (Vu que ma méthode met à jour les les combobox des deux formulaires). J'ai donc utilisé docmd.close, form.visible = false, ce qui m'a permis de fermer l'autre formulaire.

Par contre même s'il se ferme automatiquement, le formulaire est tout de même visible une demi seconde, ce qui n'est pas du tout ergonomique.

Avez vous une solution pour empêcher l'ouverture du formulaire 2 lorsque je modifie la valeur de la combobox 1 du formulaire 1 ? et idem pour l'autre formulaire ? Désolé si c'est pas très clair, demandez moi plus d'explications et je vous en ferais part ^^

Merci d'avance !

[Kaptin]

Bonjour, crois-tu qu'il serait préférable que tu utilise deux fois plutot qu'une cette méthode pour chacun des formulaires ? Chaque formulaire appelerait une méthode bien à lui sans empiéter sur l'autre formulaire.

Tes combobox ont-ils le même nom dans chacuns des formulaires? Si oui, ils serait peut-être judicieux de leur donner des noms légèrement différents ?

essaie ça et tiens nous au courant.

Bonne journée

[RobiPMS]

Bonjour.
Une possibilité serait peut-être de vérifier quel est le formulaire ouvert avant de mettre à jour et de ne mettre à jour que le combobox du formulaire ouvert :

Code :

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

1
2
3
4
5
If CurrentProject.AllForms("Ton_form_1").IsLoaded Then
' ici le code pour mettre à jour dans le form 1
ElseIf If CurrentProject.AllForms("Ton_form_2").IsLoaded Then
' ici le code pour mettre à jour dans le form 2
End If

Cordialement.

[Taylorised]

En fait je suis en stage pour une société pour valider ma deuxième année, et vu qu'à l'école on nous a appris à réutiliser le code pour éviter la redondance, ou encore au développement MVC, j'ai essayé de faire un truc à peu près similaire en VBA.

Donc en gros j'utilise le module de classe pour éviter de réécrire deux fois la même fonction.

J'ai pensé à écrire deux fonctions différentes mais pour la revue de code on me demandera surement pourquoi est ce que j'ai voulu créer des modules alors que cette fonctionnalité est écrite deux fois.

Dans le module j'effectue ceci (désolé ce sont des données confidentielles je dois donc masquer les champs/tables) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Public Function combo_prenom(ByVal nom As String)
 
Dim query_prenom As String
Dim rs As Recordset
Dim iCount, iRecCount As String
 
query_prenom = "SELECT *** FROM *** WHERE *** = '" & nom * "';"
 
Set rs = CurrentDb.OpenRecordset(query_prenom)
 
'On compte le nombre d'enregistrement associés au nom sélectionné
 
rs.MoveLast
 
iRecCount = rs.RecordCount
 
rs.MoveFirst
 
'On stocke chacun de ces enregistrements associés dans la combobox prenom
 
For iCount = 1 To iRecCount
 
[Form_Gestion de compte].combo_prenom.AddItem rs("***")
[Form_Gestion des équipes].combo_prenom.AddItem rs("***")
 
rs.MoveNext
 
Next
 
End Function

Dans mes forms j'effectue cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim nom As String
Dim mod_connexion As Nex Connexion
 
nom = combo_nom.Value
 
combo_prenom.RowSource = ""
 
mod_connexion.combo_prenom (nom)
 
DoCmd.Close acForm, "Gestion des équipes" / DoCmd.Close acForm, "Gestion de compte" 'En fonction du formulaire sur lequel j'effectue l'opération

Les combobox ont donc le même nom, mais vu que je précise de quel formulaire elle proviennent cela revient au même que de les changer. Surtout que je demande la mise à jour des deux combobox.

Je voudrais juste que l'autre formulaire ne s'affiche pas du tout.

Merci de ton aide

[Taylorised]

Ah merci Robi, je cherchait un truc du genre

Je teste cela

[Pittouti]

Bonjour,

je me demande pourquoi vous utilisez la codification VBA pour ce genre de développement ?

alors que tu peux faire Mieux et plus simple.

( Personnellement, je ne suis un expert dans la codification mais j'arrive à faire des petites solutions )

si tu explique mieux ta demande ( la modification que tu fasse qur chacun des formulaie) je pourrais t'aider.

[Taylorised]

Je suis beaucoup plus à l'aise dans le développement en C#, et j'ai voulu réaliser l'appli en question sous visual studio.

Le problème c'est que mon responsable veut absolument que ce soit une application access pour pouvoir extraire depuis l'appli les données sur excel et faire des tableaux croisés dynamiques. Donc je lui ai dis que ca devrait être possible en C#, mais vu qu'il n'y à pas d'informaticien et que si l'appli viendrait à buguer, alors personne ne sera en mesure de la debuger et en plus de cela ils ne peuvent pas avoir VS :/

Voila pourquoi je fais ça en VBA ^^

Sinon Robi merci beaucoup ca marche, c'est niquel

Merci à tous pour vos réponses, bonne fin de journée et à bientôt !