Makro til åbning af Access database

Denne kode åbner en database og viser en formular:

Sub OpenDatabase()

    strdb = "c:\demo.mdb"
    Set appAccess = CreateObject("Access.Application")
    appAccess.Visible = True
    appAccess.OpenCurrentDatabase strdb
    appAccess.DoCmd.OpenForm "frmsysteminformation"
    Set appAccess = Nothing

End Sub

Jeg er ikke helt med på hvad jeg skal med den formular....makroen giver mig iøvrigt en fejl p.g.a. manglende formular ??

Du skal selvfølgelig rette stien til databasen til din egen database, og navnet på formularen til navnet på en formular, der findes i din database.

okay....er jo ikke nogen Access ekspert....faktisk er mit kendskab hertil lig nul....men jeg har da fået makroen til at virke ved indsættelse af et sti- og dertilhørende formularnavn......MEN....nogengange åbner makroen en base men lukker den igen i samme sekund ??

Hvis du ikke åbner en formular, eller hvis formularen ikke eksiterer, lukker databasen ned igen med det samme.

Det syntes jeg ikke helt holder stik.....nogengange virker makroen, andre gange får jeg en fejl a la "formularnavn findes ikke", hvilket har været korrekt....og så den her sidste variant...åbn/lukke uden fejlmeddelelse.

Jeg har også nogle baser der skal åbens uden formular...hvordan kringler jeg den ?

Hvad skal du bruge de åbne databaser til? Langt de fleste databasekald fra andre programmer er indrettet på at virke uden at databasen gøres synlig.

Jeg er i færd med at oprette en form for dokumentationsfil i Excel, der dels beskriver alle vore databaser og som er tilknyttet en knap der åbner den aktuelle database....det er sådan set det !

Ok!  Jeg troede at du skulle hente data ud af databaserne. Jeg arbejder videre med sagen :-)

Acces hjælp> skriv autoexec > nu for du en rigtig god forklaring på automatisk åbning af en database og du kan bestemme hvor den skal stille sig efter åbning og om den skal maximeres.
Husk når du har lavet den at gemme med navnet autoexec

eyvind-> Koden skal ikke køre i Access men i Excel

Nåe ja - det overså jeg lige.

Tilsyneladende kan man ikke åbne en database, hvis ikke den indeholder en formular. Jeg har dog ikke opgivet endnu. Denne kode åbner dog databasen uden at vise formularen:

Sub OpenDatabase()

    strdb = "c:\demo.mdb"
    Set appAccess = CreateObject("Access.Application")
    appAccess.Visible = True
    appAccess.OpenCurrentDatabase strdb
    appaccess.DoCmd.OpenForm "frmsysteminformation", , , , , 1
    Set appAccess = Nothing

End Sub

Et forslag:
Database står til autoexec.
I excel lav din knap og tilføj hyperlink
peg på databasefilen
og nu kan du åbne din database fra excel
Jeg har lige prøvet og det virker.

Da jeg ikke er hjemme i Access må du forklare hvordan
jeg sætter en database til autoexec.....ellers lyder det rimelig nemt.

eyvind> Har prøvet den seneste makro....men jeg syntes mest af alt det virker somom makroen "lukker" ned midt i det hele, og dermed fjerner Access....den åbner Access fint...makroen lukker...og trækker Access med ned.

Ideen med hyperlinks er nu god nok. Men du behøver ikke at gøre noget ved databasen. Du kan simpelhen indsætte et hyperlink i dit regneark, der peger på den pågældende database.

Undskyld forrige kommentar var jo til jkrons...beklager

eyvind> Har faktisk netop prøvet at indsætte en simpel hyperlink i Excel...det åbner basen uden problemer....der er bare en lille bi-ting....der åbnes også en Web værktøjslinie ind over databasen som man må skyde ned hver gang...kan den komme væk permanent?

Kan man knytte en hyperlink til en knap ?

tida-> makroen virker fint hos mig - men kun hvis der er en formular i databasen. Ellers har du helt ret i at Access lukker ned igen. Jeg har nu spurgt flere steder (blandt andet i de internationale nyhedsgrupper), og ingen har kunnet give mig et svar på, hvordan man ved hjælp af VBA kan åbne en Access fil, og vise den på skærmen, hvis ikke den indeholder en formular.

Du kan knytte et hyperlink til en kommandoknap. Lav knappen, makrer den. Indsæt hyperlink - men der er den lille skavank, at regenarket sjkal være i designvisning, for at knappen virker.

prøv lige at se om ikke det her kan gøre det

Sub GetObjectACC()
    Dim acApp          As Object
    On Error Resume Next
    Set acApp = GetObject("c:\db1.mdb")
    acApp.Visible = True
    acApp.UserControl = True
End Sub

Det ser faktisk ud som om det gør det - mn sæt lige acApp = Nothing til sidst for god ordens skyld :-)

Hmmm....jeg kan kun sige et....ren og skær....konge !!!
Send mig et svar bak......og tak til jer andre to også.

Nu har jeg indsat alle makroer....kørt en test....alt virkede okay....men pludselig åbner den kun en bjælke af Access i Excel...det er jeg jo ikke helt tilfreds med...

Jeg har prøvet min egen løsning (med formular) over 100 gange og bka's løsning 10-15 gange uden problemer, så jeg begynder at tro, at det måske er dine Access indstillinger, der er noget galt med. Jeg ved bare ikke hvilke.

Vil det sige at vi nu er gået i stå...er der ikke mere hjælp at hente ?

Når det virker hos mig, og formodentlig også hos bak, men ikke virker hos dig, ved jeg faktisk ikke, hvad jeg skal foreslå.

Kan du slet ikke få bjælken op i fuld størrelse ?

Su kunne evt prøve at lægge denne kode ind lige før accApp.UserControl

acApp.DoCmd.Maximize

Ja det hjalp tilsyneladende...takker.
Så er der points.....det ligner vist en deler....bak sender du lige et svar

Fint, godt det blev løst .