ExcelからAccessのフォームを開くVBA
VBAをあまり理解出来ていない初心者です。
ExcelからAccessのフォームを開く為に解説サイトを参考にしました。
Accessはテーブルだけのバックエンドと、それ以外のフロントエンドに分かれています。
Sub OPEN顧客管理番号検索()
Dim objACCESS As Object
Set objACCESS = CreateObject("Access.Application")
objACCESS.OpenCurrentDatabase ActiveWorkbook.Path & "C:\....\FE.mdb"
objACCESS.DoCmd.OpenForm "F_顧客管理番号検索", acNormal
objACCESS.Visible = True
objACCESS.UserControl = True
Set objACCESS = Nothing
End Sub
Excelマクロ有効テンプレートからですと動作するのですが、マクロ有効ブックで保存すると以下のエラーが表示され動きません。
実行時エラー’7866’
このデータベースを開くことができません。データベースファイルが存在しないか、他のユーザーが排他モードで開いているか、ADPファイルではないことが原因です。
Accessを終了して試したり、Excelファイルの保存場所を変更してみたりしたのですが解決出来ません。
また、今回開いているフォームとは管理番号による検索クエリを元にしたフォームなのですがExcelのセルに入力されている管理番号をパラメーターに自動で入力することはできるのでしょうか？
ご指導よろしくお願いします。
通報する
お礼
仕様なんですね。。。少し不便な気がします。 早々のご回答ありがとうございます。