Discussion :

[Jean-Luc80]

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

Code :

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

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 :

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

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

[Jean-Luc80]

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

Code :

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

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 :

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

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