1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
Del_Table ("ERDA_pb")
sSql = "INSERT INTO RDA_pb(Ba, Unit, Sys, Line, [Support Chrono], [Support Function],"
sSql = sSql + "[Techno code], [Supplier ref], Designation, Dimension, Weight, Unit, Quantity, "
sSql = sSql + "Displ, [Op load], [Preset load], [Length], Rev, Spec, Ord) "
sSql = sSql + "SELECT Ba, Unit, Sys, Line, [Support Chrono], [Support Function], "
sSql = sSql + "[Techno code], [Supplier ref], Designation, Dimension, Weight, Unit, "
sSql = sSql + "Quantity, Displ, [Op load], [Preset load], Length, rev, Spec, " + Me.txt_Choice + " "
sSql = sSql + "FROM Order_Final,Import_lot "
sSql = sSql + "WHERE ((Batch=Lot and Loc='Pb') and (([Techno code] and [Syst] and [Line]) NOT IN RDA1));"
Debug.Print sSql
ExecuteSQLQuery (sSql) |
Partager