Kald af db fra en db vha. en cmdknap.

Hej

Hvad gør jeg galt!!

Jeg ønsker at kalde(starte) en anden database("4To1_One.mdb") fra en åben database("4To1.mdb")??

Der er 4 cmdknapper til hver sin base.


Private Sub cmd1af4_Click()
On Error GoTo Err_cmd1af4_Click

    Dim stAppName As String

    stAppName = GetCurrentPath() & "4To1_One.mdb"   
'    Me.txtLink4To1 = GetCurrentPath() & "4To1_One.mdb"    ' stAppName "#" &  & "#"
'    Me.txtLink4To1.SetFocus
'    DoCmd.RunCommand acCmdOpenURL
'    Debug.Print "Sti & navn: " & stAppName
    Call Shell(stAppName, 1)

Exit_cmd1af4_Click:
    Exit Sub

Err_cmd1af4_Click:
    MsgBox Err.Number & vbNewLine & Err.Description, vbCritical, "Fejl!"
    Resume Exit_cmd1af4_Click

End Sub

Function GetCurrentPath() As String
    Dim Pos As Integer, path As String
    ' Find placeringen på databasen(stien)
    path = CurrentDb.Name
    Pos = Len(path)
    Do Until Mid(path, Pos, 1) = "\"
        Pos = Pos - 1
    Loop
    GetCurrentPath = Left(path, Pos)
End Function