xlQRCode (1 Viewer)

[JohnLit]

Hi All

I have used this code for a few years an suddenly today an error popped up on my screen type mismatch error 13 in the code below
any help would be appreciated

Thanks

Public Function InitQRCode()

Dim rsParent As DAO.Recordset2
Dim rsChild As DAO.Recordset2
Dim fld As DAO.Field2
Dim db As DAO.Database
Dim strFile As String

SysCmd acSysCmdSetStatus, "Initialising QR generator..."

Set db = CurrentDb
Set rsParent = db.OpenRecordset("tblQRSheet", dbOpenDynaset)
rsParent.MoveFirst
Set rsChild = rsParent.Fields("attachment").Value
Set fld = rsChild.Fields("FileData")
strFile = TempPath() & "QRCode.xlsm"
If Dir(strFile) <> "" Then Kill (strFile)
fld.SaveToFile strFile

Set fld = Nothing
rsChild.Close
rsParent.Close
Set rsChild = Nothing
Set rsParent = Nothing

Set gxlApp = CreateObject("Excel.Application")
Set gxlWB = gxlApp.Workbooks.Open(strFile, False, False)

SysCmd acSysCmdClearStatus

End Function

 

[CJ_London]

might be related to an update bug reported a couple of days ago

Another Access 365 v2206 bug (from stackoverflow)

Looks like rs.Fields defaults to a DAO.Field3 type (which seems new) instead of the prior default. https://stackoverflow.com/questions/72831316/access-with-breaking-changes-on-version-2206-recordset2-fields-returns-dao-fiel

www.access-programmers.co.uk