Discussion :

[rag83]

Bonjour à tous,

Petite question de syntaxe VBA pour modifier la source d'un contrôle.

J'ai un état unique dont je souhaite changer le titre en fonction de la requête sur laquelle il est basé, qui n'est pas toujours la même.

Je voudrais combiner du texte et le compte des enregistrements de la requête.

Si je mets

Code :

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

="STAGES" & " (" & CpteDom("*";"R_Stages") & ")"

dans source contrôle de la feuille de propriété de l'état, ça fonctionne.

Par contre, en VBA

Code :

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

1
2
3
If Forms!F_Stages.Auto_EnTete0.Caption = "STAGES" Then
   Me.Auto_EnTete0.ControlSource = "STAGES" & " (" & CpteDom("*";"R_Stages") & ")"
End If

me dit Erreur de compilation, attendu séparateur de liste ou ) en me montrant le ;

Qu'est ce qui ne va pas ?

Merci

[marot_r]

Bonjour

Quand tu es dans du code VBA, le séparateur de paramètre est TOUJOURS la virgule (,). Il ne dépend pas des paramètres régionaux.
Il faut aussi utiliser le nom anglais des fonctions. La aussi les paramètres régionaux ne s'appliquent pas.

La bonne syntaxe devrait être :

Code :

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

DCount("*","R_Stages")

Quand tu es dans du SQL cela s'applique aussi.

En passant, si tu utilises le nom anglais dans l'éditeur de requête, Access le traduit automatiquement dans la langue voulue MAIS il faut quand même utiliser le point-virgule ( comme séparateur.

A+

[rag83]

Merci René mais en mettant

Code :

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

Me.Auto_EnTete0.ControlSource = "STAGES" & " (" & DCount("*", "R_Stages") & ")"

ça ne fonctionne toujours pas. Quand je mets la , au lieu de ; il y a automatiquement un espace qui s'insère devant le "R_Stages" mais ensuite au moment d'ouvrir l'état j'ai une boite de dialogue me demandant d'entrer une valeur de paramètre...

[nico84]

Bonjour à tous les 2,

Sauf erreur, quand le titre est généré en VBA (donc à chaque impression), il suffit de modifier .caption et non .controlsource

[rag83]

Cela ne fonctionne toujours pas

[marot_r]

Peux-tu mettre un exemple de ce que tu attends ?

Quel est le nom du paramètre demandé par Access ?

A+

[rag83]

Je ne sais pas si je pourrai mieux expliquer que dans mon premier post.

Mon état unique s'ouvre différemment en fonction de la requête sur laquelle il est construit. Pour chaque requête le titre de l'état doit donc changer, et le compte des enregistrements aussi.

Actuellement, j'ai d'un côté une étiquette avec le titre, et de l'autre une zone de texte avec le compte des enregistrements, dont la source contrôle est

Code :

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

="(" & CpteDom("*";"R_Stages") & ")"

Cela fonctionne très bien mais je voudrais pour une question de mise en page associer le titre et le compte dans le même contrôle.

Avec

Code :

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

Me.Auto_EnTete0.ControlSource = "STAGES" & " (" & DCount("*", "R_Stages") & ")"

le paramètre demandé est STAGES (14), le 14 correspondant au nombre d'enregistrement trouvé.

[marot_r]

Essaye cela :

Code :

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

Me.Auto_EnTete0.ControlSource = "=""STAGES" & " (" & DCount("*", "R_Stages") & ")"""

A+

[rag83]

Ça fonctionne, problème résolu ! Merci