OVH Cloud OVH Cloud

si un fichier existe

2 réponses
Avatar
eric
bonjour, je voudrai rendre visible un bouton si le fichier existe. je fais
co ca:

Private Sub photo_AfterUpdate()
If Dir$("\\Serveur\_Base de donnée AECF\CV\LevasseurColette.doc") <> "" And
GetAttr("\\Serveur\_Base de donnée AECF\CV\LevasseurColette.doc") <>
vbDirectory Then
Commande750.Visible = True
End If
End Sub

ms le bouton ne s'affiche pas malgré que le fichier existe. que faut il
faire?

2 réponses

Avatar
Jessy SEMPERE
Re,
bonjour, je voudrai rendre visible un bouton si le fichier existe.


Utilises juste Dir, GetAttr n'est pas utilie...

If Dir$("Serveur_Base de donnée AECFCVLevasseurColette.doc") <> ""
Then
Commande750.Visible = True
End If

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------

Avatar
Francois
Bonjour,

En complément à la réponse de Jessy, peut être qu'il faut aussi mettre
"Commande750.Visible = false" quand le fichier n'existe pas...

@ +

François

"Jessy SEMPERE" a écrit dans le message news:
bg3cqn$qdt$
Re,
bonjour, je voudrai rendre visible un bouton si le fichier existe.


Utilises juste Dir, GetAttr n'est pas utilie...

If Dir$("Serveur_Base de donnée AECFCVLevasseurColette.doc") <> ""
Then
Commande750.Visible = True
End If

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------