ACCESS2019などについている
MICROSOFT　BARCODE　CONTROL　16ですが
ＱＲコードが日本語に対応していません

せっかくのQRコントロールでも使えないなと思っていました
GOOGLEAPPでできるとか色々な記事があります

当社もPSYTECさんの有料ACTIVEXを使っていました

いろいろ考えていたのですが社内で使うQRであれば
URLエンコードしてＱＲ発行してデコードしてあげればいいじゃん
と思いついた次第であります

ちなみにACCESS　VBA　からURLエンコード使う関数は以下のようです

Function EncodeURL(str As String) As String
Dim sc as object
Set sc = CreateObject(“ScriptControl”)
sc.Language = “Jscript”
EncodeURL = sc.CodeObject.encodeURIComponent(str)
End Function

Function DecodeURL(uri As String) As String
Dim sc as object
Set sc = CreateObject(“ScriptControl”)
sc.Language = “JScript”
DecodeURL = sc.CodeObject.decodeURIComponent(uri)
End Function

漢字入りの文字列を一度エンコードしてQR発行して
取り込み側でもスキャンごデコードしてやれば
漢字入りの文字列に戻ります

もし自社内で利用のQRならお試しあれー