Discussion :

[Perle-Marie]

Bonjour,

Argyronet m'a fourni un excellent tutoriel pour m'aider à créer 2 listes déroulantes liées l'une à l'autre dans un formulaire.

http://argyronet.developpez.com/offi...ectitemlistAB/

Mais voilà qu'il y manque un détail.

La première liste comprend une liste de domaines d'emploi, la deuxième, des métiers reliés aux domaines de la première liste.

Les deux listes fonctionnent mais le problème c'est que lorsque je sélectionne un métier dans la deuxième liste, il ne reste pas en mémoire c'est-à-dire que quand je ferme le formulaire et l'ouvre de nouveau, le domaine d'emploi sélectionné lors de l'entrée de données affiche mais le métier n'est plus sélectionné.

Vous avez une solution?

Merci.

[Nephyline]

Bonjour,

As-tu bien lié ta liste déroulante avec le champs désiré dans ta base de données ?
La case "Source contrôle" dans les propriétés de ta liste.

[Perle-Marie]

Je crois que oui.

[Lou Pitchoun]

Salut,

Les deux listes fonctionnent mais le problème c'est que lorsque je sélectionne un métier dans la deuxième liste, il ne reste pas en mémoire c'est-à-dire que quand je ferme le formulaire et l'ouvre de nouveau, le domaine d'emploi sélectionné lors de l'entrée de données affiche mais le métier n'est plus sélectionné.

Vous avez une solution?

Merci.

Le problème ici, c'est que tes listes te permettent de sélectionner des valeurs qui ne sont pas mémorisées dans la table.

Il te faut donc sur l'évènement 'Après MAJ' affecter la valeur de la liste au champ de la table.
Ensuite sur l'évènement 'Sur activation' du formulaire, il te faut vérifier que le champ soit vide ou non.
S'il est vide : la liste est vierge.
S'il n'est pas vide : il faut afficher la valeur de la liste correspondante à la valeur du champ.

[Perle-Marie]

Voici le code : (le If ModifDomaine = Then est en rouge dans le VBE.

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
Option Compare Database
 
 
Private Sub cmbCategories_AfterUpdate()
Dim lngIDCat   As Long
Dim SQL        As String
 
  '' Vérifie que l'on a cliqué sur une catégorie pour éviter le NULL
  If Not IsNumeric(Me!cmbCategories) Then Exit Sub
  '' Affecte la valeur de IDCategorie à la variable lngIDCat
  lngIDCat = Me!cmbCategories
  '' Construit la chaîne SQL avec la catégorie concernée
  SQL = "SELECT IDMetier, Metier, IDCategorie FROM TBLMetiers WHERE IDCategorie =" & lngIDCat & " ORDER BY Metier"
  '' Affecte la chaîne SQL à la liste des métiers
  cmbMetiers.RowSource = SQL
  '' Déverrouille la liste des métiers
  cmbMetiers.Enabled = True
  '' Donne le focus la liste des métiers
  cmbMetiers.SetFocus
  '' Déroule la liste des métiers
  cmbMetiers.Dropdown
 
End Sub
Private Sub cmbMetiers_AfterUpdate(Cancel As Integer)
 
End Sub
 
Private Sub cmbMetiers_BeforeUpdate(Cancel As Integer)
 
End Sub
 
Private Sub Entreprise_Poste_Enter()
Dim strMsg As String, strTitre As String
Dim intStyle As Integer
 
    If IsNull(Me![Nom_Entreprise]) Then
        strMsg = "Il faut enregistrer le Nom de l'entreprise."
        intStyle = vbOKOnly
        strTitre = "Enregistrer Entreprise"
        MsgBox strMsg, intStyle, strTitre
        Me![Nom_Entreprise].SetFocus
    End If
End Sub
 
Private Sub Form_Current()
Dim strMsg As String, strTitre As String
Dim intStyle As Integer
 
    If IsNull(Me![Nom_Entreprise]) Then
        strMsg = "Il faut enregistrer le Nom de l'entreprise."
        intStyle = vbOKOnly
        strTitre = "Enregistrer Entreprise"
        MsgBox strMsg, intStyle, strTitre
        Me![Nom_Entreprise].SetFocus
    End If
End Sub
 
Private Sub ModifDomaine_GotFocus()
If ModifDomaine = Then
  Me!ModifDomaine.Dropdown
End If
 
End Sub
 
Private Sub Nom_Entreprise_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[Nom_Entreprise]", "Entreprises", _
   "[Nom_Entreprise]='" & Me![Nom_Entreprise] & "'"))) Then
    MsgBox "Nom d'entreprise déjà entré dans la base de données."
    Cancel = True
    Me.Undo
End If
 
End Sub
 
Private Sub RechercheEntreprise_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Entreprise_ID] = " & Str(Nz(Me![RechercheEntreprise], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
 
End Sub
Private Sub cmdAjoutPoste_Click()
On Error GoTo Err_cmdAjoutPoste_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Ajouter Postes"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_cmdAjoutPoste_Click:
    Exit Sub
 
Err_cmdAjoutPoste_Click:
    MsgBox Err.Description
    Resume Exit_cmdAjoutPoste_Click
 
End Sub
Private Sub cmdAjoutTypeEmploi_Click()
On Error GoTo Err_cmdAjoutTypeEmploi_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Ajouter Type_Emploi"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_cmdAjoutTypeEmploi_Click:
    Exit Sub
 
Err_cmdAjoutTypeEmploi_Click:
    MsgBox Err.Description
    Resume Exit_cmdAjoutTypeEmploi_Click
 
End Sub

Merci

[Lou Pitchoun]

Salut,

Code :

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

If ModifDomaine = Then

= True ou False ou "" ?
Il te manque la valeur testée.

[Perle-Marie]

Bonjour Starec, merci pour votre code.

J'ai inséré celui-ci au lieu de celui qu'Argyronet m'avait envoyé et voici le message d'erreur que j'obtiens.

[Perle-Marie]

Aidez-moi svp.

[Perle-Marie]

Merci à ceux qui m'ont aidée et à ceux qui ont tenté de le faire.

Un collègue a résolu le problème en spécifiant le Contenu dans les propriétés de la deuxième liste. Argyronet m'avait dit de le laisser vide.