Creating a reset/clear button for a form

[Denielle]

Good Afternoon,

I have been trying to figure this out for days. I have a search form in Access 2007 that is unbound with unbound text boxes. The submit button works great, but I am trying to creat a clear button so that the user can clear out their information at once instead of each individual field. My form name is SearchingForm and the text boxes are clientname, operatingstate, product. I have tried the following codes:

 
Private Sub resetbtn_Click()
 
Me.Refresh
 
End Sub
 
 

also tried

 
Private Sub resetbtn_Click()
 
Me.clientname = ""
Me.operatingstate = ""
Me.product = ""
Me.Refresh
 
End Sub
 
 

Any help would be appreciated. I have not used Access or VB in years, so I am trying to relearn for work. Thanks

[Seth Schrock]

The refresh isn't needed. What happens with your second block of code? Do you get an error message or does it run and just not clear the fields?

[Denielle]

Thank you for the quick response. On either block of code that I try it does nothing, just sits there. I have also tried the = Null instead of the = "". Just to clarify on the code that I listed it was not in there at the same time, that is code that I tried on two different attempts at trying to get it to work

[Luk3r]

So, your textboxes are named: clientname, operatingstate, and product?

[Denielle]

Sorry for the delay. Yes the three text boxes are named the above. (no capitalization and no spaces).

[Luk3r]

Have you tried:

Me.buttonName.Value = ""

[Denielle]

Yes, I have tried that as well and had the same response - nothing happened.

[Seth Schrock]

This makes me think that your code isn't running. Try typing STOP right before your code and then click your Clear button and see if the code stops at that line.

[Denielle]

Ok I just tried that, but I am not sure what it is suppose to do. I get the same result. I have the code open when I am clicking on the clear button and I see nothing happening. Thanks so much for all of the help with this. Here is the code that I have put in

 
 
Private Sub resetbtn_Click()
 
Stop
 
Me.clientname = ""
Me.operatingstate = ""
Me.product = ""
 
End Sub
 
 

[Seth Schrock]

Ok, if the code was actually running, then the code would have stopped with your Stop line highlighted. Go to your Reset button's event list in the properties window. Click in the On Click event line and then click the ellipsis button. If it is attached to your code, it will take you to it. If not, then it will either take you to the code window and create a new event sub or it will ask you what you want to create. If the later, then choose the code option and click OK. That will then create a new event sub and then you can put your code in that one and delete your old one.

[Denielle]

I did that and it took me to my code.

[jimatqsi]

So it sounds like you wrote the code where it should have been, named as it should have been, but did not wire it up to the event. Now that you've done that, I suspect your click will work.

Jim

[Denielle]

You would think that would be the case, but it is still not working. I am not sure what I am doing incorrectly - but for some reason it is still not working.

[zmbd]

OP:2ndBlock:line7:Me.Refresh

change to

OP:2ndBlock:line7:Me.Repaint

post back results if any.

[Seth Schrock]

Try going to Access Options>Trust Center>Trust Center Settings>Message Bar. Make sure that the option to Show the Message Bar in all applications when active content... has been blocked is selected. Then close the database and open it again. See if you get a yellow bar telling you that some content could be harmful and was disabled. If it does, click enable content and then try your button.

[Denielle]

Seth - I checked and that option is selected in the trust center

Zmbd - Do you want me to just put Me.Repaint and leave out the specific textboxes?

[Seth Schrock]

Did you close and then reopen your database?

[Denielle]

Zmbd - I tried Me.Repaint with the textboxes listed and without and nothing. It is like it isn't even going to the code. Here are the three codes that I tried at 3 seperate times.

 
Private Sub resetbtn_Click()
 
Me.clientname = Null
Me.operatingstate = Null
Me.product = Null
Me.Repaint
 
End Sub
 
 

 
Private Sub resetbtn_Click()
 
Me.clientname = ""
Me.operatingstate = ""
Me.product = ""
Me.Repaint
 
End Sub
 

 
Private Sub resetbtn_Click()
 
Me.Repaint
 
End Sub
 

I am at a loss as to what I am doing incorrectly.

[Denielle]

Seth - that was the setting in the trust center when I went in there, I didn't have to change anything

[Seth Schrock]

I realize that. But you still need to close and reopen the database to then get the message to popup. Most people just hit the X when they see the message and don't even think of it. Once closed, it won't pop up until you close and reopen the database, hence why I'm recommending that you try it. The option being already set, as it is by default, doesn't means that closing and reopening the database is pointless.

[Denielle]

Oh Ok Sorry about that. Let me try it again then

[Denielle]

Wow that worked. Thanks sooooooo much for the help. So glad. Is there a way to keep it enabled for that code though? When I go back out of the database and come back in it doesn't work again unless I enable it.

[Seth Schrock]

You can add the containing folder to your trusted locations.

[Denielle]

Ok, how do I do that?

[Seth Schrock]

In the same trusted locations box, instead of selecting the Message Bar tab, choose Trusted Locations and then click Add New Location and then you can browse to the folder that contains your database and then click OK.

[Denielle]

Just tried it and my work does not allow me to do that. So I will have to see if I can have an IT person do it for me. Thanks again for your help

[Seth Schrock]

I'm glad that I work in IT and have admin privileges on my computer :)

[Denielle]

Yeah I wish that I did. :)

[MS Access Probz]

This was very helpful thank you!