you should make another FE db, (not split , a second db with nothing in it)
this db would check to see if the main db is open (via the .laccdb) if file exists, give user the message,
if not, open the main db.
Code:
sub Check2Open()
if fileexists("\\server\folder\mydb.laccdb") then
msgbox "Db is open"
else
call shell("c:\msAccess.exe '\\server\folder\mydb.accdb'")
endif
end sub
Public Function FileExists(ByVal pvFile) As Boolean
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FileExists = FSO.FileExists(pvFile)
Set FSO = Nothing
End Function