dynamic caption

[shank]

Is it possible to dynamically fill-in the caption on a report?

What I want is "MyReport" & DatePart("yyyy",Now())

thanks

 

[Dale Fye]

Yes,

Private Sub Report_Open(Cancel as Integer)

me.Caption = "MyReport" & Datepart("yyyy", Now())

End Sub