Commande Kill sous Access 2000

**p'tite Sandrine** · 21/02/2007, 15h14

re-bonjour,

J'ai toujours quelques petits bugs après avoir déplacer ma BD sur un pc munis de access 2000 au lieu du 2002.

Cette fois-ci c'est la commande Kill qui fait des siennes.

J'ai un formulaire qui permet de créer un nouveau courrier, un bouton créer envois les donner dans word, avec la boite api enregistrerSous je récupère le chemin complet du dossier.
J'ai un bouton annuler qui permet d'annuler l'enregistrement en cours.
Celui-ci vérifie si le champ ChemDoss est vide et si on a déjà commencer a créer le nouveau document et qu'on change d'avis il ferme word et est censé retrouver le document et le supprimer.
(j'espère que c'est clair)

Pour ce faire j'utilise la commande Kill
comme 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
Dim file As String
 
If IsNull(code_service) Then
    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
 Else
    If Not IsNull(chemDoss) Then
    Word.Application.Quit False
    file = chemDoss.Value
    Kill file
    End If
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End If
    DoCmd.Close

malheureusement il trouve pas le fichier alors qu'il vient de l'attacher, donc il a pas pu bouger.
Est-ce encore un problème de synthaxe différente entre 2000 et 2002?

**loufab** · 21/02/2007, 15h22

Salut ch'tit sandrine !

Regarde dans ta variable chemdos il peut y avoir un problème avec les noms longs (répertoire contenant des espaces).

Cordialement,

**p'tite Sandrine** · 21/02/2007, 15h36

Bonjour loufab,

ca n'est malheureusement pas ca.
le document texte que j'utilise a ce chemin d'accès

Z:\COURRIER\USL-FD-2007-5

donc pas d'espace mais malgré tout j'obtiens toujours le même message erreur:
"fichier introuvable"

**Gary_Stoupy** · 21/02/2007, 15h41

bonjour,

fais voir un msgbox de 'file' juste avant de tenter de le "killer"...
tu verras bien si tu as le bon chemin...

Sous access 2003, je n'ai aucun souci avec la commande kill donc...

**p'tite Sandrine** · 22/02/2007, 09h05

bonjour Gary,

le problème ne vient pas de là non plus ca me retourne bien la valeur de chemDoss et donc le chemin complet du document.

as tu une autre idée?

**p'tite Sandrine** · 22/02/2007, 09h35

En fait j'ai deux erreurs qui s'entrecroisent.

La première c'est que si l'utilisateur a déjà fermer word:

Code :

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

Word.Application.Documents.Close True

Génère une erreur car aucun document n'est ouvert.
Je cherche donc a trouver une commande similaire a Exists mais qui me retournerais si un document est ouvert.

Ensuite vient mon problème de fichier introuvable par ma commande kill.

**Gary_Stoupy** · 22/02/2007, 09h48

bonjour,

Pour ton deuxième probleme, fais un Dir pour vérifier que le fichier existe bien... si c'est le cas, tu devrais pouvoir le supprimer sans problème. C'est ce que je fais à chaque fois :

Code :

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

1
2
if (Dir (chemDoss, vbHidden) <> "") Then
Kill chemDoss

Avec chemDoss qui contient le chemin complet + le nom du fichier + l'extension...

**Gary_Stoupy** · 22/02/2007, 09h50

pour le 1er probleme, regarde la, dans la FAQ :
http://access.developpez.com/faq/?pa...p#estFicOuvert

bon courage

**p'tite Sandrine** · 22/02/2007, 10h43

merci,

c'est presque ca.
disons que ca marche une fois sur deux.
Car en lancant IsFileOpen il ouvre une deuxième fenêtre word.

du coup quand je veux fermer les documents (ou word j'ai tester les deux)
soit il trouve pas de document ouvert.
Soit il me refuse la permission.

mais si je relance la commande après débogage ca marche

Par contre bonne nouvelle avec cette méthode kill refonctionne.
Pourquoi je sais pas mais du coup il retrouve le doc

**cafeine** · 22/02/2007, 10h45

J'ai répondu sur l'autre thread :
http://www.developpez.net/forums/sho...0&postcount=39

Envoyé par p'tite Sandrine

merci,

c'est presque ca.
disons que ca marche une fois sur deux.
Car en lancant IsFileOpen il ouvre une deuxième fenêtre word.

du coup quand je veux fermer les documents (ou word j'ai tester les deux)
soit il trouve pas de document ouvert.
Soit il me refuse la permission.

mais si je relance la commande après débogage ca marche

Par contre bonne nouvelle avec cette méthode kill refonctionne.
Pourquoi je sais pas mais du coup il retrouve le doc

**p'tite Sandrine** · 22/02/2007, 11h08

cafeine,

tu me conseil de plutot utiliserla commande IsOfficeRunnig?

car l'autre a l'air de bien marcher si j'arrivais a fermer tout ce qui fait partie de word .

**p'tite Sandrine** · 22/02/2007, 11h55

hello cafeine,

merci j'ai eu un peu de mal a comprendre comment le mettre en page mais grâce a ton patch, ca fonctionne super bien.

a titre indicatif voici mon code pour les autres interressés.

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
Dim Doc As String
 
If IsNull(code_service) Then
    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
 Else
    If Not IsNull(chemDoss) Then
    Doc = chemDoss.Value
        If IsOfficeRunning(app_word, True, Doc) Then
        Kill Doc
        Else
        Kill Doc
        End If
    End If
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End If
    DoCmd.Close

j'ai eu un peu de mal a comprendre que ton patch me permettais de simplifier au maximum la commande

je cherchais plus complexe lol

**p'tite Sandrine** · 22/02/2007, 12h03

snif,

je dois retirer ce que j'ai dis si ils ont éteint word kill trouve pas le document.

Je commence a perdre espoir là..

**Gary_Stoupy** · 22/02/2007, 13h10

kill trouve pas le document et le document existe quand meme ???
Tu en es sure ? Meme avec la méthode que je t'ai donnée ?

**p'tite Sandrine** · 22/02/2007, 13h22

non ca c'est la méthode de caféine.

Ta méthode me pose problème car il ouvre une deuxième fois word mais sans le moindre documents.
Du coup quand je lui demande de fermer les documents il n'en trouve pas d'ouvert car il prend l'autre application word en cours.

suite: ca tourne en tout cas si ils laissent word ouvert.
Par contre si il l'éteigne curieusement il tente malgré tout de fermer word alors que celui-ci n'est pas ouvert

De ce fait j'ai un bug

**Domi2** · 22/02/2007, 13h26

Re,

Dans quel environnement travailles-tu actuellement ?

Dans ton environnement de développement sous XP (base au format A2000) ?

Ou chez ton client, sous A2000 ? Enfin, c'est ce que j'ai cru comprendre...

si c'est le cas, as-tu éventuellement essayé sur un deuxième poste ?

Domi2

**cafeine** · 22/02/2007, 13h27

Est-ce

ou pas ?

**p'tite Sandrine** · 22/02/2007, 13h31

domi,

actuellement je suis chez le "client" donc sous access 2000.

cafeine,
Malheureusement pas encore tout a fait.
Il me reste des bug si les utilisateurs on fermer Word.