前提・実現したいこと
AccessでリンクテーブルをVBAから追加する仕組みを構築しています。
追加したリンクテーブルに、グループを設定し、ナビゲーションウィンドウを見やすくしたいのですが、VBAからの設定の仕方が分かりません。
ナビゲーションウィンドウからは、テーブルを選択し、グループに追加でテーブルをグループに属させることができます。
この処理をVBAで実装するため、主に以下の二点の情報が必要です。
・VBAからグループを作成する方法
・VBAでテーブルにグループを設定する方法
どうかよろしくお願いいたします。
> AccessでリンクテーブルをVBAから追加する仕組み
どういった場面ですか?
そのリンクテーブルをプログラムで操作するなら予め追加しておく必要がありますから、その際に手動でグループ設定しておけばいいですし。
回答ありがとうございます。
各社員の勤務データテーブルのあるアクセスファイルをリンクテーブルで追加するイメージです。追加した後、各スタッフの部署ごとにグループ分けをしたいと考えています。
DoCmd.TransferDatabase により、リンクテーブルを追加しています。
追加すると、元のファイルにグループ設定がされていたとしても、その情報は引き継がれません。
Access2010を使用しています。
ちなみによろしくお願いいたします。
予め準備しておいて、リンクテーブルのリンク元の更新は出来ないのですか?
その方法も試してはみました。
```VBA
For Each tb In db.TableDefs
If tb.Name = "T_Shift001" Then
Path = "*********\Master\User001.accdb"
tb.Connect = ";DATABASE=" & Path & ";TABLE=" & tb.Name
tb.RefreshLink ' リンク情報の更新
end if
next tb
```
このようにリンクテーブルの更新を行うと、グループ情報が解除されてしまうのです。
上記のコードの後に以下を追記しても駄目でしょうか?
Application.RefreshDatabaseWindow
やってみましたが、グループ設定が解除されてしまいました。
リンク情報の更新後、グループ設定ができると良いのですが・・・
グループの追加は出来そうですけど、グループに割り当てる事に参考になる記事が見当たりませんね。
試行錯誤すれば出来そうな気はしますけど。
あなたの回答
tips
プレビュー