Utilisation de CloseCurrentDatabase

Bonjour,


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

Code:

---

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.

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 ;)

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

Code:

---

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:

---

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

ok ;)

Code:

---

1 2	appAccess.CloseCurrentDatabase appAccess.Quit

---

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

Dolphy ;)

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

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

Code:

---

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 ;)

J'ai toujours le même problème. Ce pourrait-il que le fait que ma base de données ait un «compact on close» puisse causer problème?

A tout hasard tu n'aurais pas activé l'option de compactage à la fermeture?

nos messages se sont croisés... et nos idées aussi ;)

Essayes en désactivant le compactage...

Ça fonctionne par contre ça m'occasionne un autre problème. Il faut que je désactive cette option dans ma base de données originale mais j'en ai de besoin.

Existe-t-il un moyen de désactiver cette option par le code?

Merci pour votre aide

Citation:

---

Envoyé par steps5ive

Ça fonctionne par contre ça m'occasionne un autre problème. Il faut que je désactive cette option dans ma base de données originale mais j'en ai de besoin.

Existe-t-il un moyen de désactiver cette option par le code?

Merci pour votre aide

---

Je ne sais pas mais en fouillant sur le web, il semble que plusieurs aient cherché à le faire .... et je n'ai trouvé aucune réponse...