Discussion :

[mamadouabd]

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

Code :

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

Left("test";2)

retourne la meme erreur

Merci de votre aide

[LedZeppII]

Bonsoir,

Je vois une erreur de syntaxe VB ici :

Code :

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

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

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

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

A+