Discussion :

[Alex_42]

Bonjour,

j'essaye d'affecter la commande docmd.close sur un bouton généré dans un formulaire dynamique afin de fermer celui-ci, mais j'obtiens toujours la même erreur et je ne vois pas d'ou ca vient ... Erreur de compilation : fonction ou variable attendue

je vous passe le detail de l'intégralité du formulaire, je laisse juste les sections concernant le bouton de commande .
Le bouton dans l'en-tête du formulaire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim frm As Form
 
Dim quit As CommandButton
Dim strnomform As String
 
Set frm = CreateForm()
strnomform = frm.Name
 
Application.RunCommand acCmdFormHdrFtr
frm.Section(acHeader).Visible = True
frm.Section(acHeader).Height = 600
 
Set quit = CreateControl(strnomform, acCommandButton, acHeader, , , 10000, 100, 1000)
quit.Caption = "Quitter"
quit.OnClick = DoCmd.Close(acForm, strnomform, acSaveNo)
 
DoCmd.OpenForm strnomform, acNormal

Merci d'avance

[Alex_42]

Bonjour,

je relance ma question car je ne trouve pas de solution.
je suis sur que c'est possible , mais là je ne vois comment ...

un p'tit coup de pousse si ma demande est réalisable svp.

merci d'avance

[Robert1957]

Bonjour Alex_42,

Le mot quit est un mot réservé d'Access. Tu as toute la liste ici:http://office.microsoft.com/fr-ca/ac...010030643.aspx

Est-ce que le problème ne viendrait pas de là?

Bonne journée

[Alex_42]

Bonjour,

Merci , ce n'était effectivement pas judicieux de l'appeler ainsi...J'ai changé le nom , mais ça ne change rien.
Toujours le même message d'erreur.

[Robert1957]

Bonjour Alex_42,

Est-ce que tu as déclaré ta variable que tu appelais quit mais disons coQuitter pour mon exemple:

Code :

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

Dim coQuitter As Control

Si oui ton code semble ok, ça devrait fonctionner.

Bonne journée

[Robert1957]

Re-bonjour Alex_42,

Je relisais ton code et je ne crois pas que tu puisse affecter:

Code :

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

coQuitter.OnClick = DoCmd.Close(acForm, strnomform, acSaveNo)

comme cela. Il faut soit affecter une fonction:

Code :

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

coQuitter.OnClick = "=LeNomDeLaFonction()"

ou une macro déjà enregistrée. ex.:

Code :

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

coQuitter.OnClick = "[M_Fermer]"

[Alex_42]

Bonjour,

désolé de n'avoir repondu plus tot.

ta solution

Code :

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

coQuitter.OnClick = "[M_Fermer]"

fonctionne tres bien !

merci beaucoup