Clearing certain boxes on form for next record using VB

[justinwright]

I have the following code:

Private Sub Command26_Click()
    DoCmd.GoToRecord , , acNewRec
    Dim c As Control
        ' Enumerate Controls collection.
        For Each c In Me.Controls
        If c.ControlType = acTextBox Then
        c.Value = Null
        End If
        Next c
    Me.txtCheckNumber.Visible = False
    Me.txtDateItem.Visible = False
    Me.Deduct_Add.Value = Null
End Sub

This code clears all of the fields, but I wanted to clear everything EXCEPT two fields: ACHGROUP and PDATE. The fields that I DO want cleared are: SITE, PAMOUNT, Deduct/Add, DESC, DESC1, DESC1, Initial.

Anyone have any ideas? Any help is appreciated!

[justinwright]

Pardon the double post, but I figured it out. After "Next c" I just redefined the default values that I wanted for the boxes, so that it cleared everything still, but readded the ones I wanted readded as default.

[pbaldy]

One common solution to this type of problem is using the Tag property of the controls. You might put "Clear" in the Tag property of the controls you want to clear, then your test would be:

If c.Tag = "Clear" Then

[justinwright]

Ah okay, thanks