Hi all,
Stuck again! I am getting a runtime error 2115 after running the code listed below. The me.refresh line triggers the error. What I can’t seem to grasp here is that if I remove that line and just close the form, the table updates and there is no error. However, I need the form to stay open and when I refresh or requery the form, I get the error. Can someone give me a pointer on how to fix this issue.
Thanks
Kevin
Code:
Private Sub Check354_AfterUpdate()
DoCmd.SetWarnings False
‘DoCmd.Requery
‘ Attach TAR Report
If (Forms![Splash Screen]![vSecurity] = 70) Then
If Me!Check354 = True Then
Dim mySQL As String
Dim vPricingPackage As String
vPricingPackage = Forms![Splash Screen]![vLastPricing]
DoCmd.OpenForm “frmSelectFileXP”, acNormal, , , , acDialog
oleTechnicalReport.Class = “Excel.Sheet” ‘ Set class name.
‘ Specify type of object.
oleTechnicalReport.OLETypeAllowed = acOLELinked
‘ Specify source file.
oleTechnicalReport.SourceDoc = Me.vTARReportName
‘ Specify data to create link to.
‘TechnicalReport.SourceItem = “R1C1:R25C15”
‘ Create linked object.
oleTechnicalReport.Action = acOLECreateLink
‘ Adjust control size.
oleTechnicalReport.SizeMode = acOLESizeZoom
Me.Desk_TAR_Complete = True
Forms![Splash Screen]![vTechReportName] = Me.vTARReportName
End If
End if
Me.Refresh
… more code
