Annoying flicker when opening report

M

mscertified

Reports are being opened in Preview mode.
There is code in the open event.
I use docmd.maximize at the end of the open event
Report partially opens in magnified font then flickers then opens to fill
the screen in a small font.
I tried turning echo off at the beginning of open then on after the
docmd.maximize - no difference. I tried putting the docmd.maximize at the top
of the open event - no difference. Any ideas?
Here is an example:

Private Sub Report_Open(Cancel As Integer)
On Error GoTo ER
Dim i As Long
DoCmd.Echo False
If Nz([Forms]![frmReportSelection].[Checklist], "") = "" Then
Me.txtChecklist.ControlSource = "='All Checklists'"
Else
Me.txtChecklist.ControlSource =
"=[Forms]![frmReportSelection]![Checklist].[Column](1)"
End If
' Calculate Included Audits for heading
i = GetIncluded() 'This runs a SQL command
Me.Included.ControlSource = "=" & Eval(i)
' Calculate Excluded Audits for heading
i = GetExcluded() 'This runs a SQL command
Me.Excluded.ControlSource = "=" & Eval(i)
DoCmd.Maximize
DoCmd.Echo True
Exit Sub
ER:
DoCmd.Echo True
MsgBox Err.Description, , "Report_Open"
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top