Runtime Error 9 Subscript out of range

[Guest]

I am trying to add code to a report module. This is a new imported report
without any prior modules in it.

The following line of code:
Modules("Report_" & ReportName).AddFromString str
Fails with Runtime Error 9 Subscript out of range.

If I open the report, add a dummy sub routine and then run the code it works
fine.

Here is the complete function:

Function AddCode(ReportName As String)

Dim str As String

str = "some_code"

DoCmd.OpenReport ReportName, acViewDesign
Application.Reports(ReportName).Visible = False
Modules("Report_" & ReportName).AddFromString str
Reports(ReportName).OnClose = "[Event Procedure]"
DoCmd.Close acReport, ReportName, acSaveYes

End Function

 

[Van T. Dinh]

Do you have spaces or special characters in the Report name?

If you do, you have a naming conflict between Access and VBA ...

Check Access Help topics:

* Guidelines for naming fields, controls and objects.
*Guidelines for naming Visual Basic procedures, variables and constants.

 

[Van T. Dinh]

Just read your question again and noted that there is a possibility that the
Property "Has Module" of your report might have been set to No / False. Try
setting this to Yes / True.

 

[Guest]

I do not have any special characters or spaces in my report.
Also when I set the HasModule property to True and ran the code I got the
following error: Run Time Error 7961. MS Access can't find the module
'Report_testreport' referred to in a macro expression or VB code.

Just read your question again and noted that there is a possibility that the
Property "Has Module" of your report might have been set to No / False. Try
setting this to Yes / True.

--
HTH
Van T. Dinh
MVP (Access)

I am trying to add code to a report module. This is a new imported report
without any prior modules in it.

The following line of code:
Modules("Report_" & ReportName).AddFromString str
Fails with Runtime Error 9 Subscript out of range.

If I open the report, add a dummy sub routine and then run the code it
works
fine.

Here is the complete function:

Function AddCode(ReportName As String)

Dim str As String

str = "some_code"

DoCmd.OpenReport ReportName, acViewDesign
Application.Reports(ReportName).Visible = False
Modules("Report_" & ReportName).AddFromString str
Reports(ReportName).OnClose = "[Event Procedure]"
DoCmd.Close acReport, ReportName, acSaveYes

End Function

 

[Van T. Dinh]

It still sounds like VBA is not picking up the Class container behind the
Report "testreport".

Try adding some code in the module (e.g. some silly function), copile the
code, save the Report and close the database. Open the database again and
see if you pick up the Class module.

Do you regularly compact & repair the database?