int([champ])+1
Maconn.Execute ("insert into " & Me.TxtTable.Text & "(num_tick,code_art ,qte , pv_ht ,mntht ,pv_ttc ,mntttc ,tva ,remisep ) select n,code_art ,qte , pv_ht ,mntht ,pv_ttc ,mntttc ,tva ,remisep from detvente where num_tick =" & Me.TxtNum.Text)