Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Zoury
Salut Cheikna! :O)
Tu devrais réussir avec la fonction GetObject...
Pour fermer n'importe quel instance : '*** ' Nécessite la référence Microsoft Access 10.0 Object Library ' Sinon on déclare comme ceci ' Dim app As Object Dim app As Access.Application Set app = GetObject(, "Access.Application") Call app.Quit(acQuitSaveAll) '***
Pour fermer une base en particulier : '*** Option Explicit
Private Sub Form_Load()
Dim app As Access.Application
On Error Resume Next Set app = GetObject(, "Access.Application") If Err.Number > 0 Then Exit Sub On Error GoTo 0
' La propriété ADOConnectString est un ' propriété cachée elle qui permet de ' connaitre la chaine de connexion ' de la base de données et donc, ' l'emplacement de son fichier. ' Il y a peut-être une propriété ' ou une fonction plus appropriée ' pour obtenir la même données... ' ' merci de me tenir au courant :O) ' ' Instr() nous permet de détecter ' rapidement si le chemin que l'on ' veut vérifier est contenu dans cette ' chaine de connection ' If (InStr(1, app.ADOConnectString, "C:Documents and SettingsYanick.lefebvreMy Documentsdb1.mdb", vbTextCompare) > 0) Then Call app.Quit(acQuitSaveAll) End If
Merci de poster les réponses au groupe afin d'en faire profiter à tous
Salut Cheikna! :O)
Tu devrais réussir avec la fonction GetObject...
Pour fermer n'importe quel instance :
'***
' Nécessite la référence Microsoft Access 10.0 Object Library
' Sinon on déclare comme ceci
' Dim app As Object
Dim app As Access.Application
Set app = GetObject(, "Access.Application")
Call app.Quit(acQuitSaveAll)
'***
Pour fermer une base en particulier :
'***
Option Explicit
Private Sub Form_Load()
Dim app As Access.Application
On Error Resume Next
Set app = GetObject(, "Access.Application")
If Err.Number > 0 Then Exit Sub
On Error GoTo 0
' La propriété ADOConnectString est un
' propriété cachée elle qui permet de
' connaitre la chaine de connexion
' de la base de données et donc,
' l'emplacement de son fichier.
' Il y a peut-être une propriété
' ou une fonction plus appropriée
' pour obtenir la même données...
'
' merci de me tenir au courant :O)
'
' Instr() nous permet de détecter
' rapidement si le chemin que l'on
' veut vérifier est contenu dans cette
' chaine de connection
'
If (InStr(1, app.ADOConnectString, "C:Documents and
SettingsYanick.lefebvreMy Documentsdb1.mdb", vbTextCompare) > 0) Then
Call app.Quit(acQuitSaveAll)
End If
Pour fermer n'importe quel instance : '*** ' Nécessite la référence Microsoft Access 10.0 Object Library ' Sinon on déclare comme ceci ' Dim app As Object Dim app As Access.Application Set app = GetObject(, "Access.Application") Call app.Quit(acQuitSaveAll) '***
Pour fermer une base en particulier : '*** Option Explicit
Private Sub Form_Load()
Dim app As Access.Application
On Error Resume Next Set app = GetObject(, "Access.Application") If Err.Number > 0 Then Exit Sub On Error GoTo 0
' La propriété ADOConnectString est un ' propriété cachée elle qui permet de ' connaitre la chaine de connexion ' de la base de données et donc, ' l'emplacement de son fichier. ' Il y a peut-être une propriété ' ou une fonction plus appropriée ' pour obtenir la même données... ' ' merci de me tenir au courant :O) ' ' Instr() nous permet de détecter ' rapidement si le chemin que l'on ' veut vérifier est contenu dans cette ' chaine de connection ' If (InStr(1, app.ADOConnectString, "C:Documents and SettingsYanick.lefebvreMy Documentsdb1.mdb", vbTextCompare) > 0) Then Call app.Quit(acQuitSaveAll) End If
