右クリックして排他モードで開くには？

質問

デスクトップ上でアクセスファイルを右クリックして、排他モードで開くことはできませんか？
アクセスアプリケーションを立ち上げて、開く、から開くしかないのですか？

回答No.1

nicotinism · ベストアンサー

ショートカットキーやオプション設定で何とかなるものではないので
以下のコードを、Access排他オープン.vbs という名前で保存します。
これを「送るメニュー」に登録します。
http://www.atmarkit.co.jp/fwin2k/win2ktips/1391sendto7/sendto7.html
そうすれば排他で開かれます。
（最前面で開かれなかったらゴメン。）
排他か否かは、laccdb、ldb ファイルが出来たか否かで判断できます。

Dim oAc, oAcPath, Args
Dim oSh,Cmd
Const acSysCmdAccessDir = 9
Set oSh = WScript.CreateObject ("WScript.shell")
Set Args = WScript.Arguments
If Args.Count = 0 Then
WScript.echo "mdb、accdbファイルをここにドロップするか" & vbCrLf _
& "送るメニューに登録して使用してください"
WScript.Quit
End If

Set oAc = CreateObject("access.application")
oAcPath = oAc.syscmd(acSysCmdAccessDir)
set oAc = nothing
Cmd = chr(34) & oAcpath & "msaccess.exe" & chr(34)
Cmd = cmd & " " & chr(34) & Args(0) & chr(34) & " /excl"
oSh.Run Cmd

お礼

ありがとうございます。