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 ?