Message before form opens

[PaulJK]

I have an option on a main menu to open a form which holds all customer records. This takes about 15 seconds to load. The users are ok with this, however I would like something appear asking them to wait for the form to open.

Whilst searching, I have seen some options for a progress meter, However, this would have to be on the customer form. I really need something which operates once the option on the main menu is clicked. I did place a message on, but this had a 'ok' button to then proceed.

I guess what would be of use is something similar to a splashscreen which appears for say 10 secs.

If someone could let me know how I could do this, or any other ideas, I would be grateful.

 

[lloydmav]

There is a way of using the Access status bar at the bottom of the screen. THe bit that usually says "ready"

Dim varStatus As Variant
Dim strStatus As String

strStatus = "The database is seraching for the customer records"
varStatus = SysCmd(acSysCmdSetStatus, strStatus)

or you could try displaying a progress meter

strStatus = "Searching for Reocrds"
varStatus = SysCmd(acSysCmdInitMeter,strSatus,21)

'21 is the 100% value
'20 blocks in progress meter, but it starts with 1 filled
'the bar is updated whenever the acSysCmdUpdateMeter action is used

varStatus = SysCmd(acSysCmdUpdateMeter,5)
'5 is the amount of progress

'When you have finished you must clear the statusbar eg
varStatus = SysCmd(acSysCmdClearStatus)


'Don't remove the Display Status Bar in the start up options
'The update can be run from nested subroutines


Hope you can use this

As an easier solution then you can always set a timer on a message form so that it is hidden after 10 seconds!

 

[PaulJK]

Thanks lloydmav,

I have been away and have now picked up your reply.

Could you confirm where you are placing your code?

Thank you.

Paul

 

[lloydmav]

The option on your main menu is a comandbutton so attach the code to the on click event for this button or the form load event

Dim varStatus As Variant
Dim strStatus As String

strStatus = "The database is seraching for the customer records"
varStatus = SysCmd(acSysCmdSetStatus, strStatus)

The question is how to do we know when the records have all loaded to clear the status message

varStatus = SysCmd(acSysCmdClearStatus)

On the same click event you could try putting the above clear statement after the code which gets the records from your table. However you may find that the message will be cleared before your records are loaded. This shouldn't happen but if it does then you'll need to put the statement somewhere else.

Let me know if it works!

Lloyd