Dim adoCn As Object, adoRs As Object
Dim newnm As Long
yname = Environ("UserProfile") 'ユーザー名を取得
strFileName = "hoge.accdb" 'データベースのファイル名
Set adoCn = CreateObject("ADODB.Connection") 'ADODBコネクションオブジェクトを作成
adoCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & yname & "\Desktop\VBA\" & strFileName & ";" 'Accessファイルに接続
strSQL = "UPDATE 事業所データ SET 通番 = 4;"
adoCn.Execute strSQL, lRecordAffected 'SQLを実行してレコードを更新
事業所データ、通番というフィールドは存在して
データ型は、文字列と数値型です。
エラー番号 2147467259
引数が無効です。
と表示され、エラーになってしまいます。
なにが、原因なのでしょうか？
問題が起きるテーブルを、xmlでエクスポートして、
再度インポートしたテーブルを使用したらエラーが起きなくなりました。
なにか、確認できないゴミみたいなものが入っていたのでしょう。
バージョンは、2016の64ビットのままなので、
accessのバグみたいなもんですね。
エラー番号 2147467259は、テーブルの入れ替えで解決できました。