Discussion :

[steps5ive]

Bonjour,


J'utilise le code suivant afin dans un de mes projets.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Set appAccess = CreateObject("Access.Application.9")
appAccess.OpenCurrentDatabase strFichier
 
' manipulations
 
appAccess.CloseCurrentDatabase
appAccess.Quit
 
set appAccess = nothing

mais lorsque le appAccess.CloseCurrentDatabase s'exécute, je me retrouve avec une copie de la base de données que je tente de fermer nommée bd1.mdb.

J'aimerais savoir pourquoi cette base de données (bd1.mdb) se crée svp? Ai-je oubliée une étape lors de la fermeture?

Merci pour votre aide.

[Dolphy35]

Salut,

je ne comprend pas très bien ce que tu veux faire, quelle bdd tu veux fermer ?

peux-tu donner plus détails, la bbd que tu ferme est la bdd courante ?

Dolphy

[steps5ive]

Je travaille de ma base de données Prévisions.mdb dans laquelle j'exécute

Code :

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

1
2
3
 
Set appAccess = CreateObject("Access.Application.9")
appAccess.OpenCurrentDatabase strFichier

strFichier étant une base de données PrévisionsCopie.mdb sur laquelle je modifie les liens de ses tables.
Lorsque les liens sont modifiés, j'exécute

Code :

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

1
2
3
4
5
 
appAccess.CloseCurrentDatabase
appAccess.Quit
 
set appAccess = nothing

PrévisionsCopie.mdb est correcte mais lorsque CloseCurrentDatabase est appelée, une base de données db1.mdb est créée et elle est la copie exacte de PrévisionsCopie.mdb.

Je voulais savoir pourquoi db1.mdb est créée et ce que je dois faire pour remédier à ce problème.

Merci pour votre aide

[Dolphy35]

ok

Code :

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

1
2
appAccess.CloseCurrentDatabase
appAccess.Quit

c'est deux lignes sont redondantes non ? en gros tu ferme deux fois ta bdd

Dolphy

[steps5ive]

J'ai essayé l'un et l'autre séparément mais le problème se pose quand même.

[Dolphy35]

je ne comprend pas ce code ci-dessous fonctionne nickel chez moi

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub CreateForm()
    Dim frm As Form, strDB As String
    strDB = "C:\....\Base de données1.mdb"
    Set AppAccess = CreateObject("Access.Application")
    AppAccess.OpenCurrentDatabase strDB
    Set frm = AppAccess.CreateForm
    AppAccess.DoCmd.Save , "NewForm1"
    AppAccess.CloseCurrentDatabase
    Set AppAccess = Nothing
End Sub

esseye le