Open message form before main form

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi

I have made a database to run off a memory stick.

However, I have found that 1 large form is slow to load.

I've tried starting a small form, as a message, and then this form opening
the larger one using:

'Small form on current

Private Sub Form_Current()

On Error GoTo E_Handle

Me.Repaint

DoCmd.OpenForm "frmLargeForm"


sExit:
On Error Resume Next

Exit Sub

E_Handle:

MsgBox Err.Description, vbOKOnly, Err.Number
Resume sExit

End Sub

However, this smaller message form only displays after the main form. I
thought the me.repaint would fix this.

Any ideas?

Thanks

Leonard
 
Current is definitely the wrong event: that occurs when the form moves to
its first record.

You could try the form's Open event, or you could open the small form first,
and have it open the large form.
 
In
Leonard said:
Hi

I have made a database to run off a memory stick.

However, I have found that 1 large form is slow to load.

I've tried starting a small form, as a message, and then this form
opening the larger one using:

'Small form on current

Private Sub Form_Current()

On Error GoTo E_Handle

Me.Repaint

DoCmd.OpenForm "frmLargeForm"


sExit:
On Error Resume Next

Exit Sub

E_Handle:

MsgBox Err.Description, vbOKOnly, Err.Number
Resume sExit

End Sub

However, this smaller message form only displays after the main form.
I thought the me.repaint would fix this.

Any ideas?

Thanks

Leonard
Click to expand...

You might want to use the message form's Open event, and have the code
like this:

Me.Visible = True
DoEvents
DoCmd.OpenForm "frmLargeForm"
 
Dirk Goldgar said:
In

You might want to use the message form's Open event, and have the code
like this:

Me.Visible = True
DoEvents
DoCmd.OpenForm "frmLargeForm"

--
Dirk Goldgar, MS Access MVP
www.datagnostics.com

(please reply to the newsgroup)
Click to expand...

Dirk, that fixed it!

Thanks so much.

Leonard
 
Back
Top