Msgbox with timer 2

[Bullsandbears123]

I'm using the following code except I would like the msgbox to auto select the "no" button after 10 seconds. How can I do this. THANKS!!

Function checkfile()
Dim path
path = "R:\week\week_2003627_A.pdf"

If Dir(path) <> &quot;&quot; Then
Dim msg As String
Dim response As String
msg = &quot;File&quot; & path & &quot;already exists&quot; & vbCrLf & &quot;Do you want to overwrite?&quot;
response = MsgBox(msg, vbYesNo, &quot;FILE EXISTS!&quot

If response = vbYes Then
'do somthing
MsgBox (&quot;YES&quot

Else 'vbNO
'do somthine else
MsgBox (&quot;no&quot

End If
End If

End Function

 

[ssecca]

One option...
Create your own message box. What I do frequently is create a generic form that I can use as a message box type of form. Thsi gives you a lot more control over the what, where and how it is used including timer control if wanted.

Good Luck

 

[Bullsandbears123]

I really wanted to avoid making a whole new form. But I guess that's the answer. I thought there might have been a solution I did not know about. THANKS!

 

[younguser]

type message as caption in lable and set timer in form to make visible of lable true or false.
try!

 

[CajunCenturion]

Actually you can do it, but it does require some API work.
First, in the declarations section of the form, declare the following API and two form-level variables

Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Dim fStr_MsgBoxTitle    As String
Dim fBol_IsTimeout      As Boolean

Then on the form, drop in the following code to activate the message box and the Timer event handler to shut it down.

Function TimeoutMessageBox(rStr_Prompt As String, rStr_Title As String, rInt_Buttons As VbMsgBoxStyle, rInt_SecondsToWait As Integer) As VbMsgBoxResult
   fStr_MsgBoxTitle = rStr_Title & Chr(160)
   Me.TimerInterval = rInt_SecondsToWait * 1000
   fBol_IsTimeout = False
   TimeoutMessageBox = MessageBox(Me.hwnd, rStr_Prompt, fStr_MsgBoxTitle, rInt_Buttons)
   Me.TimerInterval = 0

' See if we terminated via the Time out

   If (fBol_IsTimeout = True) Then
      TimeoutMessageBox = 0 ' Return a Zero if Timeout
   End If
End Function

Private Sub Form_Timer()
   Me.TimerInterval = 0
   fBol_IsTimeout = True
   AppActivate fStr_MsgBoxTitle
   SendKeys Space(1)
End Sub

The following is a simple command button that is used to start the whole process.

Private Sub cmdMaintenance_Click()
   Dim lInt_MsgBoxResponse As Integer
   Me.TimerInterval = 10000
   lInt_MsgBoxResponse = TimeoutMessageBox("Message Box Prompt", "Message Box Title", vbYesNoCancel, 10)
   MsgBox lInt_MsgBoxResponse
End Sub

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein

 

[Bullsandbears123]

CajunCenturion,

Do you know the full name of the Timer Event tool. I looked for it under &quot;more controls&quot; but could not find it , I'm using Access XP. Thanks

 

[CajunCenturion]

Each Access form has a Timer automatically built in. To Activate the Timer, simply set the Interval property (0 - 65,535 milliseconds). To de-activate the timer, set the Interval property to 0. The necessary steps have already been included in the code provided.

It's different from VB where you would add Timer(s) to your forms as independant controls.

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein

 

[Bullsandbears123]

If I'm using access then do I even need to make a new form then?

 

[CajunCenturion]

You don't need a new form, simply add the provided into the existing form that will be active at the time you want the message box to appear.

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein

 

[Bullsandbears123]

WORKS GREAT!!! THANKS

 

[CajunCenturion]

You're quite welcome. Glad I could help.

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein