[AC-2007] Supprimer une instance d'Access [Résolu]

[Triton972]

Bonjour à tous,

J'ai une application qui balaie une autre Base Access. Pour ce faire j'utilise le code suivant :

Code :

1
2
3
4
5
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase Me.BaseP
appAccess.Visible = False
Set db = appAccess.CurrentDb
...

En phase de débogage, j'arrête fréquemment le code avant la fin et l'instance supplémentaire d'Access reste donc ouverte. Je termine donc le processus dans le gestionnaire des tâches de windows, ce qui est un peu lourd.

Peut-on faire mieux ?
Merci de vos aides.
Cordialement,

[loufab]

Bonjour,

A part terminer proprement, ce qui est quand même conseillé pour ne pas endommagé ton application, tu peux faire un batch avec la commande système Taskkill.exe

Cordialement,

[Triton972]

Bonjour Loufab,

Je suis d'accord avec toi mais je ne sais pas faire quand je débogge et que je dois interrompre le programme ! As-tu une astuce pour terminer "proprement" et fermer une instance quand on interrompt une application en mode Debug ?

Autrement il n'existe pas de collections ou d'API permettant de balayer l'ensemble des processus actifs ?

Cordialement,

[loufab]

Bonjour,
Le AppAccess doit être déclarée comme variable globale.
Dans la fenêtre d'exécution tu envois les commandes qui te permettent de fermer proprement, celles qui doivent déjà exister à la fin de ton code.

Pas de collection mais le appAccess est suffisant.
Oui il existe surement une API puisque les process sont gérés par le système.

Le KillTask permet de fermer le process quand il n'y a plus d'accès via l'interface. Cela évite d'aller dans la fenêtre du Gestionnaire des taches.

Cordialement,

[Triton972]

Bonjour,

En cherchant un peu mieux sur le forum j'ai trouvé un code que j'ai adapté.
Il permet de supprimer une instance d'Access ouverte à l'intérieur d'une application et qui est restée ouverte après une nouvelle relance de l'application.
J'ai créé une fonction que j'ai placé dans un module :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function KillCalledProc() As Boolean
Dim svc As Object
Dim sQuery As String
Dim ProcessName As String
Dim oProc
 
On Error GoTo Erreur
 
ProcessName = "MSACCESS.exe"
Set svc = GetObject("winmgmts:root\cimv2")
sQuery = "SELECT * FROM win32_process WHERE name= '" & ProcessName & "'"
 
    For Each oProc In svc.execquery(sQuery)
            If oProc.CommandLine Like "*Embedding*" Then
                oProc.Terminate
            End If
    Next
Set svc = Nothing
Exit Function
 
Erreur:
    MsgBox "Error " & err.Number & " (" & err.Description & ")"
    err.Clear
End Function

ProcessName identifie les instances du processus à scruter. Pour chaque occurrence on vérifie la ligne de commande qui a lancé l'application. Si le mot clé "Embedding" est présent c'est que l'application a été lancée à partir d'une autre application. C'est donc cette instance que je supprime.
Cordialement,