1. สอบถามอาจารย์ทุกท่านค่ะ จากโค้ดด้านล่างนี้ จะเพิ่มโค้ดให้ผลลัพธ์แปลงUnicode ให้เป็น UTF-8 หรือ Shift_JISได้อย่างไรบ้างคะ


Option Compare Database
Option Explicit

Private Declare PtrSafe Sub QRCodeEncode Lib "QRCode_x86.dll" _
(ByVal Message As String, ByVal version As Integer, ByVal level As Integer, ByVal Mask As Integer)

Private Declare PtrSafe Function QRCodeGetRows Lib "QRCode_x86.dll" () As Integer
Private Declare PtrSafe Function QRCodeGetCols Lib "QRCode_x86.dll" () As Integer
Private Declare PtrSafe Function QRCodeGetCharAt Lib "QRCode_x86.dll" (ByVal RowIndex As Integer, ByVal ColIndex As Integer) As Integer

Private Const version = 0
Private Const level = 0
Private Const Mask = 0

Public Function QRGen(Plain_Text As String)
    Dim RowCount As Long, ColCount As Long, i As Long, j As Long
    Dim Message As String, EncodedMsg As String
   
    Message = Plain_Text
    Call QRCodeEncode(Message, version, level, Mask)
    RowCount = QRCodeGetRows()
    ColCount = QRCodeGetCols()
    For i = 1 To RowCount
        For j = 1 To ColCount
            EncodedMsg = EncodedMsg & Chr(QRCodeGetCharAt(i - 1, j - 1))
        Next j
        EncodedMsg = EncodedMsg & vbCrLf
        Next i
        QRGen = EncodedMsg
   
   
End Function


2. สอบถามอาจารย์เพิ่มเติมค่ะ
ถ้านำโค้ดมาใช้กับโปรแกรมอื่นที่รองรับภาษาญี่ปุ่นที่ไม่ใช่Access ซึ่ง vb.net สามารถแสดงได้ไหมคะ

จริงๆแล้วไฟล์ DLL ตัวนี้ ผมใช้กับโปรแกรมอื่นที่รองรับ มันสามารถแสดงเป็นภาษาไทย หรือ ญี่ปุ่นได้หมดนะครับ แต่พอมาใช้กับ MS Access มันกลับใช้ได้แค่ภาษาอังกฤษเท่านั้นครับ ยังไม่ทราบว่าเพราะอะไร สงสัยว่าอาจเป็นที่ตัว VBA ของ MS Access เองครับ
คราวนี้ผมเคยอ่านเจอกระทู้เก่ากระทู้นึงของคุณ kamsuk เป็นโค้ดที่รองรับภาษาญี่ปุ่นได้ ไม่ต้องใช้ไฟล์ไลบารี่หรือฟอนต์ใดๆ เขียนโค้ดอย่างเดียว แต่สามารถใช้กับรายงานเท่านั้น ไม่สามารถแสดงบนฟอร์มได้ ยังไงรองศึกษาดูที่กระทู้นี้ครับ https://www.thai-access.com/yeadram_view.php?topic_id=5576