Access VBA. Changing Report RecordSource 1

[rossmcl]

Dim strRecordSource As String

If Forms!fEOD!cmbPositionLevel = "-All-" Then
strRecordSource = "zzzz"
Reports("r&quot.RecordSource = strRecordSource
DoCmd.OpenReport "r", acPreview


Simple question - why doesnt this work - what is the correct code?

THanks a million

 

[KarMac21]

You have to open the report before you can set it's RecordSource. Enter This Code into the OnOpen Event procedure in report "r":

Private Sub r_Open(Cancel as Integer)
Select Case Forms("fEOD&quot![cmbPosisitonLevel]
Case "-All-"
me.recordsource = "zzzz"
Case ...
me.recordsource = ...
end select
end sub