Slider problem with Access 2010

[justphilip2003]

I followedDataPigs Technology Access 2007 video for coding sliders: http://www.datapigtechnologies.com/flashfiles/AccessSlider.html
and followedthe instruction step by step using Active x Control:
MicrosoftSlider control, version 6.0, I created Myslider and a Text box MyText.
Following theinstructions, I created an OnChange EP for the slider
and an AfterUpdate for the text box. See below:

OptionCompare Database
Private SubMySlider_Updated(Code As Integer)
Me.MyText.Value = Me.MySlider.Value
End Sub
Private SubMyText_AfterUpdate()
Me.MySlider.Value = Me.MyText.Value
End Sub

When testingunder my Access 2010 version, the slider appears to work
but theselected values do not appear in the text box nor the text box entries
change theslider position. Upon researching, Ifine that others have experienced


problems with sliders under Access 2010. Can anyone tell me if there isa fix for this problem? TIA Phil

[Missinglinq]

OptionCompare Database

Private SubMySlider_Updated(Code As Integer)
Me.MyText.Value = Me.MySlider.Value
End Sub

Private SubMyText_AfterUpdate()
Me.MySlider.Value = Me.MyText.Value
End Sub

Because of the included line

OptionCompare Database

I'm going to guess that you've actually copied & pasted your code directly from the Form's Code Module. If this is true, the problem is that you've apparently written your EPs free-hand, as it were, rather than letting Access generate the Sub headers. The further problem is that you have no space between Sub and the sub's name:

Private SubMyText_AfterUpdate()

should be

Private Sub MyText_AfterUpdate()

Same thing for the MySlider_Updated event. It should be

Private Sub MySlider_Updated(Code As Integer)

Linq ;0)>

[justphilip2003]

Thanks for the response. I do not know how the spaces were dropped after "Sub" but my code in Access 2010 is as you described it should be. For the Private Sub MySlider_Updated(Code As Integer) code, I first selectedProperty Sheet event OnEnter(), then clicked the 3 dots, went to event builder declarations drop down and selected Update and discarded the OnEnter(). The Private Sub MyText_AfterUpdate() was also generated via the property sheet. I really think there is a problem with Access 2010! Phil

[justphilip2003]

Access2010Slider.accdb
I would appreciate knowing if an Access 2010 User can make this Slider control Example work. TIA Phil