trouver erreur requete VBA

Question

RE.
J ai mon code qui me renvoie plus d erreur mais il ne m execute pas la requete de mise à jour. Je comprends pas!

Si quelqu un voit ce qui va pas dans la requete Insert, merci


Option Compare Database

Sub ComposantParProduction(NumProd As Long)

Dim RS As Recordset

Dim Rsql As String
Dim SqlMAJ As String
Dim Champ As Field
Dim text$

Set Formulaire = Application.Forms("calcul du nb comp")
Rsql = " SELECT PRODUCTION.DateCdePRod, composant.CodeComp,composant.typeComp," & _
" Sum([qtécompPdt]*[qttedme]) AS nombre_composants FROM " & _
"ligneproduction, PRODUIT, produit_composer, composant,production WHERE " & _
" PRODUIT.CodePdt = produit_composer.CodePdt And PRODUCTION.Numprod=LigneProduction.NumBP and " & _" PRODUIT.CodePdt ligneproduction.NumProd And composant.codeComp " & _
" produit_composer.codeComp AND Production.NumProd=" & CStr(NumProd) & " GROUP BY " & _
" PRODUCTION.DateCdePRod,composant.CodeComp,composant.typeComp order by composant.typeComp ; "

With Formulaire.Liste24
    .RowSource = Rsql
    .ColumnWidths = "3cm;5cm;2cm;2cm"
    .Requery
End With

Set RS = Application.CurrentDb.OpenRecordset(Rsql, dbOpenDynaset)
RS.MoveFirst
Do While RS.EOF = False
    text = " "
    For Each Champ In RS.Fields
     text = text & Champ.Value & vbTab
             If Champ.Value = "cms" Then
                SqlMAJ = "INSERT INTO stocker(datestock, numEntrepot, numcomposant, Qtésortie)" & _
               " VALUES (RS.Fields(1),'ST002',RS.Fields(2),Rs.Fields(4));"
               MsgBox SqlMAJ
             End If
      Next Champ
     Debug.Print text
        
     RS.MoveNext
    

Loop
RS.Close
Set RS = Nothing
Set Champ = Nothing

    

End Sub



 :shy) Amaya ;)

cs_Jack · Answer

Salut yaya31

Pour la partie "Insert into", tu prépares bien la requete (à vérifier), tu l'affiches dans ton MsgBox, mais ... tu ne l'execute pas !!
Il manque un truc du style  "MaDB.Execute Rsql"  (je ne suis pas habitué à la syntaxe de cette méthode)

Vala
Jack

Trouver erreur requete VBA

1 réponse

Discussions similaires