Gros probleme de cancel et fenetre de sauvegarde !

Question

Salut

jutilise ce code pour sauvegarder un fichier sous...

Form3.cd.DialogTitle = "Enregistrer votre base r&#233;sultats sous... "
Form3.cd.fileName = "sauvegarde base r&#233;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&#233;es au format MS Access est r&#233;ussie.", 64, App.Title)

si le gar appuie sur cancel ca affiche quand meme le message "La sauvegarde de votre base de donn&#233;es au format MS Access est r&#233;ussie"

jarrive pas a faire le code pour que ca affiche rien du tout

SynePing : Logiciel de Tennis de Table 
Http://www.syneping.com

MoiOlivier · Answer

Salut,
Si tu mets CancelError &#224; true, puis juste apr&#232;s Form3.cd.ShowSave, tu places On Error Goto hell et apr&#232;s Call MsgBox("La sauvegarde de votre base de donn&#233;es au format MS Access est r&#233;ussie.", 64, App.Title) tu mets hell: , &#231;a devrait fonctionner.

Bonne prog, @+

crenaud76 · Answer

SDauf que le on error, faut le mettre "avant" le ShowSave, pas apr&#232;s !! 


Christophe R

MoiOlivier · Answer

Oups,
De fait... Suis-je distrait quand m&#234;me.
@+

Gros probleme de cancel et fenetre de sauvegarde !

3 réponses

Discussions similaires