無料版Microsoft Access

23 2月, 2010 (15:55) | ACCESS | By: ohishi

無料版の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

Comments

Pingback from Pika's Home » Accessってすごい! Delphiの強敵あらわる?
Time 2010年8月30日 at 00:23

[…] しかも、作成したアプリ(MDB,ADP)は無料版Accessがあるので、ユーザへの配布に費用がかからない。 […]

Comment from Faber Sid
Time 2017年3月25日 at 11:26

Office 365のように有効期限はありますか?

Comment from ohishi
Time 2017年3月29日 at 10:29

Faber Sidさん
有効期限は無いようです。

Write a comment