Auto-running through Combo Box

[Banaticus]

When a Combo Box is first opened, the vertical slider doesn't quite sync up with the contents. The slider will move up and down, but the contents of the combo box won't automatically slide up and down with that slider until the slider has first gone to the bottom of the list.

I've sat here for 10 minutes and waited -- no difference. Unless I physically slide the slider all the way to the bottom of the list, the contents of the combo box will not slide with that slider.

How can I make the contents sync up with the slider right away so that I can more easily find things 1/3 of the way down without sliding the bar all the way to the bottom to sync it up then back up to slowly slide the slider until I see it?

 

[ansentry]

How many records are linked to your combo?

 

[Banaticus]

577. But it does the same in combo boxes with only 73 records.

 

[ansentry]

Can you post a copy of the db with just the combo box (and its source)

 

[RuralGuy]

I'm thinking it happens anytime the ListCount is greater than the ListRows. I think you can mask this behavior by forcing the ComboBox to load all of the RecordSet in the Enter event with something like:

Private Sub cboName_Enter()
Dim Junk As Variant
Junk = Me.cboName.ItemData(Me.cboName.ListCount)
End Sub

Using your cboName of course.

 

[Banaticus]

Thanks. I'm now using:
Private Sub SetSlider()
Dim junkVar As String
With Me.Names_Combo_Box
junkVar = .ItemData(.ListCount)
End With
End Sub

 

[RuralGuy]

Cool! Glad it worked! I didn't have a large enough data set to test it properly.