Stop a list box from flickering

[NeilT123]

I have an unbound list box that I am using as a selection point for a data input form. On the left of the main form is the list box with a list of names and on the right is a subform which holds the relevant data.

When I select a name in the list box the subform updates but the list box then flickers as though it has been requeried. Is there any suggestions on how to stop the flickering.

The list box is unbound and the code behind it is

Private Sub QuickSearch_Click()
Application.Echo False
' clear any search data
Me.Search2 = ""
Me.Search3 = ""

' column numbering starts from 0
Me.Search2 = Me.QuickSearch.Column(1)

Me.frmIfFertAppln.Requery
Application.Echo True

End Sub

Thanks as always for any suggestions

 

[NeilT123]

A subtle change. The listbox no longer flickers but the sub form frmIfFertAppln now does

Private Sub QuickSearch_Click()

' column numbering starts from 0
Me.Search2 = Me.QuickSearch.Column(1)

DoEvents
Me.frmIfFertAppln.Requery
Me.frmIfFertAppln.Form.Recordset.MoveFirst

End Sub