Merci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Sub véhicule() Dim sélection_véhicule Dim dbsRBen As Database Dim tdfTable As TableDef sélection_véhicule = Forms![Formulaire3]![Liste0] Set dbsRBen = CurrentDb tdfTble = ("opération dans ordre chrono") With tdfTbl CreateField(sélection_véhicule, dbText, 20) = IQF_V10!sélection_véhicule End With End Sub
Partager