Discussion :

[micheletparis]

J'ai une base de donnée avec un formulaire, et un sous-formulaire dans lequel j'ai deux champs listes déroulantes dépendantes basées l'une sur l'autre mais j'ai besoin que les choix sélectionnés dans ces deux champs reste enregistrés. j'ai bien réussi à faire ces deux listes mais quand je selectionne dans ma liste sur l'enregistrement suivant, l'enregistrement précédent s'efface. Merci de votre aide

[argyronet]

Bonjour,

Merci de ne pas poster ce type de demande par MP.

Si vous voulez conserver un enregistrement sur navigation suivant précédent, il faut que le formulaire principal puisse superciser les données du sous-formulaire à travers une valeur commune.
Si vous changez d'enregistrement, il est évident que si aucun lien champ père/champ fils existe, la maintenance de la valeur souhaitée n'est pas possible.

Dans le tuto, la liste 1 est alimentée par une table.
Dans votre cas, il faut qu'elle soit alimenté selon une condition WHERE dynamique qui dépend de l'enregistrement sur lequel vous êtes positionné...

Par exemple :

Code :

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

1
2
3
4
5
6
Private Sub Form_Current()
Dim strCritere As String
    strCritere = Me.Parent![Code client]
    ListeA.RowSource = "SELECT ChampID, ChampValeur _
    FROM TableSource WHERE ChampParent = '" & strCritere & "'"
End Sub

Argy

[micheletparis]

Mes excuses, je n'ai pas l'habitude d'utiliser les forums.

Mes deux listes déroulantes se trouvent dans un sous-formulaire toutes deux alimentées par une table différente mais ça ne marche pas

Bonjour,

Merci de ne pas poster ce type de demande par MP.

Si vous voulez conserver un enregistrement sur navigation suivant précédent, il faut que le formulaire principal puisse superciser les données du sous-formulaire à travers une valeur commune.
Si vous changez d'enregistrement, il est évident que si aucun lien champ père/champ fils existe, la maintenance de la valeur souhaitée n'est pas possible.

Dans le tuto, la liste 1 est alimentée par une table.
Dans votre cas, il faut qu'elle soit alimenté selon une condition WHERE dynamique qui dépend de l'enregistrement sur lequel vous êtes positionné...

Par exemple :

Code :

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

1
2
3
4
5
6
Private Sub Form_Current()
Dim strCritere As String
    strCritere = Me.Parent![Code client]
    ListeA.RowSource = "SELECT ChampID, ChampValeur _
    FROM TableSource WHERE ChampParent = '" & strCritere & "'"
End Sub

Argy