Discussion :

[docjo]

Bonjour

Je n'arrive pas à trouver la bonne syntaxe pour fermer une base de données depuis une autre. Dans la FAQ et forum, je n'ai pas trouvé.
Un petit conseil ?

Merci par avance

[ClaudeLELOUP]

Bonjour,

connais-tu ceci :http://access.developpez.com/sources...merApplication

[docjo]

Non, je n'avais pas vu ces astuces. Mais en l'occurence, cela ferme toutes les fenêtres access alors que j'aimerai fermer à partir d'une base access sans fermer cette dernière.

Aprés recherche, j'ai adapté ce code qui fonctionne pour moi:

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
 
 
        Dim ObjAccess As Object
        Dim Bd As Database
 
        'Ne pas s'arrêter sur un message d'erreur
        On Error Resume Next
        'Verifie si une base est déjà ouverte
        Set Bd = DBEngine(0).OpenDatabase("lechemindelabase\Database.mdb", True)
 
        If err.Number <> 0 Then
        'si erreur alors je ferme la base        
        Set ObjAccess = GetObject("lechemindelabase\Database.mdb")
        ObjAccess.Quit
        Set ObjAccess = Nothing
        End If
 
        Set Bd = Nothing