none
Update Query / Run-Time error '3340' RRS feed

  • Question

  • Hello,

    I have installed a new version MS Office 365 Version 1910 (Build 12130.20344 Click-to-Run) and since that I'm not able to run my update queries.

    ex:

        Dim dbs As Database
        Dim qdf As QueryDef
       
        Set dbs = CurrentDb
       
        dbs.Execute "UPDATE TMPPrinterList " _
                & "SET TMPPrinterList.Selected = 0 " _
                & "WHERE (((TMPPrinterList.PrinterNum)=4));"
       
        dbs.Close

    it generates the error '3340'

    Thursday, November 14, 2019 4:55 PM

All replies