Private Sub TRSumarIme_Change() Dim vSearchString As String vSearchString = TRSumarIme.Text txtSearchZaduzenjeSumar.Value = vSearchString Me.List0.Requery If (Me.txtSearchZaduzenjeSumar = "") Then Me.txtSearchZaduzenjeSumar = Null Me.List0.Requery End If End Sub