All below is air code, off the top of my head. You need to substitute your object names.
OK. To make the correct object show when scrolling, we need to use the form_current event.
Code:
Private sub Form_Current()
Object1.visible = false
Object2.visible = false
Object3.visible = false
Select Case nz(FieldValue)
Case 23 to 31
Object1.visible = true
Case 32 to 35
Object2.visible = true
Case 36 to 40
Object3.visible = true
Case else
msgbox "Unknown FieldValue"
End Select
End Sub
When the user updates the FieldValue field
Code:
Private sub FieldValue_AfterUpdate
If Not isnull(FieldValue) then
Call Form_Current
End If
End Sub