PDA

Vollständige Version anzeigen : Access starten und in Vordergrund bringen


s8884martin
14.12.2017, 11:20
Liebe Kollegen,

mit dem folgenden Skript wird Access gestartet, aber nicht! aktiviert - desweiteren wird es bei Neuaufruf 2 bzw. 3...mal gestartet. Jemand eine Idee?

DAnke
Martin
Shell ("C:Program Files (x86)Microsoft OfficerootOffice16MSACCESS.exe /C:UsersPublicDocumentsToolsxy.accdb")
AppActivate "xy"

Danke
ps.
Es kommt keine Fehlermeldung!

markusxy
14.12.2017, 11:43
Schau dir die Shell Funktion in der VBA Hilfe an.

s8884martin
14.12.2017, 16:02
Habe es hinbekommen-danke!

Dim RetVal

If IsFileOpen("C:UsersPublicDocumentsToolsTools.accdb") Then
' Display a message stating the file in use.
'MsgBox "File already in use!"
AppActivate "xy"
'
' Add code here to handle case where file is open by another
' user.
'
Else
' Display a message stating the file is not in use.
RetVal = Shell("C:Program Files (x86)Microsoft OfficerootOffice16MSACCESS.exe /xy", 3)

End If

markusxy
14.12.2017, 16:55
Bravo