แก้โดยการเพิ่ม parameter นี้เข้าไป

Public Function QRString(vAny As Variant) As String
Dim DateStr As String, DateChr(12) As String, i As Integer

DateStr = Format(Now(), "DDMMYYYYHHmm")
For i = 1 To 12
    DateChr(i) = Mid(DateStr, i, 1)
Next

QRString = Format(Int(Rnd() * 1000), "000") & DateChr(9) & DateChr(5) & DateChr(3) & DateChr(1) & DateChr(6) & DateChr(11) & DateChr(7) & DateChr(8) & DateChr(2) & DateChr(10) & DateChr(4) & DateChr(12)

End Function

คุณได้รัน function นี้ใน Query หรือไม่ ถ้าเอาไปรันใน Query ให้ระบุชื่อ field ที่มีอยู่ฟิลด์ไหนก็ได้ลงไปใน function นี้เช่น

QRString([ชื่อฟิลด์อะไรก็ได้ที่มีอยู่])

ปล. ทุกครั้งที่มีการ populate หรือ recalculate ตัว Query นี้ค่ามันจะเปลี่ยนทุกครั้ง ดังนั้นให้เรียกใช้เพียงครั้งเดียวแล้วเก็บค่าที่ได้เข้าในตาราง หรือใน Log แล้วใช้ค่าดังกล่าวแทน