VBAでMDEファイルを作成したい

質問

お世話になっております。
Access2002を使用しております。

タイトルのとおり、MDEファイルの作成をVBAのプログラムで作成したいと考えております。

対象のMDBファイルは自分自身ではなく、
特定対象のファイルです。

Accessのメニューから作成する方法は、
ログ等で提示されていますが、VBAでの方法が
探し出せませんでした。

どのようにすればよいのでしょうか？
よろしくお願いいたします。

回答No.1

noname#4564

> MDEファイルの作成をVBAのプログラムで作成したいと考えております。

動作確認していませんが、下記の要領でいけると思います。

Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

Public Sub Test(ByRef strFileName As String)
'[Shift]キーを押下する。
Call keybd_event(CByte(vbKeyShift), 0, 0, 0)

Set AccApp = CreateObject("Access.Application.")

With AccApp

'MDBを開く
Call .OpenCurrentDatabase(strFileName, True)

'[Shift]キーを解放する。
Call keybd_event(CByte(vbKeyShift), 0, 2, 0)

'Databaseオブジェクトを取得
Set db = .CurrentDb()

'確認メッセージの抑止。
.DoCmd.SetWarnings False

'MDEの作成。
.DoCmd.RunCommand acCmdMakeMDEFile
.CloseCurrentDatabase
.DoCmd.SetWarnings True
'Access を終了。
.DoCmd.Quit
End With

Set AccApp = Nothing
End Function

お礼

ご回答いただき、ありがとうございます。

いただいたサンプルを参考にさせていただこうと思います。