Can anyone remind me how to stop an event from firing? I mean once the event
fires the first line of code is "Stop events from firing" and then I can
turn it back on at the end of that event???

Normally, you can't stop the event from firing.  I say "normally" because
there are controls/components with a property (for example) that can be set
to ignore certain events (for example, not raise them).  However, this would
have to be functionality specifically written into the component.

Other than that possibility, the only thing you can do is have a
module-level variable to which you assign a value and then check for that
value in the event procedure itself, and if, appropriate, exit the event
procedure.

If you just want to prevent re-entry in the current proceedure you can
use a static var as a flag.

Private Sub SomeSub()
    Static bBusy As Boolean

    If Not bBusy Then
        bBusy = True

        '...do whatever ...

        bBusy = False
    End If
End Sub


-Tom
MVP - Visual Basic
(please post replies to the newsgroup)

I'm not sure what you mean. Do you by any chance mean "how can I stop
further button click events from firing while my code processes the last
click", ort is it something more general that that?

Mike

Mike your right, I want the Event to complete before trying to fire the
event again.

If it is a Command Button Click event then just place the line
"Command1.Enabled = False" at the start of the event code and the lines
"Doevents" followed by "Command1.Enabled = False" at the end of the event
code (other objects can be dealt with in a similar way). If instead it is a
general thing (and the event code is in a Form, for example) then maintain a
Form level Boolean (Working, for example) and put something like the
following at the start of the event code:

If Working = True Then
  Exit Sub
Else
  Working = True
End If
'
your event code here
'
DoEvents
Working = False
End Sub

If that doesn't help you then I've misunderstood your problem, so post
again.

Mike

Here is how I do it with a Timer:

Dim bTimer1Busy As Boolean

Private Sub Timer1_Timer()

    If bTimer1Busy Then
        Exit Sub
    End If
    bTimer1Busy = True

    ' Your code here

    bTimer1Busy = False
End Sub


Show quoteHide quote

3D Array from String
Problem implementing an interface
Add a document to my project?
is there a "process affinity" switch
Rich Text Box
Get a string from a pointer?
Print Function
File Security Descriptor
OT: Post Programming Depression
Downside to using FileSystemObject?