| 投稿日 | ： 2006/09/11(Mon) 18:25 |
| 投稿者 | ： matsu |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^5: パスワード付きMDBファイルを起動する方法 |
> Private Sub Command1_Click()
>
> Dim objDb As Object
> Dim strPath As String
>
> strPath = App.Path & "\abc.mdb"
>
> Set objAccess = CreateObject("Access.Application")
>
> Set objDb = objAccess.DBEngine.OpenDatabase(strPath, False, False, _
> "MS Access;PWD=123456789")
> objAccess.OpenCurrentDatabase (strPath)
>
> objDb.Close
> Set objDb = Nothing
> objAccess.Visible = True
>
> End Sub
>
> としてみました。
> すると一瞬ACCESSが起動しますがすぐ閉じてしまいます。
もう解決してるかもしれませんが、
objAccess.Visible = True
を
objAccess.UserControl = True
に変更してみてください。