Bonjour,
Je souhaiterai récupérer tous les noms des champs ayant une légende d'un ou de plusieurs formulaires puis les stocker dans une table.
J'ai quelques pistes, mais je ne vois pas comment ecrire ce bout de code :
- utiliser la propriété caption
- parcourir tous les caption du formulaire voir de l'application access ouverte
- insérer via une requête Sql Insert dans ma table
Voilà ce que ça donne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Dim db As Database Set db = CurrentDb() Dim Controle As Control For Each Controle In Me.Controls db.Execute "INSERT INTO Liste(appli,formulaire,champs, legende) values ('" & CurrentProject.Name & "', '" & Me.Name & "', '" & Controle.Name & "', '" & Controle.Caption & "')" Next Controle
Mon problème est que le Controle.Caption me retourne une erreur et bloque le code, avez-vous une idée ?
Partager