Discussion :

[Capileba]

Bonjour,

J'ai une petite énigme à vous soumettre :
- J'ai plusieurs bases de données utilisateur
- Ces bases de données sont rigoureusement identiques
- Au cours de l'utilisation, je demande un export de tables (code ci-dessous, placé dans un module) vers une base de données administrateur localisée sur le même disque réseau que les bases de données utilisateurs
- Cet export marche pour la moitié de mes bases de données utilisateurs, pas pour l'autre moitié
- Lorsque que j'utilise les bases de données utilisateurs qui posent problème sur MON poste de travail, cet export fonctionne...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Option Compare Database
 
Function L_ExportCommande()
 
Dim strFile As String
Dim db As DAO.Database
Dim i As Long
Dim nomTable As String
 
strFile = "E:\Admin.accdb"
 
Set db = OpenDatabase(strFile)
 
nomTable = "L_Export"
 
i = 0
 
Do While FindTable(db, nomTable) ' recherche du nom libre pour la table export
   i = i + 1
   nomTable = "L_Export" & i
Loop
 
db.Close ' fermeture de la base
Set db = Nothing
 
DoCmd.TransferDatabase acExport, "Microsoft Access", strFile, acTable, "Statut Besoins Boites J+1", nomTable
 
End Function

Avez-vous une idée de pourquoi cela ne fonctionne pas sur certains postes de travail alors que cela fonctionne sur d'autres ? Une histoire de références manquantes?

Merci d'avance à vous tous,
Catherine

[Jean-Philippe André]

Bonjour,

comme la notion de marcher facon bibi ou facon Yohan Diniz ou encore Usain Bolt, il va nous falloir utiliser un autre mot que marcher

Y a-t-il une erreur lors de l'export ?
Le lecteur E est-il mappe sur tous les postes ?
Le lancement se fait-il depuis le poste utilisateur ou bien depuis le poste administrateur ?

Il nous en faut plus, merci.

[Capileba]

Bonjour,

Sur les erreurs : Il n'y a pas d'erreur lors de l'export, mais étant donné qu'on est sur les bases utilisateur, je démarre le code événement par un "On error resume next" pour éviter que le fonctionnement ne soit bloqué si problème (je sais, ce n'est pas propre, mais les utilisateurs ne pourraient ne toute façon pas gérer les erreurs...)

Sur mon poste aucun message d'erreur, tout fonctionne dans le sens ou les tables s'exportent systématiquement.

Le lecteur E est-il mappé --> la base utilisateur est sur le lecteur E, comme toutes les autres bases utilisateur, donc pas de différence entre les postes de travail sur ce point sauf erreur!

sur le lancement du code : c'est au cours de l'utilisation de la BD utilisateur (sur un code événement X) que la fonction d'export est appelée. L'export est donc commandé par chaque BD utilisateur

Est-ce que c'est assez précis?
Merci!

[Jean-Philippe André]

Oui c'est mieux.

Je pronerai le retrait du On Error Resume Next pour savoir quel est le message d'erreur sur un poste pour commencer, on en apprendra toujours plus que de speculer

[Capileba]

Bonjour,

J'ai trouvé la solution à mon problème : il s'agissait d'une histoire d'emplacements approuvés.
J'ai du approuver l'emplacement contenant les bases de données utilisateur et la base de données dorsale sur les postes utilisateurs, et je n'ai plus de problèmes.

Merci à vous!