Bonjour tout le monde

Je veux assigner a la propriete ControlSource d'un textbox l'expression :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
=Mid(Lundi; 1; LastOccurence(Lundi;" ") - 1)
par VBA.
Ou LastOccurence est une fonction personnalise qui marche parfaitement.
Cependant lorsque j'assigne l'expression manuellement au textbox de l'etat ca marche et impossible de l'assigner par VBA en utilisant le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
With r.Controls(r.Controls.Count - 1)
                .Name = rs.Fields(i).Name & 1
                .FontName = "Arial"
                .FontSize = 10
                .ForeColor = 0
                .TextAlign = 1
                .FontBold = False
                .SizeToFit
                If i = 0 Then
                    .ControlSource = rs.Fields(i).Name
                Else
                    .ControlSource = "=Mid(Lundi; 1; LastOccurence(Lundi;" ") - 1)"
                End If
End With
Access me retourne Erreur de Syntaxe dans l'expression alors qu'elle est parfaitement valide. Meme retourne la meme erreur

Merci de votre aide