Access (VBA)

Access VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10全般 : Access 2016)
ランタイムで別のパスワードのかかったDBのフォームを開く件
投稿日時: 19/06/14 00:00:26
投稿者: アロハ

お世話になります。
 
アクセスランタイムで別のパスワードのかかったDBのフォームを開くと実行時にエラーになります。
Dim appAccess As Access.Application
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase ("開きたいDBのフォルダーのパス",,"パスワード")
appAccess.DoCmd.OpenForm ("開きたいフォーム")
appAccess.Visible = True
Set appAccess = Nothing
そこでいろいろ調べて、GetObjectで別のDBのフォームを開くことはできました。
Dim appAccess As Object
Set appAccess = GetObject("開きたいDBのフォルダーのパス")
 
しかしGetObjectだと、OpenCurrentDatabaseでエラーになりデータベースパスワードの指定ができずに
困っております。
ランタイム環境で別のパスワードのかかったDBのフォームを開くには、他にどういった方法がありますでしょうか。
 
 
どうかご指導の程、よろしくお願いします。

回答
投稿日時: 19/06/14 14:06:35
投稿者: Suzu

引用:
別のパスワードのかかったDB

たら
何の為に別の パスワード付 の Accessファイルを呼び出す必要があるのでしょうか。
 
データベースを利用したいのなら、リンクテーブルや、ADO/DAO を使っては?
フォーム等を使用したいなら、今のファイルに取り込んでしまっては?
 
 
理論的に考えて、ランタイム自体、ファイル毎に起動されます。
と言う事は、CurrentDatabase は そのファイルです。
 
それを、別ファイルに置き換えるのですから、ランタイムファイルをCloseする必要があります。
この時点で、
・製品版であれば「ランタイム」Access単体で起動を保持できるでしょう。
・ランタイム版の場合、Accessの起動じている状態を保持できなくなるのではないでしょうか。
  テストは出来ていませんが 新たに開こうとするファイルをランタイム版ならもしかしたら。。です。

トピックに返信