fnSearchFolder => bug ?

Le
gauso
Bonjour,

Soit une table "Fonds" entretenant une relation 1-n avec une tables
"Objets". Depuis ma base je gre des rpertoires reproduisant cette
hirarchie : la dnomination des rpertoires fonds utilisant le champ
"Abreviation" de ma table Fonds et la dnomination des sous-
rpertoires Objets reprenant le nom du champ "RefObjet" de ma table
Objets. (les sous-rpertoires objets contiennent la plupart du temps
des fichiers images illustrant les "objets" en question qui sont en
fait des projets d'architecture).
Pour viter que l'on modifie une rfrence objet (ou qu'on la
supprime) - et ce faisant que l'on compromette les liens existant
entre ma base et ces rpertoires, j'ai mis en place un code qui
vrifie l'existence des rpertoires en cas de modification ou
suppression des objets
Tout marche parfaitement, sauf avec un fonds qui a la particularit de
contenir beaucoup plus que des fichiers images, mais normment de
fichiers de toutes sortes (fichiers de CAO, fichiers textes, excell,
etc.), en fait ce sont toutes les archives numriques d'une agence
d'architecte
L le code suivant fait compltement planter la base (ne rponds
plus) : pourquoi ???
Merci de votre aide,

Dim RepFonds As String
RepFonds = "I:" & Me![Abreviation]
Dim NomRepObjet As String
NomRepObjet = Me![Refobjet]

'VERIFICATION DE L'EXISTENCE DU REPERTOIRE OBJET
'dfinition chemin
Dim cheminrechObjet As String
cheminrechObjet = fnSearchFolder(RepFonds, NomRepObjet) 'on
vrifie d'abord que le rpertoire Objet existe
If cheminrechObjet <> "" Then 's'il existe un rpertoire Objet
MsgBox "Impossible de supprimer cet objet car il existe un
rpertoire li dans I: Celui-ci va s'ouvrir pour vous permettre de
vrifier son contenu (vous ne pourrez supprimer l'objet que si le
rpertoire n'existe plus !", vbInformation, "IMPOSSIBLE DE SUPPRIMER
L'OBJET : REPERTOIRE LIE !"
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
gauso
Le #23128191
Il suffit parfois de poser la question pour trouver la réponse...
En utilisant pas fnSearchFolder, tout va beaucoup mieux !
Bonne journée,

Voici ce qui a marché :
Dim RepFonds As String
RepFonds = "I:" & Me![Abreviation]
Dim NomRepObjet As String
NomRepObjet = Me![Refobjet]

'VERIFICATION DE L'EXISTENCE DU REPERTOIRE OBJET
If dir(RepFonds & "" & NomRepObjet & "", vbDirectory) <> ""
Then
MsgBox "Impossible de supprimer cet objet ...!",
vbInformation, "IMPOSSIBLE DE SUPPRIMER L'OBJET : REPERTOIRE LIE !"
Publicité
Poster une réponse
Anonyme