スキルアップ・問題解決なら、モーグにおまかせ！

初めまして、宜しくお願い致します。
 
現在、Access2010で作成したaccdbを、３代のPCで、AccessRuntime2010で動かそうとしています。
それぞれ環境が異なっているせいなのか、実行結果が全く異なっていて、どう対応すべきかわかりません。
 
＜環境＞
 
＜開発環境＞　　　win10　　Access2010
※実行環境PCとは別のPCです。
※リンク先も、このPCで作成したaccdbです。
 
＜実行環境＞
PC1    　win10　　AccessRuntime2010sp2（32bit）（インストールしているoffice=2010、Accessはなし）
PC2　　　　win10　　AccessRuntime2010sp2（32bit）（インストールしているoffice=365、Accessはなし）
PC3　　　　win7SP1　AccessRuntime2010sp2（64bit）（インストールしているoffice=2010、Accessはなし）
 
参照設定
VisualBasicForApplication
MicrosoftAccess 14.0 ObjectLibrary
MicrosoftOffice 14.0 Access　database engine ObjectLibrary
MicrosoftExcel 14.0 Object Library
MicrosoftOutlook 14.0 Object Library
Microsoft Office 14.0 Object Library
 
＜モジュールの内容＞
ファイルダイアログを表示し、選択したファイル（.accdb）内のテーブルにリンクする。
既にリンクテーブルは存在し、そのリンク先を変更する仕組み。
 
＜実行結果＞
PC1：エラーなしで、リンク成功。
PC2:ダイアログで選択したファイルをリンクするところでエラー
　　（パスは正確に取得できている）
        TableDef.Connect = ";DATABASE=" & strPath & ";TABLE=" & TableDef.Name
        TableDef.RefreshLink ' リンク情報の更新
PC3：マクロ「autoexec」を指定しているとエラー
　　（「autoexec」内で呼び出している、上記テーブルリンクのモジュールを、起動したフォームのボタンから呼び出して実行することは可能）
 
PC１は私の環境なのですが、私の環境では動いてしまっているうえ、PC２とPC３でも異なるエラーが出るので、対応しきれなくなっています。
 
何か根本的なことを間違えているのでしょうか。
RUNTIME版を使用するにあたって、
・RUNTIME版のバージョンとOfficeのバージョンまたはwindowsの組み合わせはあっているのか？
・32ビットと64ビット、両方で動くaccdbを作成することは可能なのか？そのためには何が必要なのか？
等、何かご存知のことがあれば教えてください。
 
宜しくお願い致します。

引用:
PC１は私の環境なのですが、私の環境では動いてしまっているうえ、PC２とPC３でも異なるエラーが出るので、対応しきれなくなっています。

引用:
・RUNTIME版のバージョンとOfficeのバージョンまたはwindowsの組み合わせはあっているのか？

引用:
・32ビットと64ビット、両方で動くaccdbを作成することは可能なのか？そのためには何が必要なのか？

引用:
＜モジュールの内容＞
ファイルダイアログを表示し、選択したファイル（.accdb）内のテーブルにリンクする。
既にリンクテーブルは存在し、そのリンク先を変更する仕組み。

引用:
そのためには何が必要なのか？

ご回答、ありがとうございます。
 
実行環境と同じ環境で開発する、ということが難しく（環境を同じくすることが可能なPCが見当たりません）、
実行してエラーがでて、開発環境で「ここかな？」というところをチェックするしかありませんでした。
 
ただ、教えて頂いたサイトでかなりのヒントを得ることができたので、
よく読み込んで、各実行環境で動くように修正を加えていきます。
 
まずは、

引用:
32ビット/64ビット 環境違いにて問題となるのは、使用する DLL が違う事です。
DLLが違うという事で良く起こるのは、
・ODBCドライバ
・API宣言
になります。
  
  
今回は、
 
＜モジュールの内容＞
ファイルダイアログを表示し、選択したファイル（.accdb）内のテーブルにリンクする。
既にリンクテーブルは存在し、そのリンク先を変更する仕組み。
 
との事ですので、ODBCドライバの問題ではないのか と推測します。
  
【64ビットWindowsには、なぜ32ビットと64ビットのODBCが存在するのか？】
https://www.idearu.info/article/data/ds1034
辺りが参考になるでしょう。

少なくとも、同じバージョンの Accessがあれば、
ランタイムモードで起動をする事はできますので、助けにはなるかと思います。
 
エラーが出ない様にするのは、一個一個確認し、改善するしかないと思います。
がんばってください。

引用:
少なくとも、同じバージョンの Accessがあれば、
ランタイムモードで起動をする事はできますので、助けにはなるかと思います。

引用:
エラーが出ない様にするのは、一個一個確認し、改善するしかないと思います。
がんばってください。

御世話になります。
その後、いくつか対応を行いました。
 
・Office2010Win32API_Ptrsafe.exe　を、32ビット、64ビット両方にインストール
・各モジュールに、以下文言を追加
 
**********
#If Win64 Then
   Public Declare PtrSafe Function MyMathFunc Lib "User32" (ByVal N As LongLong) As LongLong
    Public Declare PtrSafe Function RegOpenKeyA Lib "advapi32.dll" (ByVal Key As LongPtr, ByVal SubKey As String, NewKey As LongPtr) As Long
    'Declare PtrSafe Function RegOpenKeyA Lib "advapi32.dll" (ByVal Key As LongPtr, ByVal SubKey As String, NewKey As LongPtr) As Long
     
    Public Declare PtrSafe Function SHBrowseForFolder Lib "shell32.dll" _
      Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
#Else
   Public Declare Function MyMathFunc Lib "User32" (ByVal N As Long) As Long
    Public Declare Function RegOpenKeyA Lib "advapi32.dll" (ByVal Key As LongPtr, ByVal SubKey As String, NewKey As LongPtr) As Long
    'Declare PtrSafe Function RegOpenKeyA Lib "advapi32.dll" (ByVal Key As LongPtr, ByVal SubKey As String, NewKey As LongPtr) As Long
     
    Public Declare Function SHBrowseForFolder Lib "shell32.dll" _
  Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
#End If
********
**********
#If Win64 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
*********
 
上記対応で、「ファイル選択ダイアログ」が表示され、サーバにあるaccdbが選択可能になり、テーブルのリンクが成功しました。
 
しかしこの後、32ビットだけが、
実行ファイルが持っているテーブルに対して、更新・削除を行おうとすると、
更新の時のエラー3073：更新可能なクエリであることが必要です
削除の時のエラー3027：データベースまたはオブジェクトは読み取り専用なので更新できません
と表示されてしまい、処理が進みません。
 
更新は、モジュールにて
        strSQL = "UPDATE TM_Dataファイルパス SET " & _
                      " TM_Dataファイルパス.[パス] = '" & strPath & "'" & _
                      " WHERE (((TM_Dataファイルパス.ID)=1));"
    Set db = CurrentDb
    Set rs = db.OpenRecordset("TM_希望地")
        DoCmd.SetWarnings False
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
 
削除は、ボタンクリック時のマクロで
メッセージの表示：いいえ
SQLの実行：delete * from TW_物件元データ;
　　　　　（トランザクションの使用：はい）
メッセージの表示：はい
フォームを開く：F_物件情報登録
 
上記のように、ごく簡単なsqlです。
 
また、「削除」の失敗のあと、どのボタンを押しても反応なしとなってしまいます。
 
問題が別の事に移ってしまいましたが、32ビット、64ビットで異なる動きをするという
大枠では同じなので、この質問で継続させてください。
 
どなたか、この状況の問題点・解決方法が分かる方がいらっしゃったら
どうか教えてください。
宜しくお願い致します。
 
 
 

VBA（SQL） でエラーになるのであれば、まず、手動（クエリ）で確認しましょう。
 

引用:
実行ファイルが持っているテーブルに対して、更新・削除を行おうとすると、
更新の時のエラー3073：更新可能なクエリであることが必要です
削除の時のエラー3027：データベースまたはオブジェクトは読み取り専用なので更新できません
と表示されてしまい、処理が進みません。
  
更新は、モジュールにて
        strSQL = "UPDATE TM_Dataファイルパス SET " & _
                      " TM_Dataファイルパス.[パス] = '" & strPath & "'" & _
                      " WHERE (((TM_Dataファイルパス.ID)=1));"

更新先が、リンクテーブル なのであり、
フォームでも更新できないのであれば、
  
リンクテーブルの設定 （ODBC） が正しく設定されているか確認してください。
  
  
それと、、
SQLでは、フォームの ID を使用しています。
このフォームは連結フォームですか？
  
その場合、そのフォームが、フォームのレコードソースとなるテーブルのレコードを
ロックしていることになります。
  
その上で、DAO の レコードセット と Docmd.RunSQL これらは
フォームとは、別ユーザー扱いになる事があります。
  
マクロで、SQLの実行 命令 トランザクションを使用している と仰っていますが、どうやって？？
トランザクション ロールバック・コミット、マクロではできませんよね。。
 
 
少なくとも、ランタイム 配布の前に、クライアント/サーバー 環境での 開発をされた事はありますか？
開発用マシンの他に、テスト用の Accessの入ったマシンを用意し テスト等は実施されていますか？
  
その上で、ランタイムに着手するなら 出来ると思いますが、
クライアント/サーバー の開発経験がない状態で、
クライアント/サーバー と、ランタイム 共に初めての経験の中で 開発を作成するのは
とても敷居が高いと思いますよ。

引用:

テーブル『TM_Dataファイルパス』は、各実行ファイル側で間違いないですか？
  
そのテーブルを操作できるフォームを作成し、ランタイムにしたとき、
そのフォームから レコードの編集はできますか？

引用:
QLでは、フォームの ID を使用しています。
このフォームは連結フォームですか？

引用:
その場合、そのフォームが、フォームのレコードソースとなるテーブルのレコードを
ロックしていることになります。
   
その上で、DAO の レコードセット と Docmd.RunSQL これらは
フォームとは、別ユーザー扱いになる事があります。

引用:
マクロで、SQLの実行 命令 トランザクションを使用している と仰っていますが、どうやって？？
トランザクション ロールバック・コミット、マクロではできませんよね。。

引用:
少なくとも、ランタイム 配布の前に、クライアント/サーバー 環境での 開発をされた事はありますか？
開発用マシンの他に、テスト用の Accessの入ったマシンを用意し テスト等は実施されていますか？