Discussion :

[Lululu]

Bonjour à tous,

Comment trouver un enregistrement sélectionné dans une liste déroulante(Clic). J'ai crée un formulaire principal dans lequel j'ai plusieurs sous formulaires (Onglet). A partir d'une liste déroulante, que j'ai positionné dans le formulaire principale, je veux pouvoir sur un clic trouver l'enregistrement qui se trouve dans un des sous formulaires.


Merci à tous ceux qui se pencheront sur ce problème

[helas]

filtrer le sous formulaire sur la donnée du formulaire principal
soit

Code :

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

1
2
3
 
Me!NomSousFormulare.filter = "[societe] = """ & Me!ChoixSociete & """"
Me!NomSousFormulare.FilterOn = True

[Lululu]

Bonjour,

Tout d'abord merci pour cette réponse. Mais je n'y vois toujours pas clair car dans ma liste de clients, je peux avoir le même nom de [societe] ayant un [type] différent.Le [type] devant déterminer le sous formulaire que je dois ouvrir.

[Jeannot45]

Une petite précision s'il te plait.
Si j'ai bien compris la problématique quand tu choisis un élément dans ta liste déroulante, il peut y avoir un résultat dans un ou plusieurs des sous formulaires placés dans les onglets.
Ton idée serait de repérer dans quel onglet il y a une information.

Me trompe-je ?

[Lululu]

Une petite précision s'il te plait.
Si j'ai bien compris la problématique quand tu choisis un élément dans ta liste déroulante, il peut y avoir un résultat dans un ou plusieurs des sous formulaires placés dans les onglets.
Ton idée serait de repérer dans quel onglet il y a une information.

Me trompe-je ?

Non, tu ne trompes pas et je l'ai écrit de la façon suivante:
Ca marche

Merci encore

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
If Me.ListeClient.Column(0) = "R Centralisé-Clic" Then GoTo CentratliseClic
If Me.ListeClient.Column(0) = "T Centralisé" Then GoTo Centralise
If Me.ListeClient.Column(0) = "Fusion Centralisé" Then GoTo Fusion
If Me.ListeClient.Column(0) = "R Centralisateur" Then GoTo Centralisateur
If Me.ListeClient.Column(0) = "T Centralisateur Déplacé" Then GoTo CentraDeplace
If Me.ListeClient.Column(0) = "T Centralisateur Direct" Then GoTo CentraDeplace
If Me.ListeClient.Column(0) = "F Centralisateur" Then GoTo FusCentral
 
 
Centralise:
 
Me.Centralise.Form.Filter = "[societe]= '" & Me.ListeClient & "'"
Me.Centralise.Form.FilterOn = True
Me.CtlTab0.Value = 0
 
Exit Sub
 
CentratliseClic:
 
Me.Centralise_Clic.Form.Filter = "[societe]= '" & Me.ListeClient & "'"
Me.Centralise_Clic.Form.FilterOn = True
Me.CtlTab0.Value = 1
 
Exit Sub
 
 
Fusion:
Me.Fusion_Centralise.Form.Filter = "[societe]= '" & Me.ListeClient & "'"
Me.Fusion_Centralise.Form.FilterOn = True
Me.CtlTab0.Value = 2
 
Exit Sub
 
Centralisateur:
Me.Centralisateur.Form.Filter = "[societe]= '" & Me.ListeClient & "'"
Me.Centralisateur.Form.FilterOn = True
Me.CtlTab0.Value = 3
 
Exit Sub
 
CentraDeplace:
Me.Centralisateur_Deplace.Form.Filter = "[societe]= '" & Me.ListeClient & "'"
Me.Centralisateur_Deplace.Form.FilterOn = True
Me.CtlTab0.Value = 4
 
Exit Sub
 
FusCentral:
Me.FusionCentralisateur.Form.Filter = "[societe]= '" & Me.ListeClient & "'"
Me.FusionCentralisateur.Form.FilterOn = True
Me.CtlTab0.Value = 5
 
 
Exit Sub
 
 
 
End Sub