Réception d'achat

[Luc Martin]

Je tente dans un module ACCESS VBA de faire une réception d’achat voici le script principale

Recordset Réception = la table TransractionHeaderDetail + quelques champs supplémentaire.

même si j’identifie une trace « 1 = Achat » le trace se fait toujours « 3=Ajustement »
Acomba ver. 8.0
Access 2003
Complément ODBC

rstInventaire.Open "SELECT * FROM ProductTrail WHERE RecCardPos=0", cnn, adOpenKeyset, adLockOptimistic
rstInventaire.AddNew
rstInventaire!PTProductCP = Réception!ILProductCP
rstInventaire!PTTraceType = 1
rstInventaire!PTQuantity = Réception!QtéReçu
rstInventaire!PTCost = Réception!ILSellingPrice
rstInventaire!PTProductNumber = Réception!ILProductNumber
rstInventaire!PTProductSupplierCP = Réception!ILProductSupplierCP
rstInventaire!PTInvoicingCP = Réception!RecCardPos
rstInventaire!PTInvoicingUnique = Réception!InUnique
rstInventaire!PTInvoiceNumber = Réception!InInvoiceNumber
rstInventaire!PTDate = Date()
rstInventaire.Update
rstInventaire.Close
cnn.Close