Ajout plusieurs valeur via VBA

Version imprimable

Bonjour à tous,

J'ai un formulaire où je choisi un fournisseur qui me donne une, liste déroulante avec les refs pour ce fournisseur puis qui me donne les tarifs pratiqués. Si le tarif n'est pas présent je rentre une nouvelle valeur et un code VBA entre cette valeur dans la la table tarif dans le champ "prix_unitaire".
Le problème c'est que je veux que lorsqu'un nouveau tarif est entré le code reporte la ref et le fournisseur. J'ai un code qui permet d'entrer le tarif mais impossible de copier les autres valeurs :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub lstPrix_NotInList(NewData As String, Response As Integer) If MsgBox("Voulez-vous ajouter " & NewData & " aux tarifs ?", _ vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then DoCmd.RunSQL "INSERT INTO fournisseur_produit ( article_ID, fournisseur_ID, prix_unitaire ) SELECT """ & Modifiable12 & """,""" & Modifiable16 & """,""" & NewData & """;" Response = acDataErrAdded Else Response = acDataErrContinue zl_marque.Undo End If End Sub
Si quelqu'un peut m'aider à récupérer les valeurs qui se trouve dans "Modifiable12" et "Modifiable16" pour les entrer dans la table fournisseur_produit en tant que "article_ID" et "fournisseur_ID".

Merci d'avance.

bonsoir,
ce n'est pas SELECT mais VALUES() qu'il faut utiliser:

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub lstPrix_NotInList(NewData As String, Response As Integer)
 
        If MsgBox("Voulez-vous ajouter " & NewData & " aux tarifs ?", _
        vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
        DoCmd.RunSQL "INSERT INTO fournisseur_produit ( article_ID, fournisseur_ID, prix_unitaire ) VALUES(""" & Me.Modifiable12 & """,""" & Me.Modifiable16 & """,""" & NewData & """);"
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
        zl_marque.Undo
    End If
End Sub

si le prix en contient un, attention au séparateur de décimales qui doit être le point et pas la virgule dans VBA.
si article_ID est un numéro auto, il ne faut pas l'inclure dans la requête INSERT

03/12/2018, 18h55
McBouts

Article_ID est effectivement un numéro auto. Avec ton code j'ai une erreur

Citation:

Erreur de compilation: Membre de méthode ou de données introuvable

Je fais pas mal de recherches mais impossible de trouver un exemple similaire...
03/12/2018, 19h14
tee_grandbois

Citation:

Article_ID est effectivement un numéro auto

j'ai pourtant dit qu'il fallait l'enlever de la requête non ?
peux-tu reposter ton code modifié ?

Citation:

Envoyé par tee_grandbois

j'ai pourtant dit qu'il fallait l'enlever de la requête non ?
peux-tu reposter ton code modifié ?

Je l'ai enlevé pourtant :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub lstPrix_NotInList(NewData As String, Response As Integer) If MsgBox("Voulez-vous ajouter " & NewData & " aux tarifs ?", _ vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then DoCmd.RunSQL "INSERT INTO fournisseur_produit ( fournisseur_ID, prix_unitaire ) VALUES(""" & Me.lstFournisseurs & """,""" & NewData & """);" Response = acDataErrAdded Else Response = acDataErrContinue zl_marque.Undo End If End Sub
Il faut savoir que mon formulaire sert à créer une commande. Je choisi la date et j'ai une liste déroulante (lstFournisseurs) pour choisir mon fournisseur.
Ensuite dans mon sous formulaire format feuille de données j'ai une liste déroulante avec mes articles filtrés depuis la sélection du fournisseur, la quantité ainsi qu'une liste pour sélectionner le tarif appliqué.

Citation:

Je l'ai enlevé pourtant

oui, oublie, c'est une erreur.
peux-tu modifier ton code comme cela et poster le contenu du Debug.Print ?
Code:

1 2 3 4 5 Dim strSQL as String strSQL = "INSERT INTO fournisseur_produit ( fournisseur_ID, prix_unitaire ) VALUES(""" & Me.lstFournisseurs & """,""" & NewData & """);" Debug.Print strSQL DoCmd.RunSQL strSQL

Comme j'ai pu le montrer je ne suis pas un forcément à l'aise avec le VBA mais après beaucoup d'essais et avec ton aide tee_grandbois j'ai réussi. Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub lstPrix_NotInList(NewData As String, Response As Integer) If MsgBox("Voulez-vous ajouter " & NewData & " aux tarifs ?", _ vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then DoCmd.RunSQL "INSERT INTO fournisseur_produit ( article_ID, fournisseur_ID, prix_unitaire ) VALUES(""" & lstArticles & """,""" & [Forms]![commandes_création]![fournisseur_ID] & """,""" & NewData & """);" Response = acDataErrAdded Else Response = acDataErrContinue zl_marque.Undo End If End Sub
J'ai fini par penser qu'il devait y avoir un problème avec "lstFournisseurs" car quand celui-ci n'était plus présent j'arrivais à avoir un retour de lstArticles.
J'ai aussi enlevé les Me.

Par contre j'ai un message qui me demande confirmation est-ce que je peux l'enlever ?

Citation:

Par contre j'ai un message qui me demande confirmation est-ce que je peux l'enlever ?

oui, soit avec:
Code:

1 2 3 4 ' désactive les messages d'avertissement DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO fournisseur_produit ( article_ID, fournisseur_ID, prix_unitaire ) VALUES(""" & lstArticles & """,""" & [Forms]![commandes_création]![fournisseur_ID] & """,""" & NewData & """);" DoCmd.SetWarnings True
ou aussi:

Code:

Currentdb.Execute "INSERT INTO fournisseur_produit ( article_ID, fournisseur_ID, prix_unitaire ) VALUES(""" & lstArticles & """,""" & [Forms]![commandes_création]![fournisseur_ID] & """,""" & NewData & """);" , dbFailonError

Citation:

J'ai aussi enlevé les Me.

Me. est associé au contrôles du formulaire courant (celui où est écrit le code) cela évite d'écrire à chaque fois Forms!LeNomduFormulaire. Par contre si on utilise un contrôle d'un autre formulaire, il faut évidemment préciser le nom.