Discussion :

[McBouts]

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 :

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

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.

[tee_grandbois]

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

Code :

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

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

[McBouts]

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

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

[tee_grandbois]

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

[McBouts]

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 :

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

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

[tee_grandbois]

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 :

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

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

[McBouts]

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 :

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

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 ?

[tee_grandbois]

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

oui, soit avec:

Code :

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

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 :

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

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

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.