Refresh Form

[84hickman]

I have a form with 4 listboxes and a command button. The command button runs a macro that runs a query using the list boxes as parameters. If no value is chosen in a list box, records with any value in that field are returned. This all works great.

I'd like the users choices to clear after the query runs or clear after clicking a "Clear Choices" command button on the search form.

This seems like it should be fairly simple... but I can't seem to get it working.




Thanks!

 

[Norie]

What sort of query is it?

If it's just a select query used to show data based on criteria from the form then you shouldn't need to use a macro to 'run' it.

 

[84hickman]

I don't need the macro to run the query; I know that.
This database is used my people who know NOTHING about Access. Everything must be dummy and fool proof. Thus the buttons and forms.

Everything works perfectly... I just do not want users to have to close and reopen the form to search by new parameters.

 

[Norie]

So what is it you actually want to do?

You could just reset the form by closing and opening it again.

If it was a bound form, eg based on a table or query, you could perhaps use Requery.

 

[84hickman]

I want the form to automatically clear the listboxes of choices either after displaying the query results or upon clicking a new command button.

The form is not based on a table or query.

 

[revans]

Set each combo to "" like this

MyCombo1.Value = ""
MyCombo2.Value = ""
MyCombo3.Value = ""
MyCombo4.Value = ""

hth

Rich

 

[84hickman]

That LOOKS like it works... It clears the highlights from the previous choices.

However, when I pick new choices and try to run the query through the command button again I get an error message.

"The expression is typed incorrectly, or it is too complex to be evaluated....."

 

[revans]

Perhaps mycombo.value=null

Otherwise I dunno.

Rich

 

[84hickman]

Perhaps mycombo.value=null

Otherwise I dunno.

Rich

This might have done the trick!
No more error message...

 

[Norie]

This will close the form and reopen it with all the controls set to their default values.

Private Sub Command6_Click()
Dim strFormName As String
 
    strFormName = Me.Name
    
    DoCmd.Close acForm, strFormName
    
    DoCmd.OpenForm strFormName
    
End Sub