trouver l erreur ?!! VBA

Question

J ai pas de message d erreur mais il ne m ajoute pas les champ dans la table stocker ?!! Comprends pas 



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_wape · Answer

Essaye comme ceci :

SqlMAJ = "INSERT INTO stocker(datestock, numEntrepot, numcomposant, Qtésortie)" & _
" VALUES (" & Rs.Fields(1) & ",'ST002'," & Rs.Fields(2) & "," & Rs.Fields(4) & ");"

Slts

wape

cs_yaya31 · Answer

Il me met element non trouvé dans cette collection.

merci de m aider

 :shy) Amaya ;)

cs_wape · Answer

Dans ton recordset, tu sélectionnes 4 champs. Pour obtenir le premier de ces champs il faut indiquer Rs.Fields(0), pour le deuxième Rs.Fields(1), etc. Ce qui donne :

SqlMAJ = "INSERT INTO stocker(datestock, numEntrepot, numcomposant, Qtésortie)" & _
" VALUES (" & Rs.Fields(0) & ",'ST002'," & Rs.Fields(1) & "," & Rs.Fields(3) & ");"

Slts

wape

cs_yaya31 · Answer

Ah merci

Bon j avance.. j ai plus de message d erreur mais ça ne m ajoute rien dans ma table stocker ..

 :shy) Amaya ;)

lpikachu58 · Answer

Est ce que tu as regardé si il y a quelque chose dans tes varianbles avec les débogueurs

@+

Cédric Lemaitre

Viva le révolution Linux!!!!!!!!!!!!!!!

cs_wape · Answer

C'est normal... Une fois que la requête SQL est créée, il faut encore l'exécuter :

SqlMAJ = "INSERT INTO stocker(datestock, numEntrepot, numcomposant, Qtésortie)" & _
" VALUES (" & Rs.Fields(0) & ",'ST002'," & Rs.Fields(1) & "," & Rs.Fields(3) & ");"
CurrentDb.Execute SqlMAJ, dbFailOnError

Slts

wape

cs_yaya31 · Answer

Merci encore pour votre aide.
Maintenant il me dit qu il y a une erreur de syntaxe dans l expression "26/02/03 15:30:21"
J ai verifé et j ai bien DateStock de la table Stocker et DateCdeProd de la table Production qui sont bien au format date.. 
Peut etre il faut pas faire de masque de saisie ???
Je vois pas
Merci encore

 :shy) Amaya ;)

cs_yaya31 · Answer

putain ca marche il fallait mettre des cotes pour les alpha ...
MERCI JE VOUS AIME

 :kisses) 
 :shy) Amaya ;)

cs_yaya31 · Answer

Merci ça fesait des mois que je galerais 
 :shy) Amaya ;)

Trouver l erreur ?!! VBA

9 réponses

Discussions similaires