Gros probleme de cancel et fenetre de sauvegarde !

Signaler
Messages postés
191
Date d'inscription
mercredi 21 juillet 2004
Statut
Membre
Dernière intervention
27 octobre 2008
-
Messages postés
172
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
4 août 2005
-
Salut

jutilise ce code pour sauvegarder un fichier sous...

Form3.cd.DialogTitle = "Enregistrer votre base résultats sous... "
Form3.cd.fileName = "sauvegarde base résultats.mdb"
Form3.cd.Filter = "*.mdb"
Form3.cd.CancelError = False
Form3.cd.ShowSave
Source = App.Path & "\ping_save.mdb"
Destination = Form3.cd.fileName
FileCopy Source, Destination
Call MsgBox("La sauvegarde de votre base de données au format MS Access est réussie.", 64, App.Title)

si le gar appuie sur cancel ca affiche quand meme le message "La sauvegarde de votre base de données au format MS Access est réussie"

jarrive pas a faire le code pour que ca affiche rien du tout

SynePing : Logiciel de Tennis de Table
Http://www.syneping.com

3 réponses

Messages postés
172
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
4 août 2005

Salut,
Si tu mets CancelError à true, puis juste après Form3.cd.ShowSave, tu places On Error Goto hell et après Call MsgBox("La sauvegarde de votre base de données au format MS Access est réussie.", 64, App.Title) tu mets hell: , ça devrait fonctionner.

Bonne prog, @+
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
27
SDauf que le on error, faut le mettre "avant" le ShowSave, pas après !!


Christophe R
Messages postés
172
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
4 août 2005

Oups,
De fait... Suis-je distrait quand même.
@+