Splash

[Tim]

Hello All,

I have a workbook that runs a query refresh when opened.
After the refresh I display a msgbox letting the user
know the data was refreshed. If the user is off-site, a
msgbox tells them the data has not been refreshed.

While the data is being updated I display a splash screen
as a line of code in the workbook_open procedure (the
same procedure that refreshes the data). My problem is
that the splash screen does not display it's contents
(just a blank form) until my message box appears. Then I
see the contents and the code kills the form.

Why does it only show a partial form and can I fix it?

Thanks

 

[Tom Ogilvy]

Userform1.Show
doevents
' refresh the data

 

[Tom Ogilvy]

left out the vbmodeless

useform1.show vbModeless
doevents
' code to refresh

assumes xl2000 or later.

 

[Nigel]

Put.......

DoEvents

After you splash screen show commands and before the data refresh begins

Cheers
Nigel

 

[Tim]

Thanks

-----Original Message-----
left out the vbmodeless

useform1.show vbModeless
doevents
' code to refresh

assumes xl2000 or later.

--
Regards,
Tom Ogilvy




.