Clear Search Form

[armyofdux]

I searched this topic and got many replies but none seem to be working for me. I have an unbound search form that takes user input and displays data based on the input. The search functions work as advertised but I need a button to clear the fields. I have tried the on_click methods with me.FieldName and it returns the error message "If 'me; is a new macro or macro group, make sure you have typed its names correctly.

[June7]

Where did you put the code? Is this VBA?

Post code for analysis.

[armyofdux]

Private Sub FY_Click()
Me.FY = vbNullString
End Sub


End Sub

Private Sub SCHEDULE_ID_Click()
Me.SCHEDULE_ID = vbNullString
End Sub

[June7]

Where is this code placed? Behind what form? The same form that has those controls?

I don't use empty strings, I set controls to Null.

[armyofdux]

Yeah I found where I messed up. I put the code in the wrong spot. Got too quick. I also found copy/paste tends to screw things up as opposed to typing stuff out. It's not the ideal design, as I wanted a single "clear form" button at the bottom.

[June7]

At bottom of what? One button should certainly be able to run code to clear each control.

[armyofdux]

At the bottom of the search form. As my Access skills grow June I am getting better,,,but VBA and I don't get along yet. Right now it's clearing each field properly as you click on it.

[rpeare]

dim ctl as control

for each ctl in me.controls
    ctl = null
next ctl

Is probably the simplest way

if your controls contain a mix of data types you will have to modify this (for instance yes/no checkboxes)

If you need to identify a subset of your controls you can use the TAG property and all your 'search' fields put SF in the TAG property then do something like

dim ctl as control
for each ctl in me.controls
    if instr(ctl.tag, "SF") > 0 then
        ctl = null
    endif
next ctl

[Missinglinq]

...I also found copy/paste tends to screw things up as opposed to typing stuff out...

It does, indeed! That's how you get things like this

Private Sub FY_Click()
 Me.FY = vbNullString
End Sub

End Sub

where you've pasted one Sub into the middle of another, existing Sub! If you'd posted more of you code, here, you'd undoubtedly have something like this:

Private Sub SomeOtherControlName_Click()

 Private Sub FY_Click()
  Me.FY = vbNullString
 End Sub

End Sub

which can give you some really strange Error Messages that can make it difficult to debug your code! I'm not saying don't ever copy and paste, but writing code is a very precise endeavor, and consequently you have to be very precise in inserting code into code!

Linq ;0)>

[ryanmce92]

I searched this topic and got many replies but none seem to be working for me. I have an unbound search form that takes user input and displays data based on the input. The search functions work as advertised but I need a button to clear the fields. I have tried the on_click methods with me.FieldName and it returns the error message "If 'me; is a new macro or macro group, make sure you have typed its names correctly.

I had the same issue trying to create a clear form button, originally I was trying to use the Undo button that Access already create, but hopefully the below will work:


It should be simple enough to clear the form with the use of a single button, go to form design, create the button from the design toolbar, click exit.

Click on view code in the menu bar

Enter/copy and paste the following code


Private Sub Command52_Click()
[txtName].Value = ""
End Sub

(Command 52 is the name of the button and should be changed to the name of your button)
(txtName is the name of the text box/combo box in the form)
(To add more just hit enter after the second speech mark and go with the same format [cboText].Value = ""

Hopefully this helps.