Ajustement d'inventaire

[Lee Ann Hogle]

Bonjour,
J'essaie de faire une ajustement d'inventaire sur tous les composants d’un produit.
J'utilise le code exemple dans le Help ODBC mais c'est excessivement long d'ouvrir la table ProductTrail ( ou ca bug ). Quand je fais le query directe dans Access c’est très longue aussi. Je n'ai pas de problème en utilisant la méthode
cnn.execute " insert into ProductTrail ...”
mais il faut que je utilise les variables .
Votre aide serait apprécié
Voici mon code :

Code:


Dim cnn As New ADODB.Connection
Dim rstInventaire As New ADODB.Recordset
Dim rstProduct As New ADODB.Recordset
Dim rstComponents As New ADODB.Recordset
cnn.ConnectionString = "DSN=Acomba23;DBQ=C:\F1000.DTA\cieTest\test23oct; UID=supervisor;PWD=xxxxx"
cnn.CursorLocation = adUseClient
cnn.Open
'Recherche du produit auquel on veut ajuster l'inventaire pour obtenir son CP
rstProduct.Open "SELECT * FROM Product where PrNumber = 'ZDV100-GRIS01'", cnn, adOpenKeyset, adLockOptimistic

'Ouverture de la table pour l'ajustement d'inventaire
rstInventaire.Open "SELECT * FROM ProductTrail", cnn, adOpenKeyset, adLockOptimistic

rstInventaire.AddNew

'CP du produit traité
rstInventaire!PTProductCP = rstProduct!RecCardPos

'Tr_Purchase 1 Achat
'Tr_Sale 2 Vente
'Tr_Adjustment 3 Ajustement
rstInventaire!PTTraceType = Tr_Adjustment
rstInventaire!PTQuantity = 11
rstInventaire!PTCost = 66.66
rstInventaire.Update

rstInventaire.Close

cnn.Close

MsgBox "Inventaire ajusté"
End Sub

[Lartis]

Bonjour,

J'ai eu un problème très semblable et voici la solution:

Remplace ta requête SELECT par:

Code:

rstInventaire.Open "SELECT * FROM ProductTrail [b]WHERE RecCardPos = 0[/b]", cnn, adOpenKeyset, adLockOptimistic

Cette requête ne retournera rien, mais comme tu fais un insert dedans, ce n'est pas grave. Le select sera instantanné, puisque la colonne RecCardPos est indexé.

Bonne chance,
.