無料版Microsoft Access
無料版のMicrosoft Accessが有るなんて、今まで知りませんでした。
もちろん、デザインの修正はできませんが、作成したMDBを実行させることができます。
◆ダウンロード
Access 2013 ダウンロード: Access Runtime
Access 2010 ダウンロード: Access Runtime
Access 2007 ダウンロード: Access Runtime
◆使い方
Microsoft Accessをインストールしていないパソコンに、上記のAccess Runtimeをインストールする。
その後、普通にMDBファイルを開くと、無料のMicrosoft Accessが立ち上がり、DBを開くことができます。
◆クライアントPCのインストール
何十台もあるクライアントにこのAccess Runtimeをインストールするのはきついです。
簡単なVBスクリプトをつくりましたので記載しておきます。
動作:
Microsoft Accessがインストールされていなければ、無料版のAccess Runtimeをインストールして
指定のMDBを起動します。
後は、これを「あやめ」に登録すれば、勝手にruntimeがインストールされ楽ちん楽ちん!
'******************************************************************** '* サンプルDBの起動 '******************************************************************** Option Explicit 'On Error Resume Next Dim objFSO ' FileSystemObject Dim objWshShell ' WshShell オブジェクト Dim objExec ' WshShell オブジェクト Dim strCmdLine ' 実行するコマンド Dim strFile1 ' ファイル名 Dim strFile2 ' ファイル名 Dim strFile3 ' ファイル名 'Access Runtimeのインストール先 strFile1 = "C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE" 'Access Runtimeの保存先 (Access Runtimeを前もって共用フォルダーに保存しておきます) strFile2 = "\\landisk\Software\Microsoft Office Access2007無料版\AccessRuntime.exe" '起動するMDB strFile3 = "\\landisk\\サンプルDB\サンプルDB.mdb" Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") If Err.Number = 0 Then 'インストールファイルの有無確認 If objFSO.FileExists(strFile1) = false Then Set objWshShell = WScript.CreateObject("WScript.Shell") strCmdLine = strFile2 set objExec = objWshShell.Exec(strCmdLine) Do While objExec.Status = 0 ' 1秒待ってみる WScript.Sleep(1000) Loop Set objWshShell = Nothing End If Set objWshShell = WScript.CreateObject("WScript.Shell") strCmdLine = "C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE " & strFile3 objWshShell.Exec(strCmdLine) Set objWshShell = Nothing Else WScript.Echo "エラー: " & Err.Description End If Set objFSO = Nothing
Office 365のように有効期限はありますか?
Faber Sidさん
有効期限は無いようです。