Discussion :

[JulieLesp]

Bonjour,

J'ai crée un formulaire contenant un calendrier sous Access. J'ai donc 365 champs sur celui-ci. J'aimerai qu'en fonction de l'année sélectionné, ceux ci se remplissent automatiquement (jour de la semaine, évènement,....). Pour faire cela, je suis partie du principe de réaliser une boucle for avec un incrémenteur i démarrant de 1 à 366 :

Code :

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

1
2
3
4
5
6
 
For i = 1 To 366
      d = CDate(nbdate)
      Me." Texte& '.i.' " = DLookup("[Jour]", "T_CalendrierGénéral", "[Date]=#" & d & "#")
     nbdate = nbdate + 1
Next

Seulement, je n'arrive pas à définir le nom de ce champ. Je sais que ma syntaxe n'est pas correcte. Pouvez vous m'aider?
Merci par avance

[madefemere]

Bonjour,

Dans les formulaires, il faut utiliser la collection "Controls" pour faire référence aux contrôles d'un formulaire.
On aurait :

Code :

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

Me.Controls("Texte" & i).Value = DLookup("[Jour]", "T_CalendrierGénéral", "[Date]=#" & d & "#")

Cordialement,

[marot_r]

Bonjour

C'est une erreur classique quand on debute avec les controles et les chaines de caracteres :

Code :

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

Me.Controls("Texte" & i) = DLookup("[Jour]", "T_CalendrierGénéral", "[Date]=#" & d & "#")

Devrait resoudre ton probleme ou au moins te mettre sur la piste.

A+

[JulieLesp]

Je vous remercie pour votre aide. Ça marche parfaitement.
Je vous souhaite une bonne journée.