impossible d'assigner a la propriete ControlSource d'un textbox une expression par VBA

Bonjour tout le monde

Je veux assigner a la propriete ControlSource d'un textbox l'expression :

Code:

---

=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:

---

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

Code:

---

Left("test";2)

---

retourne la meme erreur

Merci de votre aide

Bonsoir,

Je vois une erreur de syntaxe VB ici :

Code:

---

.ControlSource = "=Mid(Lundi; 1; LastOccurence(Lundi;" ") - 1)"

---

Il faut doubler les " à l'intérieur d'une chaîne de caractères VB :
{Edit: et très probablement remplacer les ; par des ,}

Code:

---

.ControlSource = "=Mid(Lundi, 1, LastOccurence(Lundi,"" "") - 1)"

---

A+