Adding a title to a report - but not in the normal way!

[Datagopherdan]

Let's make sure that you have everything. First create a label in your report's "Report Header" section and name it. "lblCaption". Next, in your report's "On Open" event, place the below.

Dim strHeader As String
strHeader = InputBox("Enter your title in the box below")
Me.lblCaption.Caption = Nz(strHeader)

That should do it.

Still says Object Required

[Garito100]

I'm still getting Object Required. What does the Nz refer to? Do I have to change that?

[Datagopherdan]

NZ if non-zero. It's a safe-guard to cover if the user doesen't make an entry in the inputbox. Could you just upload your database?

[Garito100]

I don't think I can upload it, it's massive and has lots of sensitive data in it. Here is the script I am using:

Private Sub Report_Open(Cancel As Integer)
Dim strHeader As String
strHeader = InputBox("Enter your title in the box below")
SignSheet.lblCaption.Caption = Nz(strHeader)
End Sub

lblCaption is the name of the label.

[Garito100]

Eureka!

SignSheet is the name of the report. I got rid of that from the script and just started with lblCaption ....... and it has worked!

Thanks to everyone who helped!

[Datagopherdan]

Glad you got it working.

Eureka!

SignSheet is the name of the report. I got rid of that from the script and just started with lblCaption ....... and it has worked!

Thanks to everyone who helped!