Message d'erreur sur une requête mise à jour

Voila mon problère :

Sur clic je souhaite demander à l'utilisateur de siaisr 2 valeurs

Code:

---

1 2 3 4

Dim Reponse1 As String Dim Reponse2 As String Reponse1 = InputBox("Veuillez saisir le numéro de facture à éditer", "Edition Facture") Reponse2 = InputBox("Veuillez saisir le numéro de commande associée", "Edition Facture")

---

Là pas de soucis. Ensuite je voudrais insérer dans ma table Facture le numéro de facture et le numéro de commande saisi par l'utilisateur (là toujours pas de soucis).

Code:

---

DoCmd.RunSQL "insert into facture (NumFact,NumProforma) VALUES ('" & Reponse1 & "', '" & Reponse2 & "')"

---

Ce que je n'arrive pas c'est rajouter la raison sociale du client que l'on retrouve avec le NumCommande de la table Commande qui est aussi en clé étrangère dans la table facture. Mon code

Code:

---

DoCmd.RunSQL "Update Facture set RaisonSociale = (Select Raisonsociale from Commande where NumCommande='" & Reponse2 & "') where Numcommande= ' " & Reponse2 & " ' "

---

J'ai à ce niveau le fameux message d'erreur "L'opération doit utiliser une requête qui peut être mise à jour"
J'ai cherché des explications sur cette erreur mais....j'ai testé en utilisant des NOT IN des EXISTS mais je n'arrive pas à faire fonctionner mon code.

Merci de m'aider.

PS : j'ai un autre post sur lequel je n'ai pas de réponse donc si jamais vous pouvez y jeter un oeil... Il s'appel : "Utilisation de la fonction Dsum"

Bonjour,

As-tu vérifié ce que te retourne la commande sql de sélection?

Il faudrait peut être procéder par étape : 1 récupérer la valeur que veux dans une variable et 2 mettre à jour la table facturation via la variable intermédiaire.


Cordialement

Coment puis je visualiser ce que ce que retourne mon select? Et comment peut attribué le résultat d'une requête à une variable?

J'ai tenté cela mais....

Code:

---

1 2	Dim Reponse3 As String Reponse3 = DoCmd.RunSQL "Select Raisonsociale from Commande where NumCommande = '" & Reponse2 & "';"

---

Merci pour la réponse en tout cas.

ton dernier sql ne marche pas car le select peut retourner plusieurs valeurs
il faut créer un recordset

Code:

---

1 2 3 4 5

dim rst as recordset set rst = currentdb.openrecordset("Select Raisonsociale from Commande where NumCommande = '" & Reponse2 & "';") if rst.eof=false then DoCmd.RunSQL "Update Facture set RaisonSociale = '" & rst!Raisonsociale & "' where Numcommande= '" & Reponse2 & "' " endif

---

Merci beaucoup....Problème résolu!!!!:D