Question : Message d'erreur de confiance d'endroit « 2001 »

Ce problème doit être un des plus facile à résoudre, mais j'ai passé un long temps sur ceci et ne peux pas voir toujours où je suis allé mal ! le

I ont écrit un procédé d'exportation pour ma base de données.  Cependant, quand le procédé est couru SANS ajouter le nom de base de données et chemin d'annuaire au « a fait confiance à des endroits », je reçois un avertissement de sécurité.  Quand le bouton de « annulation » est pressé moi obtenir l'erreur d'exécution 2001.

I ont ajouté la routine suivante de piégeage d'erreurs (qui pour mes buts est vraiment seulement un message instructif à l'utilisateur), mais bien qu'il arrête le message d'erreur d'exécution apparaissant il n'affiche pas mon message (j'ai « sur le rapport GoTo d'erreur » au début de mon procédé :

cmdTrustedLocation_Err : le

DoCmd.Hourglass False
DoCmd.SetWarnings True
si Err.Number = les Msg 2001 de Then
= « ce message est montré parce que vous n'avez pas ajouté le nom d'annuaire aux ENDROITS DE CONFIANCE et il a causé une violation de la sécurité.  Veuillez ajouter le nom de base de données et essayer alors l'exportation encore. « extrémité du
Else
MsgBox Err.Description
si

ps :  la base de données est employée dans plusieurs endroits comme

Thanks d'application pour l'instant. pour toute votre aide à l'avance. class= " lastRow de

>Attachments de " nom " de class= de

class= " valeur " de

>