Accessのリンクテーブルについて質問です。
この度、バックエンドとフロントエンドでのデータベースを作っています。
フロントエンドを会社のPC10台程度で利用しようと考えています。
ただ、作成するのが、自宅のPCと会社のPCで作っているのですが、
リンクテーブルのパスが変わってしまい、非常に困っています。
現在は自宅でデータ系を作成し、会社でフォーム等見た目に関するものを作っている次第です。
リンクテーブルを自動更新させる方法、または、ボタンで全てのリンクテーブルを更新させる方法はないでしょうか?
一つのテーブルをボタンで更新させる方法は、他サイトで見つけたのですが、複数テーブルを一挙に更新させる方法が見当たりません。
また、面倒な話なのですが、テーブル数は現在決まっておらず、今後増える予定です。(現在は7つ。)
出来れば参考サイトやソースコードを教えていただけると、非常に助かります。
何卒よろしくお願いいたします。m(_ _)m
No.2ベストアンサー
- 回答日時:
Access2003であれば、下記コードで
すべてのリンクテーブルのパスを変更
できるハズです。
Sub test()
On Error GoTo Err_test
Dim strFile As String
Dim intResult As Integer
Dim tb As DAO.TableDef
Const ENABLE_WIZHOOK = 51488399
Const DISABLE_WIZHOOK = 0
WizHook.Key = ENABLE_WIZHOOK
intResult = WizHook.GetFileName(0, "", "データベースを指定して下さい", "" _
, strFile, "", "mdbファイル (*.mdb)|*.mdb", 0, 0, 0, True)
WizHook.Key = DISABLE_WIZHOOK
If strFile = "" Then Exit Sub
For Each tb In CurrentDb.TableDefs
If tb.Connect <> "" And tb.Connect <> ";DATABASE=" & strFile Then
tb.Connect = ";DATABASE=" & strFile
tb.RefreshLink
End If
Next tb
MsgBox "リンク更新が正常に終了しました", vbInformation
Exit Sub
Err_test:
MsgBox Err.Description, 16
End Sub
非常にわかりやすいソースありがとうございます。
読解できました。
いじる所も全くないのでこのまま利用させていただきます。
本当にありがとうございました。m(_ _)m
No.1
- 回答日時:
こちらが最適かと。
http://www.nurs.or.jp/~ppoy/access/access/acM020 …
マイクロソフトにもありますが。
http://support.microsoft.com/kb/291264/ja
では。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- その他(データベース) pythonでsqlight勉強中、クエリー結果の利用法教えて下さい 1 2022/04/28 20:38
- Access(アクセス) Accessにインポートした複数のテーブルを表示させる方法が分かりません。 1 2023/01/30 20:22
- MySQL PHPとMySQLを使った掲示板の作り方 1 2022/06/02 13:00
- その他(Microsoft Office) エクセルでテーブルの最終行が自動追加されない 1 2023/01/04 15:09
- Oracle SQL update方法 2 2022/06/22 14:07
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
AccessからExcelへエクスポート...
-
『列名 '担当者CD' があいま...
-
VBとアクセスでSQL文に変...
-
CSVファイルのエクスポートでソ...
-
Access SQLITEのリンクテーブ...
-
WORD VBA プログラム修正をお願...
-
DataGridViewで変更した値を反...
-
Accessで別mdbのテーブルをコピー
-
リストボックスに複数列表示し...
-
テーブルのアイテム番号を一意...
-
ExcelVBAからAccessMDB内のテー...
-
COBOLのINVALID KEYが理解でき...
-
エクセルのテーブルを解除する...
-
オラクルデータベースへの更新方法
-
asp.net mvcを利用する場合の複...
-
手動または分散トランザクショ...
-
ADO&mdbで、リンクテーブルの...
-
HTMLのテーブルの行数が多くな...
-
同一セッションIDのブラウザを...
-
ExcelからAccessのテーブルに書...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBとアクセスでSQL文に変...
-
WORD VBA プログラム修正をお願...
-
Accessで別mdbのテーブルをコピー
-
『列名 '担当者CD' があいま...
-
DataGridViewに複数テーブルの...
-
他のMDBのテーブルに追加したい
-
エクセルのテーブルを解除する...
-
Excel複数シートをaccessへ一括...
-
手動または分散トランザクショ...
-
SQLを発行とは?クエリの作成と...
-
AccessからExcelへエクスポート...
-
CSVファイルのエクスポートでソ...
-
ACCESS2010 実行時エラー 2766
-
HTMLのテーブルの行数が多くな...
-
ExcelVBAからAccessMDB内のテー...
-
【ADO】「Execute」を使うと...
-
★クリスタルレポートの元になる...
-
DataGridの中身をDataSetにテー...
-
ACCESSのテーブル名をリストに...
-
COBOLのINVALID KEYが理解でき...
おすすめ情報