Maybe timer?

[deejay_totoro]

Hello all,

I have a startup form.

On that form I have a control called "Display".

What I would like to do is have 3 successive message appear in that control, at an interval of 2 seconds. Something like:

"Message 1"
wait 2 seconds
"Message 2"
Wait 2 seconds
"Message 3"
Wait 2 seconds

Close form
Open another form

Any ideas?

Thanks!

dj_T

 

[ChrisO]

You can give something like this a shot…

Option Explicit
Option Compare Text


Private Sub Form_Timer()
    Static lngMessageCount As Long
    
    Me.TimerInterval = 2000
    
    lngMessageCount = lngMessageCount + 1

    Select Case lngMessageCount
        Case 1
            Me.Display = "Message 1"
        
        Case 2
            Me.Display = "Message 2"
        
        Case 3
            Me.Display = "Message 3"
        
        Case Else
            DoCmd.Close acForm, Me.Name
    
    End Select

End Sub

The messages could also go in a Table if they need to be changed.

Regards,
Chris.

 

[ChrisO]

I didn’t like my last example (“crap code” ) so here is the Table driven version.

It’s actually quite simple… once the pixels are in place.

Regards,
Chris.

 

[raskew]

Same general idea, little different approach.

Bob