Reduce Filtering Frustration

Reduce Filtering Frustration

This code works wonders to reduce flicker and lessen your frustration. Place a timer on the form (tmr_Timer) and set the Interval to 1000. Set Enabled to False, then place this code in the txt_Filter_Change event:

 Private Sub txtFilter_Change()	Timer1.Enabled = False	Timer1.Enabled = TrueEnd Sub

In the Timer event, call this routine that refreshes your recordset:

 Private Sub Timer1_Timer()	Timer1.Enabled = False	Call MyUpdateRecordsetRoutineEnd Sub

The recordset will only be updated if you haven’t pressed a key for a full second. Each time you press a key, the timer is reset and the one-second countdown starts all over again.


Share the Post: