JustAnswer のしくみ:
  • 専門家に質問
    知識豊富な専門家があらゆる質問にお答えするために常に待機しています。
  • 専門家が丁寧に対応
    E メールやサイト内オンラインメッセージなど、さまざまな手段で回答を通知。
    必要に応じてフォローアップの質問をすることもできます。
  • 満足度 100% 保証
    専門家からの回答を確認し評価をすることで、支払うかどうかを決めます。
rushqkに今すぐ質問する
rushqk
rushqk, プログラマー
カテゴリ: プログラミング
満足したユーザー: 9
経験:  AV機器開発、ソフトウェア設計
60440014
ここに プログラミング に関する質問を入力してください。
rushqkがオンラインで質問受付中

■Access2000 で作成したmdbファイルをAccess2013で運用できるようにする。問題点:

質問者の質問

■Access2000 で作成したmdbファイルをAccess2013で運用できるようにする。 問題点:  SystemソースとDBは別ファイルでテーブルリンク状態で構成されている。  実行途中、別のDBファイルにリンク先を変更する必要がある。  一般的なPCコードで変更し、ロジック的に問題なく終了したが、  実際にテーブルの値をみると変更前のテーブル値のままになっている。  但し、接続文字列は変更されている。正しく変更できないので困っています。  参考までに下記に変更ロジックを記載します。 [OS] Windows XP Windows 2000 ⇒  Windows 7 (OS:32bit) [ソフト] Office 2000 ⇒   Office 2013 (32Bit版でインストール) ---------------------------------------------------------------------- [変更ロジック] strDBLinkFile = gstrWDBLinkFileNM If Not fncCheckFolderOrFileExist(strDBLinkFile) Then MsgBox strDBLinkFile & strMsg503, vbInformation, gstrTitle DoCmd.Quit acQuitSaveNone Exit Function End If '' テーブルのリンクを変更する Set objDB = CurrentDb For Each objTable In objDB.TableDefs If Len(objTable.Connect) 0 Then '' リンク先が同じ場合は張りなおさない If objTable.Connect = ";database=" & strDBLinkFile Then blnCFlg = False Exit For End If objTable.Connect = ";database=" & strDBLinkFile objTable.RefreshLink blnCFlg = True End If Next '' リンク変更を再反映 If blnCFlg = True Then objDB.TableDefs.Refresh End If objDB.Close Set objDB = Nothing ------------------------------------------------------------------ 原因わかるでしょうか?よろしくお願いいたします。

[追加確認[

質問をしてから3,4時間経ちますが、原因はわかりませんか?

投稿: 1 年 前.
カテゴリ: プログラミング
専門家:  Ryoko-Mod 返答済み 1 年 前.
こんにちは、こちらご投稿のカテゴリを管理しておりますRyoko.M と申します。
お客様がご投稿になられた質問に回答できる専門家をお捜ししておりますが、回答ができる専門家を見つける
には、残念ながらもう少し時間がかかりそうです。
引き続きお探しいたしますが、もうすでにご投稿の質問への回答を見つけられた場合はご連絡ください

プログラミング についての関連する質問