無料版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さん
有効期限は無いようです。