Voila j ai ma fonction qui me permet d afficher ceci dans mon formulaire:
J aimerai que ce qui s affiche là soit decrementer de ma table stocker(datestock,numEntrepot,NumComposant,Qtésortie)
comme je l'ai deja expliqué
Amaya
-------------------------------
Réponse au message :
-------------------------------
>
>
Amaya
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > ça ok je sais faire mais je fais insert into( x1,x2..)
> > select X1,X2...) from table1, table2 et là j aimerai relier les champs de cette requete avec celle Rsql. Je sais pas si tu vois ce que je veux dire. Donc faut que j arrive à relier ma requete insert into avec celle de Rsql
> >
> >
> >
Amaya
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Salut à toi
> > >
> > > pour la fonction insert into il faut donner les champs dans l'orde de ta table pour des exemples de la fonction insert into vas sur : www.mysql.com
> > >
> > > @+
> > >
> > > Cédric Lemaitre
> > >
> > >
> > > Viva le révolution Linux!!!!!!!!!!!!!!!
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > >
> > > > Bonjour tout le monde
> > > >
> > > > J ai un formulaire une fonction dans un formulaire qui me calcul et m affiche le nombre de composant necessaire à la fabrication d un produit
> > > > Voici ma fonction:
> > > >
> > > >
> > > >
> > > > Option Compare Database
> > > >
> > > >
> > > > Sub ComposantParProduction(NumProd As Long)
> > > >
> > > > Dim RS As Recordset
> > > >
> > > > Dim Rsql 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
> > > > Next champ
> > > > Debug.Print text
> > > > RS.MoveNext
> > > >
> > > >
> > > > Loop
> > > > RS.Close
> > > > Set RS = Nothing
> > > > Set Champ = Nothing
> > > >
> > > >
> > > > End Sub
> > > >
> > > > |
> > > >
> > > >
> > > >
> > > > J aimerai que cette requete me permette de destocker en meme temps une table stocker(DateStock,NumEntrepot,NumComposant,QteSortie)
> > > >
> > > > La date du stock correspondrait à DateCmdeProd de la requete
> > > >
> > > > Pour NumEntrepot, sa valeur changerait suivant le type de composant (composant.typeComp)de la requete
> > > >
> > > > NumComposant correspondrait à composant.codeComp
> > > > Et la QteSortie serait egal à um([qtécompPdt]*[qttedme]) de la requete.
> > > >
> > > >
> > > > J ai pensé faire un insert into mais je sais pas comment on fait pour faire correspondre les champs.
> > > >
> > > > Si quelqu un peut m aider..
> > > > MERCI
> > > >
> > > >
> > > >
Amaya
> > > >
> > >
> >
>