Requete SQL dans du VBA

Bonjour à tous,

Grosse alerte, je dois présenter ça lundi...

J'ai un formulaire sous access incluant 2 zones de texte ( [texte0] et [texte2]), une liste déroulante [modifiable5] et un bouton de validation.

J'aimerai que lors du clic sur la validation la table BOISSON se mette à jour

Voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Commande8_Click() Dim r As String Dim N As Variant Dim m As Variant Dim T As Single   N = [Texte0] m = [Modifiable5] T = [Texte2]     r = " INSERT INTO BOISSON ( NomB , mesure, Tva )" & _ " VALUES(N, m, T)"     DoCmd.RunSQL r     End Sub

---

Et quand je valide il me demande de donner une valeur manuellement à N, m et T!!!

Je suis vraiment pas doué, je sais!

PS: désolé si un post semblable existe déjà mais j'ai beaucoup de mal à transposer les infos pour mon application...

Bonjour

Erreur classique, d'où l'intéret du tutoriel de Cafeine sur le debogage des requêtes en VBA ...

Il faut concatener les valeurs et non les placer directement dans la chaine de caractères. En tenant compte de leur type :

Code:

---

1 2	r = " INSERT INTO BOISSON ( NomB , mesure, Tva )" & _ " VALUES(" & chr(34) & N & chr(34) & "," & ...

---

Sachant que Chr(34) correspond à des guillemets pour dire au moteur de base de données que c'est du texte et non un nombre

Merci beaucoup

Re au secours!!

Cette fois, je cherche à attribuer la valeur d'une donnée stockée dans une table à une variable dans une requête VBA

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Commande10_Click()   Dim sql2 As String Dim PU As Variant   sql2 = " select prix " & _ " from boisson " & _ " where [NomB] = [BC] "       DoCmd.RunSQL sql2     PU = sql2     End Sub

---

Encore une fois, il doit bien y avoir la réponse quelque part dans ce forum ARCHI complet, mais ou??????? 8O

bonjour,

Une solution avec la fonction de domaine DLookUp :

Code:

---

1 2	PU = DLookup("prix", "boisson", "NomB = '" & [BC] & "'")

---

Voir aide d'access pour plus d'infos.

Philippe

Ca c'est tres tres bien!!! :ccool:

Du coup, le code au complet

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Private Sub Commande10_Click() Dim sql As String Dim sql2 As String Dim PU As Single Dim cb As Variant       sql = " update boisson " & _ " set stock = Stock - Qc " & _ " where [NomB] = [BC] "   DoCmd.RunSQL sql   PU = DLookup("prix", "boisson", "NomB = '" & [BC] & "'")   cb = DLookup("codeb", "boisson", "NomB = '" & [BC] & "'")   sql2 = " INSERT INTO consommer ( date_conso, quantite, prix_unitaire, codeB )" & _ " VALUES ( DC, QC, PU, cb ) "   DoCmd.RunSQL sql2     End Sub

---

quand je le lance il me demande les valeurs de PU et cb (alors que dans le mode débogage il trouve ces valeurs quand je les sélectionne...)


erreur d'exécution '3021'
erreur réservée

J'adore ...

Où comment faire faire son boulot à d'autres.

Le prochain coup, commence par lire les ressources mises à ta disposition avant de poster. Et surtout applique les réponses données :roll: