My company recently upgraded our Office suite from 2003 to 2010. The problem in particular is with an Access database that was originally designed in Access 2003. The code in question used work in 2003 (see below code).
Expand|Select|Wrap|Line Numbers
- Private Sub engSave_Click()
- Dim strSql3 As String
- 'Archive order number and cost data for engine.
- strSql3 = "UPDATE tblQuotePkgEngine INNER JOIN qryQuotePkgEngine ON " & _
- "(tblQuotePkgEngine.engPrcID = qryQuotePkgEngine.engPrcID) " & _
- " AND (tblQuotePkgEngine.pkgID = qryQuotePkgEngine.pkgID) " & _
- " SET tblQuotePkgEngine.soHist = [qryQuotePkgEngine]![OrderNo], " & _
- " tblQuotePkgEngine.costHist = [qryQuotePkgEngine]![Cost (CDN)], " & _
- " tblQuotePkgEngine.prcHist = [qryQuotePkgEngine]![Price] " & _
- " WHERE (((tblQuotePkgEngine.pkgID)= " & Me.pkgID & "));"
- DBEngine(0)(0).Execute strSql3, dbFailOnError
- Forms![fmQuotePkgDetails].Refresh
- Forms![fmQuotePkgDetails]![modDate] = date
- MsgBox ("Engine modification now saved.")
- End Sub
I'm assuming Access 2010 does not recognize this anymore?
Can someone enlighten me please as this is something I've been trying to chase down for the last day or so.
Thanks in advance.
Alan