Option Compare Database
Option Explicit
Public Function GenQRCode(ByRef img As Access.Image, anything As Variant) As String
Dim i As Integer, strFile As String
If Not (IsFormLoaded("hiddenForm")) Then
DoCmd.OpenForm "hiddenForm", , , , , acHidden
End If
SysCmd...