Bonjour tout le monde,
Voici mon problème du jour,
Dans un formulaire avec deux zone de liste déroulante "zl_marque" et zl_modele"
"zl_modele" est dépendante de "zl_marque"
Explication de ce que j'ai fait.
"zl_marque" affiche "nom_marque"
"zl_modele" affiche "nom_modele"
Dans les propriétés de "zl_modele", onglet données, contenu:dans les propriétés de "zl_marque", onglet événement, sur changement:
Code : Sélectionner tout - Visualiser dans une fenêtre à part SELECT tbl_modele.num_modele, tbl_modele.nom_modele FROM tbl_modele WHERE tbl_modele.num_marque=forms!frm_mobile.zl_marque;
Si dans "zl_marque" la marque n'existe pas elle s'incrémente dans la table "tbl_marque" :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Private Sub zl_marque_Change() Me.zl_modele.Requery End Sub
Jusque là tout fonctionne ^^
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub zl_marque_NotInList(NewData As String, Response As Integer) If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des marque ?", _ vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then DoCmd.RunSQL "INSERT INTO tbl_marque ( nom_marque ) SELECT """ & NewData & """;" Response = acDataErrAdded Else Response = acDataErrContinue zl_marque.Undo End If End Sub
Par contre si je fait de même avec "zl_modele"
Ça ne fonctionnement pas totalement c'est à dire que cela incrémente dans la table "tbl_modele" que le nom du modèle "nom_modele" mais pas le "num_marque".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub zl_modele_NotInList(NewData As String, Response As Integer) If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des marque ?", _ vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then DoCmd.RunSQL "INSERT INTO tbl_modele ( nom_modele ) SELECT """ & NewData & """;" Response = acDataErrAdded Else Response = acDataErrContinue zl_modele.Undo End If End Sub
Comment récupérer le "num_marque" de "zl_marque" pour qu'il s'incrémente dans la table "tbl_modele"?
Je vous remercie par avance
Partager