start access vha vba

Der er ikke nogen eksperter der svarer. Denne her virker næsten !! Eneste problem er at access lukker ned igen. Måske nogen ved hvorfor :

Sub access()
    Set oAccess = CreateObject("Access.Application")
    oAccess.Visible = True
    oAccess.OpenCurrentDatabase "c:\temp\test.mdb"
End Sub

Jeg har prøvet nedenstående kode som har samme problem:

Sub StartAccess()
    Dim AccessApp As Object
    On Error Resume Next
    Set AccessApp = GetObject(, "Access.application")
    If Err <> 0 Then
      Set AccessApp = CreateObject("Access.Application")
    End If
    On Error GoTo 0
    AccessApp.Visible = True
    AccessApp.OpenCurrentDatabase "\\srv\Registre\Register.mdb"
End Sub

Steen-> jeg har ingen ide om hvorfor din første kode (shell) ikke kører, men prøv at teste uden databasen først, for at se om den overhovedet åbner access.

Mht. både aheiss's kode og din anden kode, skal i huske at en variabel, der er dimensioneret i en sub, dør når sub'en slutter. Derfor lukker access igen ved slutningen af sub'en.

prøv istedet sådan her (erklærer accessapp public):

Public accessapp As Object

Sub StartAccess()
    'Dim AccessApp As Object
    On Error Resume Next
    Set accessapp = GetObject(, "Access.application")
    If Err <> 0 Then
      Set accessapp = CreateObject("Access.Application")
    End If
    On Error GoTo 0
    accessapp.Visible = True
    accessapp.OpenCurrentDatabase "\\srv\Registre\Register.mdb"
End Sub

aha, nu tror jeg at shell-fejlen er fundet
skriv ligeShell accesstorun & "\\srv\Registre\register.mdb", vbMaximizedFocus

husk det lille &-tegn

--> Den skriver i sidste tilfælde at der er en linie access ikke genkender. Skal accesstorun dim'es? (public)
I første tilfælde lukker den fortsat automisk ned trods Public accessApp As Object - hmm!

Der mangler et mellemrum. Prøv

ligeShell accesstorun & " \\srv\Registre\register.mdb", vbMaximizedFocus

VH CK

Nå jeg har endelig fået det til at virke.
Bak havde selvfølgelig svaret: Public skulle anføres øverst i et modul (åbenbart) hvorefter andet forslag kørte    og --> kedde65 første forslag fungerer både med og uden anførte mellemrum :0).

Vedr førstnævnte måde at gøre det på var mit problem nok også at den rigtige streng til database indeholder mellemrum (da jeg kopierede databasen over i et bibliotek uden mellemrum kørte det):
\\hjertesrv\faelles\Lotte og Susanne\Registre\patientregisteret.mdb
- hvorfor egentlig og det kan vel ændres?
-->bak svar lige og du får selvfølgelig point.

ok her er et svar.:-)
mht mellemrummet (kedde65) så synes jeg det ser ud som om der allerede er mellemrum i strengen AccessToRun (sidst)
accesstorun = "C:\Programmer\Microsoft Office\Office10\MSAccess.exe "