Page Header Error

[scouser]

Hi guys. I have the following in my Page Header:

=Forms!frmOrderAnalysisServiceSpecific!FromDate & " to " & Forms!frmOrderAnalysisServiceSpecific!ToDate

This works fine on the first page. However page two displays an error:

#name

Am I missing something obvious?

I can move the code to the Report Header, but it would be nice to display on every page.

Help appreciated as always.
Regards,
Phil.

 

[Ukraine82]

Try this code in report page header....

Make two unbound text boxes....Control Source for each....

=Form![frmOrderAnalysisServiceSpecific]![From Date - 00/00/00]
=Form![frmOrderAnalysisServiceSpecific]![To Date - 00/00/00]

hth,
Michael

 

[scouser]

Nope?

Michael thanks for your reply. Unfortuantly your code produced an error. I have attached a jpeg of how pages one and two of the report are displayed. As you can see, the Page Header displays without error on Page 1 of the Report. However the Page Header on Page two displays an error?

I have no idea why it is doing this?

Help appreciated as always!
Cheers,
Phil.

 

[Ukraine82]

Phil,

Take a look at the attachment file.

hth,
Michael

 

[scouser]

Cheers

Thanks for that Michael. It works...................
However....I need to find a fix for my way as the user calls a form from the main menu. The data entered here dpicts what the report displays. I have implemented the calendar function, si I would prefer the user specifies the dates via the from and not when the report is called.
If I get it working I will post a sample.
One again thanks for your efforts.
Phil.

 

[scouser]

Is this an Access Quirk or ME?

I can not see for the life of me WHY Access will not display the following on EACH page header when the report has more than one page:

=Forms!frmLookUpInvoiceStatementDate!FromDate & " to " & Forms!frmLookUpInvoiceStatementDate!ToDate

Page One: For Period: 01/01/05 to 31/01/05
Page Two:#Name

Why oh why?

Phil.

 

[Rich]

Is the form open?

 

[scouser]

Form Open

Hi once again Rich. No the form closes once the user hits OK. Code on the on click event of the form:

On Error GoTo Err_RunReport

DoCmd.OpenReport "rprtOrderAnalysisByServiceType", acViewPreview
DoCmd.Close acForm, "frmOrderAnalysisByServiceType"
 
Exit_RunReport:
Exit Sub

Err_RunReport:
Select Case Err.Number
Case 2501 'There were no records, so close this report, run the next!
Resume Next
Case Else
MsgBox Err.Number & ": " & Err.Description, , "ERROR " & Err.Source
End Select
Resume Exit_RunReport

I trust you know why!!
Cheers,
Phil.

 

[scouser]

You would be right!

Rich if I leave the form open the it works (as I am sure you knew it would). However the dam form sits slam in the middle of the report!!

Any ideas on a fix?
Cheers,
Phil.

 

[Rich]

Toggle the forms .Visible property

 

[scouser]

Cheers Rich

Thanks Rich. I have done the following:

On the On-Click event of the cmd that calls the report I have added:

Me.Form.Visible = False

Then on th On_Close event of the report I have added:

DoCmd.Close acForm, "frmOrderAnalysisByServiceType", acSaveNo

That appears to do the trick. Would you say it was the best approach?
Cheers,
Phil.

 

[scouser]

Dam

That does not work when the report has no data!!
I get error:
2467: The expressin you entered refers to an object that is closed or doesn't exist.

Private Sub cmdOK_Click()
    On Error GoTo Err_RunReport

DoCmd.OpenReport "rprtOrderAnalysisByServiceType", acViewPreview
'DoCmd.Close acForm, "frmOrderAnalysisByServiceType", acSaveYes
Me.Form.Visible = False
 
Exit_RunReport:
Exit Sub

Err_RunReport:
Select Case Err.Number
Case 2501 'There were no records, so close this report, run the next!
Resume Next
Case Else
MsgBox Err.Number & ": " & Err.Description, , "ERROR " & Err.Source
End Select
Resume Exit_RunReport
  
End Sub

Don't know what else to say!!

 

[KenHigg]

Scouser - I would run the check before you ever attempt to run the report...

kh

 

[scouser]

Humour Me

Hi Ken. Can you humour me and re-arrange the posted code as you would do it?
many Thanks,
Phil.

 

[KenHigg]

Just looking over the code, Would this work?

Private Sub cmdOK_Click()
    On Error GoTo Err_RunReport

DoCmd.OpenReport "rprtOrderAnalysisByServiceType", acViewPreview
'DoCmd.Close acForm, "frmOrderAnalysisByServiceType", acSaveYes
Me.Form.Visible = False
 
Exit_RunReport:
Exit Sub

Err_RunReport:
Select Case Err.Number
Case 2501 'There were no records, so close this report, run the next!
Resume [B]Exit_RunReport[/B]
Case Else
MsgBox Err.Number & ": " & Err.Description, , "ERROR " & Err.Source
End Select
Resume Exit_RunReport
  
End Sub

 

[Rich]

Just set the Form back to Visible and let the user close it

 

[scouser]

Got There

I am happy at last.........
Cheers Rich.
Phil.