Åben database via formular-menu i \'97

Du kan ikke åbne en hel database, men du kan få adgang til tabellerne ved at linke dem.
Er det kun tanellerne du skal have fat i?

Du kan godt åbne en anden database, men den første database lukkes automatisk derved. Det er IKKE muligt at have 2 databaser åbne i samme instans af Access.
Til gengæld kan du åbne Access flere gange og dermed flere forskellige databaser.

/Thomas

Hej Thomas og tak for dit indlæg. Nej, jeg skal ikke kun bruge tabellerne. Jeg skal bruge en genvej i menuen til at åbne den anden database.

Auv for den. Det er første gang, jeg bruger det her. For en god ordens skyld: Svaret var jo sådan set til onlinepc. Og nu til Thomas: Det er OK, at den første database lukkes, hvis bare jeg via en knap i menuen kan åbne den anden.

Det jeg vil, er at åbne en anden database via en kommandoknap i en formularmenu.
Det er for at undgå at skulle lukke den første database og herefter gå ud og åbne den anden database på den almindelige måde,så brugeren på en måde bliver i \"miljøet\", da det er to databaser, der tit skal skiftes imellem. Derfor gør det heller ikke noget, at den første lukkes ved åbning af den anden, for på den anden laver jeg bare en knap i en tilsvarende formularmenu, så der kan skiftes tilbage til den første database igen. Databaserne kalder jeg fremover for 1 og 2 :-)

annittakc> This may help you! It is in VB but I am sure you can get it to work!

Make a module in the database and add thge following code. Then change the bit where it says \"YourDatabase.mdb\" to the name of the database you want to open. Then change \"C:\\temp\" to the directory of where the database is.
Then make a macro to call OpendB

Public Declare Function ShellExecute Lib \"shell32.dll\" Alias \"ShellExecuteA\" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Const SW_HIDE = 0
Public Const SW_SHOW = 5

Function OpenDb() as integer
Dim result As Integer
       
    result = ShellExecute(0, \"Open\", \"YourDatabase.mdb\", \"\", \"C:\\temp\", SW_SHOW)

   
end function

you could also close the current database in the macro.

Hi Terry. Thanks for your help. It worked! I\'m very grateful. Excellent!

Your very welcome!