Fokus ved flere databaser

while your here, could you look at the two questions you have from 2017 too ;-)

Ups...sorry, har afsluttet dem...
havde du et tip...???

How are you opening the second dB?

Opens from a cmdbtn

Call Journal

Public Function Journal()

    Dim strDB As String

' Initialize string to database path.
    Const strConPathToSamples = "C:\Banjul hospital\"
    strDB = strConPathToSamples & "Journal.mdb"

' Create new instance of Microsoft Access Application.
    Set appAccess = CreateObject("Access.Application")

' Open database in Microsoft Access window.
    appAccess.Visible = True
    appAccess.RunCommand acCmdAppMaximize
    appAccess.OpenCurrentDatabase strDB

' Open Form
    appAccess.DoCmd.OpenForm "frmJournal"
   
End Function

Your actually very close to getting it right ;-)

If you open the dB first, make it visible and then maximize it should work.

' Open database in Microsoft Access window.
    appAccess.OpenCurrentDatabase strDB
    appAccess.Visible = True
    appAccess.RunCommand acCmdAppMaximize

Not working - same result...focus on first db…:(

That's strange. There isn't further code setting focus back on the first dB?

If I try your original code then it doesn't work, after changing code to opening dB first then it does work.

Strange - yes...
Use another solution...

Open db2
Close db1

Close db2
Open db1