Win10を20H2にアップデートすると、ADOを使ったExcelからAccessへのデータ取得でエラー発生

###エラーの発生起点
Windows 10 のバージョンアップ
2004 → 20H2
の後から

###データ取得が不可能になる
ADOを使用
ExcelからAccessのデータを取得

　win10 Ver.2004 以前は取得可能
win10 Ver.20H2 以降は取得不可能

###データ構造
Access
テーブル1
|フィールド名|データ|
|:--|:--|
|ID|数値|
|ﾌﾘｶﾞﾅ|半角カナ|
|氏名|漢字|

　　　※そもそも、フィールド名に ”半角カナ” を使用したのがいけなかったのかもしれません・・・。

###データ取得方法
win10 Ver.2004 以前

lang
1　　Range("A1").Value = adoRS!ID
2　　Range("A2").Value = adoRS!フリガナ
3　　Range("A3").Value = adoRS!氏名

　この時点でも、
Range("A2").Value = adoRS!ﾌﾘｶﾞﾅ　と半角カナではエラーとなり、全角カナで書いていました。

###問題解決
自己解決できましたので、下に記載しておきます。

行動規範の内容に同意します

回答2件

追加情報です。
次のようなリンクがありました。

作成日 2021年1月15日
Windows 10、バージョン 20H2 の機能更新後にACCESS 2013,2016,2019 で実行時エラー2465指定した式で参照されているﾌｨｰﾙﾄﾞが見つかりません。

https://answers.microsoft.com/ja-jp/msoffice/forum/msoffice_access-mso_win10-mso_2019/windows/c8b07a8d-e2a9-40b3-ad12-2cbede2f9657

解決策が３つ書かれていました。

3-1. Access アプリケーション観点 - Access の EXE (MSACCESS.EXE) について、"Windows 8" の互換設定を行う
3-2. Access ファイル観点 - Access のフォームで半角カタカナを全角カタカナに変更する
3-3. OS 観点 – Windows OS の NLS バージョンを 6.3 から 6.2 に変更する

投稿2021/04/09 07:50

編集2021/04/09 07:52

K.Shima

総合スコア13

自己解決

エラー箇所の特定

やはり以下の部分でした。
Range("A2").Value = adoRS!フリガナ

データ取得方法の改善

win10 Ver.20H2 以降

VBA
1 Range("A1").Value = adoRS!ID
2'Range("A2").Value = adoRS!フリガナ
3 Range("A2").Value = adoRS(1)    'Accessの２つ目のフィールドを指定。（(0)からスタート）
4 Range("A3").Value = adoRS!氏名

これで、アップデート以前と同様データを取得可能になりました。

Accessのフィールド名 ”半角カナ” 、思わぬところでエラーが発生しました。

投稿2021/04/09 03:09

編集2021/04/09 03:12

K.Shima

総合スコア13