A reset Button for an Access Form

[abouddan]

Hi all

I have an Access2000 form that contain many TextBoxes and a button. That button inserts the data in tables.
How can reset all the TextBoxes automaticly without doing that one by one and manualy?

Many thanks

[NeoPa]

You could try :

Call Me.Undo()

...from within your code.

[nico5038]

NeoPa is right, but the safest way is to use:

If Me.Dirty then
Me.Undo
endif

This will make sure no error message is triggered when performing an Undo on a form not yet filled.

Nic;o)

[abouddan]

Thanks for your support.
I don't know why neither of the two sugestions works. I put a break point on
"If Me.Dirty ..." and when the code run, he stoped on it and when hovering on "Me.Dirty" the result was "False" eventhought that all TextBoxes are filled.
So I wrote this: "If Me.Dirty = False Then Me.Undo" . The code worked and the test was good but nothing happenned when running "Me.Undo" .
I did some researches and I found this code and it worked very well.

Dim ctlC As Control
For Each ctlC In Me.Controls
  If ctlC.ControlType = acTextBox Or ctlC.ControlType = acComboBox Then
    ctlC.Value = ""
  End If
Next ctlC

[nico5038]

The Me.Undo will only work for "bound" fields.
When you have unbound fields you'll need indeed such a loop to force the field(s) to be initialized.
It's however rare that you use unbound fields in Access as the bound fields are so easy to use :-)

Nic;o)

[NeoPa]

You're probably better off using Null rather than an empty string there. Null is typically used (and therefore more easily recognised) as an unset value.

Dim ctlC As Control
For Each ctlC In Me.Controls
  If ctlC.ControlType = acTextBox _
  Or ctlC.ControlType = acComboBox Then ctlC = Null
Next ctlC