Kod:
Private Sub Secim_AfterUpdate()
Select Case Secim
Case Is = 1
Me.List16.RowSource = "SELECT * FROM Table1"
Case Is = 2
Me.List16.RowSource = "SELECT * FROM Table1 WHERE (Table1.Sayi)Between [Forms]![Form1]![ilk] and [Forms]![Form1]![son]"
Case Is = 3
Me.List16.RowSource = "SELECT * FROM Table1 WHERE (Table1.Sayi)>[Forms]![Form1]![ilk]"
End Select
Me.List16.Requery
End Sub