Perform Filter and Message box?

[Ryath]

Hi all,

Currently in my form i have a command button to perform a "Filter By Form" action writen below.

Private Sub PerformS_Click()
DoCmd.RunCommand acCmdFilterByForm
End Sub

There is a few other things that i would like it to do.... but i dont know if its possible... I would like it when the command is excecuted that a message box will appear asking "Would You Like to Perform a New Search?" and if Yes it will automatcially clear all grids and proceed to filter by form, and if no will proceed with the last filter?? is this possible??

Thx all

Will

 

[LittleSmudge]

You can get message boxes to make decisions for you because Message Boxes can have multiple buttons and return with which button was pressed.

So:-


Private Sub PerformS_Click()
If Msgbox ("Would You Like to Perform a New Search?", vbYesNo,"Decision time.") = vbYes Then
' Put the Yes I want to code here
DoCmd.RunCommand acCmdFilterByForm
' etc.. ..
Else
' Your option to do something else here.
End If
End Sub

Note the appearance of the brackets around the msgbox parameters. It is the presence of these brackets that gets Msgbox to return the value of the button pressed.



G LS

 

[Ryath]

Thx Smudge,

But i dont know the line for clearing grids ?:/ any ideas??

Will