Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Gestion des erreurs par fonction

Gestion des erreurs par fonction

21 réponses
Avatar
J aimerais chunter les messages d erreur dans le code
suivant et rajouter du code si la fonction filecopy s est
bien deroulee. Est ce possible ???

Dim Ctl As Control
For Each Ctl In Me.Controls
If Ctl.ControlType = acCheckBox Then

FileCopy "\\stationcs\c$\silvercs9\specif.pl", "\\" &
Ctl.Name & "\c$\silvercs9\"
FileCopy "\\stationcs\c$\silvercs9\specif.pl", "\\" &
Ctl.Name & "\d$\silvercs9\"
FileCopy "\\stationcs\c$\silvercs9\specif.pl", "\\" &
Ctl.Name & "\e$\silvercs9\"

End If
Next Ctl

Merci d avance
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
3stone
Salut,

a écrit


For Each Ctl In Me.Controls
If Ctl.ControlType = acCheckBox Then
If Ctl.Value = -1 Then

FileCopy ...

...

End If

End if
Next



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
1 2 3