SubReport RecordSource

[briank]

I would like to eliminate the recordsource for a subreport from a form's
command button. However, upon running my code errors out stating: "The
report name 'rptMABR_blank' you entered is misspelled or refers to a report
that isn't open or doesn't exist". Any ideas how to get a subreport's record
source to = "" ?

Private Sub Command70_Click()
On Error GoTo Err_Command70_Click

Dim stDocName As String
Dim stWhere As String

stDocName = "rptMABR_Blank"
stWhere =
[Reports]![rptMABR_Blank]![rptMABR_pg5_blank].[Report]![sfrmMABR_PlanQ1].RecordSource = ""
DoCmd.OpenReport stDocName, acPreview, , stWhere

Exit_Command70_Click:
Exit Sub

Err_Command70_Click:
MsgBox Err.Description
Resume Exit_Command70_Click

End Sub

 

[Klatuu]

Me.MySubFormControlName.Form.RowSource = vbNullString

Be aware that you use the name of the subform control, not the form that is
the source object of the subform control.

 

[briank]

Dave,
Does your code get entered as a seperate line or at the stWhere section?

Me.MySubFormControlName.Form.RowSource = vbNullString

Be aware that you use the name of the subform control, not the form that is
the source object of the subform control.
--
Dave Hargis, Microsoft Access MVP

I would like to eliminate the recordsource for a subreport from a form's
command button. However, upon running my code errors out stating: "The
report name 'rptMABR_blank' you entered is misspelled or refers to a report
that isn't open or doesn't exist". Any ideas how to get a subreport's record
source to = "" ?

Private Sub Command70_Click()
On Error GoTo Err_Command70_Click

Dim stDocName As String
Dim stWhere As String

stDocName = "rptMABR_Blank"
stWhere =
[Reports]![rptMABR_Blank]![rptMABR_pg5_blank].[Report]![sfrmMABR_PlanQ1].RecordSource = ""
DoCmd.OpenReport stDocName, acPreview, , stWhere

Exit_Command70_Click:
Exit Sub

Err_Command70_Click:
MsgBox Err.Description
Resume Exit_Command70_Click

End Sub

 

[Klatuu]

As a separate Line. If there is any filtering in the Row Source, it is a
Where Condition in the Row Source property. The code I posted actually makes
the subform an unbound form. You can create the row source at run time with:
Me.MySubFormControlName.Form.RowSource = "SELECT * FROM SomeTable WHERE
[FooBar] = 'Fried';"
--
Dave Hargis, Microsoft Access MVP

Dave,
Does your code get entered as a seperate line or at the stWhere section?

Me.MySubFormControlName.Form.RowSource = vbNullString

Be aware that you use the name of the subform control, not the form that is
the source object of the subform control.
--
Dave Hargis, Microsoft Access MVP

I would like to eliminate the recordsource for a subreport from a form's
command button. However, upon running my code errors out stating: "The
report name 'rptMABR_blank' you entered is misspelled or refers to a report
that isn't open or doesn't exist". Any ideas how to get a subreport's record
source to = "" ?

Private Sub Command70_Click()
On Error GoTo Err_Command70_Click

Dim stDocName As String
Dim stWhere As String

stDocName = "rptMABR_Blank"
stWhere =
[Reports]![rptMABR_Blank]![rptMABR_pg5_blank].[Report]![sfrmMABR_PlanQ1].RecordSource = ""
DoCmd.OpenReport stDocName, acPreview, , stWhere

Exit_Command70_Click:
Exit Sub

Err_Command70_Click:
MsgBox Err.Description
Resume Exit_Command70_Click

End Sub