Passage en .mde, perte des chemins de répertoires

**Plume27** · 02/04/2013, 11h17

J'avance tout doucement... j'ai passé l'application en fichier .mde, le fichier .mde
et dans le même répertoire que le fichier application .mdb, et là,
l'application ne trouve plus les chemins des répertoires ou sont placée les
fichiers Word modèles qui sert aux éditions de courriers.

Quelqu'un aurait-il une idée ?
j'ai essayé plusieurs choses :
- chemin "en dur" dans le code,
- formulaire de paramètres : avec un chemin rentré à la main et dans le code
cherché par DLookup...
et tout cela ne fonctionne pas, alors que le fichier .mdb fonctionne !

Merci pour l'éclairage...
Plume27

**Philippe PONS** · 02/04/2013, 11h26

Salut,

Si c'est des chemins qui ne changent pas trop souvent, tu peux les mettre dans une table PARAMETRE, avec un formulaire de gestion pour les modifier éventuellement.

Cordialement

**Plume27** · 03/04/2013, 13h58

C'est ce que j'ai fait !
j'ai fait une table de paramètres et ai rentré dedans
l'adresse en dur mais cela ne passe pas dès que je passe mon fichier en .mde

**Philippe PONS** · 03/04/2013, 14h07

Ok, mais qu'est ce qui ne passe pas? sois plus précis stp.

**Plume27** · 03/04/2013, 19h54

Merci pour votre questionnement,

quand je suis dans le fichier .mdb, j'ai un formulaire qui affiche dans une zone de liste, les fichiers Word d'un répertoire Windows ou ils sont stocké, ils me servent pour faire du publipostage, l'utilisateur a le choix suivant le modèle de courrier qui est nécessaire.
Cette zone de liste se met à jour au chargement du formulaire. Cela fonctionne.
Quand je passe en fichier .mde, la zone de liste est vide, c'est à dire qu'au chargement, il ne trouve plus le chemin et le contenu du répertoire.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
Private Sub Form_Load()
'déclaration d'une variable qui va réceptionné le chemin de la base active
Dim chemin As String
Dim table As String
Dim champ As String
 
'------------------------------------------
' mise à jour d'une table "liste des courriers"
'-----------------------------------------------
'ouvrir une table, la vider de tous ses enregistrements et lancer la fonction pour alimenter la table
DoCmd.OpenTable "tbl_Liste_courriers"
 
'empêche les demande de confirmation de s'afficher
DoCmd.SetWarnings False
'efface le contenu de la table, effacer tous les enregistrements
DoCmd.RunSQL "DELETE * FROM tbl_Liste_courriers;"
'rétablit les confirmations
DoCmd.SetWarnings True
'fermeture de la table
DoCmd.Close
 
'récupération du chemin du répertoire courrier saisi en dur dans une table
chemin = DLookup("[appli_local_courriers]", "[tbl_Paramètres_application]")
MsgBox chemin
 
'met le nom de la table à alimenter dans une variable
table = "tbl_Liste_courriers"
 
'met le nom du champ à alimenter dans une variable
champ = "courrier"
 
'appel de la fonction "Liste dans une table" qui se trouve dans un module propre
Call FileExistDir(chemin, table, champ)
 
[Forms]![frm_Courriers_Edition].Refresh
 
'---------------------------------------------
'mise à jour de la liste dossiers
'---------------------------------------------
Me.[Liste_dossiers].RowSource = "SELECT tbl_Accords.ac_num, tbl_Accords.ac_num_acccord, tbl_Accords.ac_redacteur, tbl_Accords.ac_type, tbl_Accords.ac_darrivee, tbl_Accords.[ej-no_cna], tbl_Accords.[et-no_cna] FROM tbl_Accords ORDER BY [ac_darrivee] DESC;"
Me.[Liste_dossiers].Requery
 
btn_Maj_RAR.Visible = False
btn_Imp_RAR.Visible = False
 
End Sub

Voici le code du formulaire qui affiche la zone de liste "courriers"
J'espère avoir été plus claire ? je ne sais pas quoi dire d'autres pour vous éclairer....

**Philippe PONS** · 03/04/2013, 21h03

D'abord une remarque:
Tu fais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'ouvrir une table, la vider de tous ses enregistrements et lancer la fonction pour alimenter la table
DoCmd.OpenTable "tbl_Liste_courriers"
 
'empêche les demande de confirmation de s'afficher
DoCmd.SetWarnings False
'efface le contenu de la table, effacer tous les enregistrements
DoCmd.RunSQL "DELETE * FROM tbl_Liste_courriers;"
'rétablit les confirmations
DoCmd.SetWarnings True
'fermeture de la table
DoCmd.Close

Je pense qu'il est inutile d'ouvrir la table. Tu pourrais faire ça:

Code :

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

1
2
3
4
5
6
'empêche les demande de confirmation de s'afficher
DoCmd.SetWarnings False
'efface le contenu de la table, effacer tous les enregistrements
DoCmd.RunSQL "DELETE * FROM tbl_Liste_courriers;"
'rétablit les confirmations
DoCmd.SetWarnings True

Donc si ta liste est vide, c'est que
Me.[Liste_dossiers].RowSource ne contient pas de lignes
et que la requête:

Code :

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

"SELECT tbl_Accords.ac_num, tbl_Accords.ac_num_acccord, tbl_Accords.ac_redacteur, tbl_Accords.ac_type, tbl_Accords.ac_darrivee, tbl_Accords.[ej-no_cna], tbl_Accords.[et-no_cna] FROM tbl_Accords ORDER BY [ac_darrivee] DESC;"

ne renvoi rien!!

Dans le MDE tu as accès au concepteur graphique de requête, et donc tu peux y tester cette requête pour voir ce qu'elle retourne.
Si elle ne retourne rien, c'est normal que la liste soit vide.

**Plume27** · 03/04/2013, 21h19

Je crois qu'on ne s'est pas compris... dans ce code j'ai deux choses
-une mise à jour de la liste des modèles de courriers dans une zone de liste
avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 'récupération du chemin du répertoire courrier saisi en dur dans une table
chemin = DLookup("[appli_local_courriers]", "[tbl_Paramètres_application]")
MsgBox chemin
 
'met le nom de la table à alimenter dans une variable
table = "tbl_Liste_courriers"
 
'met le nom du champ à alimenter dans une variable
champ = "courrier"
 
'appel de la fonction "Liste dans une table" qui se trouve dans un module propre
Call FileExistDir(chemin, table, champ)
 
[Forms]![frm_Courriers_Edition].Refresh

avec donc appel d'une fonction dont le code suit :

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
Function FileExistDir(strDir As String, _
        strTable As String, strField As String)
 
        Dim intFile As Integer
        Dim strFile As String
 
        intFile = 0: strFile = ""
 
        With Application.FileSearch
            .LookIn = strDir: .FileName = "*.*"
            If .Execute > 0 Then
                For intFile = 1 To .FoundFiles.Count
                    strFile = .FoundFiles(intFile)
                    strFile = Right(strFile, Len(strFile) - (Len(strDir) + 1))
                    CurrentDb.Execute "INSERT INTO [" & strTable & "] " _
                        & "([" & strField & "])" _
                        & "SELECT """ & strFile & """ ;"
                 Next
            End If
        End With
 
    End Function

-une mise à jour d'une liste d'accords réalisée avec une requête, qui elle fonctionne tant dans le fichier .mdb que .mde.... je l'ai re-testée à l'instant à partir de ta remarque.

Code :

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

SELECT......

j'ai refait des tests toujours sans résultat, la zone de liste "courriers" est à blanc dans le fichier .mde.

Je suis allée revoir le fichier .mde, la table liste_courriers est bien chargée !
elle s'affiche dans le .mde en ouverture Access, par contre, cela ne s'affiche pas en ouverture RuntimeAccess.

**Philippe PONS** · 03/04/2013, 21h28

ok, mais as tu testé la requête qui alimente la liste?
Que retourne-t-elle?
La table tbl_Accords est elle remplie?

Si la liste est vide, c'est que la requête qui devrait lui fournir les lignes ne lui fourni rien. Il faut d'abord tester ça!
(me semble-t-il, je peux me tromper!)

J'édite après avoir vu la fin de ton post:
C'est la zone qui affiche #Supprimé qui devrait afficher tes fichiers Word??

**Plume27** · 03/04/2013, 23h21

Oui, c'est ma zone de liste qui affiche la liste de mes courriers,
et c'est là que cela coince....###supprime...!!!!
alors que dans la table il y a bien les données que dans l'affichage du .mdb,
cela s'affiche sans problème, dans le .mde, aussi et dès que tu passes
en Runtime Access plus rien !!!!

**Philippe PONS** · 04/04/2013, 09h15

Ah! on avance....
Essaie de mettre la commande:

Code :

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

Me.[Liste_dossiers].Requery

dans la procédure de gestion de l'événement Sur Activation de ton formulaire.
Ceci pour lancer le rafraichissement de la liste le plus tard possible.

**Plume27** · 04/04/2013, 19h52

cela ne fonctionne pas !!!

j'ai essayé les deux zones de liste : Liste_courriers et Liste_dossiers
et sans succès...

**Philippe PONS** · 04/04/2013, 20h52

Qu'est ce qui ne fonctionne pas?
Tu as toujours les #Supprimé?

Alors essai de le faire manuellement:
Ajoute un bouton Test sur ton formulaire
Sur l'événement Click ajoute une procédure d'événement
dans laquelle tu insères la commande Me.[Liste_dossiers].Requery

Quand tu cliques sur le bouton, la liste se charge-t-elle correctement?

**Philippe PONS** · 04/04/2013, 20h53

Et si tu veux,passe moi ta base, je la regarde

**Plume27** · 07/04/2013, 15h29

Je ne peux pas te passer mon application, car :
- elle contient des infos confidentielles
- elle a un nb de kilo octets considérable car j'ai des tables
avec des milliers d'infos...

D'après ce que je vois, c'est dans l'appel "Call File..." la function
qui va sur Windows qui pose problème quand on passe en Runtime
car cela fonctionne en .mde....

J'ai rajouté : Me.Liste_courriers = DoEvents(),
çà ne bugge pas, mais n'ajoute rien et n'apporte pas de solution...

J'ai mis l'appli sur le disk C: de base alors que jusqu'à maintenant l'application
était sur le réseau... nouveaux essais
mêmes résultats....

**Philippe PONS** · 07/04/2013, 17h56

Ok mais tu n'as pas répondu à ma question:

Quand tu cliques sur le bouton, la liste se charge-t-elle correctement?

**Plume27** · 10/04/2013, 18h40

non, ma liste ne charge pas !
il semble en plus que des fonctions d'Access 2003 ne passe pas
en Access 2007, comme FileSearch...!!!
et donc comme j'utilise un RunTime 2007, n'ayant pas trouvé le RunTime 2003,
cela doit venir de là !

Mais du coup, ma question comme je modifie, car je ne vois pas de commande
équivalente ....

**Philippe PONS** · 10/04/2013, 18h50

Oui, Application.FileSearch n'est plus disponible ni en 2007, ni en 2010.

Tu peut remplacer cet objet par la classe disponible ici:
http://www.office-loesung.de/ftopic148247_0_0_asc.php

ou alors utiliser la fonction Dir()

Passage en .mde, perte des chemins de répertoires

VBA Access

Discussions similaires

Partager

Partager