| 投稿日 | ： 2006/09/05(Tue) 17:27 |
| 投稿者 | ： あれくす |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^4: パスワード付きMDBファイルを起動する方法 |
matsu様、ご回答ありがとうございます。
教えて頂きました通りなのですが、
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が起動しますがすぐ閉じてしまいます。
>ファイルとパスワードの対応はどのように考えているのでしょうか？
上記が解決できればの前提ですが、ファイル名が変わることはありませんので
指定されたファイル名からselect caseでパスワードを判断したいと思っています。
よろしくお願いします。