Discussion :

[spacesheep]

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:

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;

dans les propriétés de "zl_marque", onglet événement, sur changement:

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

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
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

Jusque là tout fonctionne ^^

Par contre si je fait de même avec "zl_modele"

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

Ç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".

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

[nico84]

Bonjour,

Cette syntaxe prendra la marque en cours de sélection dans la liste déroulante :

Code :

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

DoCmd.RunSQL "INSERT INTO tbl_modele (nom_modele, num_marque) VALUES ('" & NewData & "','" & zl_marque & "');"

NB : je préfère utiliser ' plutot que " dans les requêtes SQL c'est plus standard et plus lisible

[spacesheep]

Ça ne fonctionne pas non plus.

Cela m'affiche:

Erreur d"exécution '3127':

L'instruction INSERT INTO contient le nom de champ inconnu suivant:
'nom_marque'. Assurez-vous que vous avez correctement saisi le nom, puis recommencez.

Et si je remplace nom_marque par num_marque, ça ne fonctionne pas non plus.

[nico84]

Y'a quoi dans ces tables ?
Et avec num_marque ???

[spacesheep]

Dans la table tbl_modele, il y a :
num_modele, nom_modele et num_marque

dans tbl_marque, il y a:
num_marque et nom_marque

Je t'avoue que ne comprend pas grand chose comme je début dans ce monde.

J'ai ressayé et la ça marche ... comprend plus rien

En tout cas merci nico84

[nico84]

C'est parceque quand j'ai écrit mon 2e post j'ai modifié le 1er