締切済み

リンクテーブルについて・・・

2004/05/19 16:56

Access97で仕事関連のシステムを開発しています。実データはテーブルだけのMDBファイルに格納して、リンクテーブルとしています。自宅ではアプリケーションMDBファイル、実データMDB ファイル共、ローカルディスクに入れていますが、仕事場では実データMDBファイルはネットワーク上のサーバに有ります。その為、アプリ変更の都度「リンクテーブルマネージャー」を行わないといけないのですが、これが結構やっかいです。自宅の環境では、数十テーブルのリンクに関して、１回だけリンク先のMDBファイルを指定してやれば、全てのテーブルリンクが完了しますが、仕事場では各テーブル毎に１件づつリンク先を指定しないといけません・・・なんで？あと、２つのリンク環境を一発で更新するとか、出来ませんかネェ？

foresight_toshi
お礼率33% (1/3)

その他(データベース)
回答数2
ありがとう数0

みんなの回答 （2）
専門家の回答

みんなの回答

noname#7099

2004/05/19 17:27 回答No.2

会社のリンクテーブル先、全部同一のmdbにはいっていますか？　全部同一のmdbに入っているのなら、全部のテーブルを選択して、１回だけリンク先のMDBファイルを指定してやれば全てのテーブルリンクが完了しますが、　リンク先が複数のmdbに分かれている場合、全部のテーブルがひとつのmdbに入っているわけではないので、全部選択してしまうと、１回づつ聞いてきます。　同一のmdbに入っているテーブルだけ選択して（複数可能）リンクを張りなおして、また別のmdbに入っているテーブルだけ選択してリンクを張りなおす、という方法があります。リンク先を指定して実行ボタンをクリックすると、リンク先を更新するＶＢＡです。（ＡＣＣＥＳＳ９７実際に使っています。） Private Sub 実行_Click() If IsNull(Me![リンク先]) Then Exit Sub End If RefreshLinks (Trim(Me![リンク先])) DoCmd.Close DoCmd.OpenForm "メインメニュー" End Sub '******************************************************************** '指定されたデータベースへのリンクを更新します。成功した場合は、True を返す。 '******************************************************************** ' Public Function RefreshLinks(strFileName As String) As Boolean Dim dbs As Database Dim intCount As Integer Dim tdf As TableDef DoCmd.Hourglass True Set dbs = CurrentDb For intCount = 0 To dbs.TableDefs.Count - 1 Set tdf = dbs.TableDefs(intCount) If Len(tdf.Connect) > 0 Then tdf.Connect = ";DATABASE=" & strFileName Err = 0 On Error Resume Next tdf.RefreshLink If Err <> 0 Then DoCmd.Hourglass False RefreshLinks = False Exit Function End If End If Next intCount DoCmd.Hourglass False RefreshLinks = True Set tdf = Nothing Set dbs = Nothing End Function