Discussion :

[jmlb35]

Bonjour

avec le code ci joint je crée une colonne dont le nom est déterminé par une liste déroulante.
il existe dans une autre table, une colonne avec le même nom, mais avec des données.
Je souhaiterai copier les données pour les coller dans la nouvelle colonne que j'ai créé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub véhicule()
Dim sélection_véhicule
Dim dbsRBen As Database
Dim tdfNewTbl  As TableDef
sélection_véhicule = Forms![Formulaire3]![Liste0]
Set dbsRBen = CurrentDb
Set tdfNewTbl = dbsRBen.CreateTableDef("opération dans ordre chrono")
With tdfNewTbl
.Fields.Append .CreateField(sélection_véhicule, dbText, 20)
End With
End Sub

Merci par avance pour votre aide

[Invité]

Bonjour

Excuse moi, mais quel est le but de la manœuvre ?

Car à part multiplier les données pour rien (ce qui est déconseillé), je ne vois pas l'intérêt.

Starec

[jmlb35]

j'ai une table dans lequel j'ai des noms de véhicules en entête de colonne et en données oui ou non pour des opérations sont réalisées sur ces véhicules.
Mon problème est que je veux travailler avec un seul véhicule à la foi.
mettre en critère des sélections de listes déroulantes sur tous les véhicules ne fonctionne pas.
Je veux pouvoir mettre en critère de requête oui ou non pour un seul véhicule et cela d'après le choix du véhicule par l'utilisateur de la base.
Voila mon problème et merci pour ton aide.