Hej
Jag skall öppna en Access databas i kod (runtime) det går bra. Men när jag kommer till slutet på suben alltså till Exit sub då stängs Access ned automatiskt!

Set acc = CreateObject("Access.Application")

'Show Access
acc.Visible = True
'Open database with the password
Set Db = acc.DBEngine.OpenDatabase("sökvägen.mdb", False, False, ";PWD=")
acc.OpenCurrentDatabase "sökvägen.mdb"
Db.Close
Set Db = Nothing

Exit Sub

Vad är felet, någon som vet?

//PA

Jag chansar.. Man kan det vara Db.close??

Du stänger Db:n innan du går ut ur suben, om du tar bort Db.Close. Så skall den inte stänga Db utan lämna den öppen tills du väljer att stänga den!

Hej
Det var det första jag testade själv (att markera bort db.close) men det gör ingen skillnad.
Databasen stängs vid Exit sub.

//PA

Hej,

Du har tre fel som var för sig ger detta problem, varav två är en variant på samma tema.

1. Börja med att ta bort db.close
2. Så fort instansen av databasen upphör så stängs databasen automatiskt.
2a. När du sätter instansen till Nothing så upphör således databaskopplinen att existera = den stängs
2b. Även om du inte stäner explicit så fixar VBs automatik det åt dig eftersom det är en lokal variabel

Således se till att utöka din instansvariabel till ett scope som passar ditt ändamål och låt bli att stänga så länge du vill ha den öppen.


// Johan

Hej
Felet var att acc var lokalt deklarerat och inte globalt i min modul.

Tack för svaren.

//PA