Discussion :

[lbourlet]

Bonjour,

Je suis en train de créer de manière dynamique un formulaire en mode continu.

J'ai réussi à créer les champs de saisie. J'utilise une instruction du style :

Code :

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

Set ctlNew = CreateControl("Synthèse Evaluation Echelle " & Echelle, acTextBox)

pour ajouter les champs dans la zone "détails".

Je bloque maintenant sur les champs de l'entête. Je ne vois pas comment ajouter un champ dans l'entête de mon formulaire.

J'ai vu qu'on pouvait accéder aux sections d'un formulaire par la collection "Section" du dit formulaire mais je n'arrive pas à l'inclure dans le "CreateControl".

Quelqu'un aurait une idée ?

Merci !

[cafeine]

Tu dois activer l'affichage des Footer et Header ...

dans ton code, et quand le form est mode design :

Code :

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

DoCmd.RunCommand acCmdFormHdrFtr

[lbourlet]

Merci pour l'info. Mais je n'arrive pas à l'utiliser.

Je fais ça :

Code :

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

1
2
DoCmd.OpenForm "Synthèse Evaluation Echelle " & Echelle, acDesign
DoCmd.RunCommand acCmdFormHdrFtr

et il n'affiche pas les Footers et headers. Je ne trouve pas d'exemple dans l'aide d'Access.

Du coup, quand je fais mon :

Code :

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

Set ctlNew = CreateControl("Synthèse Evaluation Echelle " & Echelle, acLabel, acHeader)

il me crie dessus en me disant que la section n'est pas disponible.

J'ai raté quelque chose ?

[lbourlet]

OK j'ai compris !

Le

Code :

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

DoCmd.RunCommand acCmdFormHdrFtr

affiche ou cache les entêtes - pieds de page.

Donc, comme je rentrais avec les entêtes déjà affichés, ça buggait !

Merci pour le coup de main !

[cafeine]

j'ai créé une fonction toute bête ...

Code :

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

1
2
3
4
5
6
Function DisplayForm()
 
DoCmd.OpenForm "frmTest", acDesign
DoCmd.RunCommand acCmdFormHdrFtr
 
End Function

et ça marche ... étrange ...

[cafeine]

OK bon, ben c'est résolu ... pense au Tag [Résolu]

[lbourlet]

Oui, cf mon message du dessus.

Merci encore.