How can I make the text in a Message Box blink Red? 1

[MikeFL]

I have a module that runs an import of data that takes about 30.0 minutes to run. During that time there is a message box open on the users screen running a progress meter showing them the progress and the time they started. After this import has been completed this message box closes and another ones open stating that the process has been completed and that the user should repair and compact the data file to save HD space etc. I would like to make the text in the last message box blink REDif possible.

I’m running Access 8.0 (Office 97 Pro).

Last message box:

MsgBox "The Import of Data you have requested has been completed." & Chr(13) & Chr(13) & Chr(10) _
& "Please Repair & Compact this file before use to improve its speed and reduce" & Chr(13) & Chr(10) & "its physical size!", , CurrentUser() & "-" & "Completed: " & "" _
& Format$(Now(), "h:nn:ss AMPM, DDDD, MMM d, yyyy")

 

[mgolla]

The way I would do this is to create a custom message box.

To do this follow these steps:

1) Create a form with a label that displays the message you want and make it a popup.

2) Set the Timer Interval to 5000 (5 seconds)

3) Put this code on the OnTimer event:

If Me.labelname.ForeColor = 0 Then
    Me.labelname.ForeColor = 255
Else
    Me.labelname.ForeColor = 0
End If

4) Upon completion of import open this form.




HTH
Mike

 

[mgolla]

Oops,

Change the Timer Interval from 5000 to 500 for 5 seconds

HTH
Mike