Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9385 / 9994

←次へ　｜　前へ→


	【3748】Re:既定フォルダーの変更

クロ - 04/10/21(木) 11:04 -


	引用なし

	パスワード

方法はGetOption メソッドと SetOption メソッドを使用します。
取りあえず私の場合はユーザ定義関数で起動時と終了時の関数を
作ってやってますので参考までに...

Option Compare Database
Option Explicit
Private str As String

Function DDDChangeOpen()　'起動時用
'現在のデフォルトのデータベースフォルダを取得
str = Application.GetOption("Default Database Directory")
'新しいデフォルトのデータベースフォルダを指定
Application.SetOption "Default Database Directory", "D:\***\"
End Function

Function DDDChangeQuit() '終了時用
Application.SetOption "Default Database Directory", str
End Function

起動時には「DDDChangeOpen()」をAUTOEXECマクロに仕込んで(プロシージャの実行)
います。
終了時はそのmdbファイル終了時(Application.Quit)の前に仕込んでます。

参考URL
http://support.microsoft.com/?scid=kb;ja;216888&spid=1265&sid=312

315 hits

▼

【3745】既定フォルダーの変更 マモ 04/10/21(木) 9:22