reset the value of a spin button

[cubbybear3]

Q: How can I reset the value of a spin button with out setting off the
CHANGE event?
I am using Office Pro 2003 and have tried the following with out
success:

Application.EnableEvents = False
spnButton1.Value = VarX
Application.EnableEvents = True

 

[Bob Phillips]

Option Explicit

Private fNoChange As Boolean

'other code

Private Sub spnButton1_Change()
If Not fNoChange Then

'change code
End If
End Sub


'more code

fNoChange = True
spnButton1.Value = VarX
fNoChange = False

 

[cubbybear3]

Option Explicit

Private fNoChange As Boolean

'other code

Private Sub spnButton1_Change()
    If Not fNoChange Then

        'change code
    End If
End Sub

'more code

fNoChange = True
spnButton1.Value = VarX
fNoChange = False

--

HTH

Bob

Well, I still haven't figured out EXACTLY how it works, but it
does.
Mucho gracias Bob.

 

[Bob Phillips]

Basically, I am adding my own version of enableevents by using a boolean
variable to determine whether the code executes or not.

--

HTH

Bob

Option Explicit

Private fNoChange As Boolean

'other code

Private Sub spnButton1_Change()
If Not fNoChange Then

'change code
End If
End Sub

'more code

fNoChange = True
spnButton1.Value = VarX
fNoChange = False

--

HTH

Bob

Well, I still haven't figured out EXACTLY how it works, but it
does.
Mucho gracias Bob.