Clearing Textboxes

[edp1959]

Help - This should be simple

I'm using this code to clear unbound text boxes on my form. I keep getting an error message "Object doesn't support this property or method". I'm using this same code on other forms and it works fine. What am I missing? I'm using Access 2000.

Dim ctl As Control

Set dbs = CurrentDB


For Each ctl In Me.Controls
If ctl.Tag = "A" Then
ctl = Null
End If
Next

 

[Mile-O]

Don' forget that everything you put on the form is a control...even labels.

Dim ctl As Control

For Each ctl In Me
    If ctl.ControlType = acTextbox Then
        If ctl.Tag = "A" Then ctl = Null
    End If
Next

Also, this line (Set dbs = CurrentDB) would have caused an error if you were using a default A2000 database with its DAO reference unchecked).

 

[edp1959]

Thanks, this worked fine. I wonder why my previous code worked on other forms in the same database.