|
会計というデータベースを作り、プログラムとデータを分割し、PG側(名前:会計_Pg)をドキュメント、データ側(名前:22年度会計_be)をドライブDに置いてリンクし使用しています。
現在この使用で支障はないのですが、たまにドライブDに保存しているデータ(名前:21年度会計_be)にリンクし使用したい場合があります。
この時は、手動でツールからユーティリティ・リンクテーブルマネージャーでリンクの貼り直しをしています。
手動も面倒なので、Pg側のフォームに21年度会計というコマンドボタンを作り、ボタンクリックだけで22年度会計_beから21年度会計_beにリンク仕直しができないかということで21年度会計のコマンドに下記のコードを作ってみました。
結果は上手くいきませんでした。
Private Sub ctl21年度会計_click()
Dim db As DAO.Database
Set db As = Currentdb()
db.Connect = ";DATABASE = D:\21年度会計_be.mdb;"
db.Close : Set db = Nothing
End Sub
どなたか教えて下さい。
|
|