Mise à jour d'un champ texte

Bonjour
A l'aide d'un bouton bascule nommé Ordre je voudrais mettre à jour un champ texte nommé EDossier

Code:

---

1 2 3 4 5 6 7 8

Private Sub Ordre_Click() If Ordre.value = -1 Then Me.EDossier.ControlSource = "c:\affiches2" Else Me.EDossier.ControlSource = "c:\affiches" End If RepaintPhotos End Sub

---

Dans le routine RepaintPhotos EDossier correspond à un répertoire de photos
J'obtiens une erreur sur cette ligne

Code:

---

lFichier = Dir(Me.EDossier & "\", vbHidden)

---

Erreur '2424'
L'expression entrée comporte un nom de champ, de controle ou de propriété introuvable
quand je clique sur mon bouton bascule
Merci de vos conseils

Bonjour
Pour info j'ai trouvé la solution.
Au niveau du code

Code:

---

1 2 3 4 5 6 7

Private Sub Ordre_Click() If Ordre.value = -1 Then Me.EDossier.ControlSource = "c:\affiches2" Else Me.EDossier.ControlSource = "c:\affiches" End If End Sub

---

Il suffit de retirer ControlSource et il n'y a plus d'alarme
Ce qui donne

Code:

---

1 2 3 4 5 6 7

Private Sub Ordre_Click() If Ordre.value = -1 Then Me.EDossier = "c:\affiches2" Else Me.EDossier = "c:\affiches" End If End Sub

---