setting unbound text boxes back to empty in a search form

[shaunacol]

I want to know how to delete data from a bunch of unbound text boxes. I can only think to write code setting each one of them back to null but there are 15 of them so im looking for a better way. Below is more info if you need it.

I have a form with several unbound text boxes, these text boxes are referenced in a query so that whatever I enter into them will be picked up by the query. The query is then the source for a list box which displays the results. Finslly I have a search button which requeries the list box when pressed. All works well. However, when user wants to start a new search they have to manually take out any info from the unbound text boxes which they entered in previous search.

 

[shaunacol]

I have just got this working using info on this site

On Error Resume Next
Dim objControl As Control
For Each objControl In Me.Controls

With objControl
If .ControlType = acComboBox Or .ControlType = acTextBox Then
.Value = ""
End If
End With

Next objControl