How to test for OK from a message Box

[Guest]

Hi All,

I want to do the following:

If Message Box = OK then
do this
Else
do that

I have tried various coding but can't seem to make it work.

I have seen this somewhere within the forums but all the searches I have
tried don't reveal the answer.

Any help greatly appreciated.

--
Cheers
Chas

***************
* Spectrum is Green *
***************

 

[RobFMS]

If vbOK = MsgBox(Prompt:="Choose Option", Buttons:=vbOKCancel,
Title:="Sample") Then
' Ok was clicked
Else
' Cancel was clicked
End If


--
Rob Mastrostefano

FMS Professional Solutions Group
http://www.fmsinc.com/consulting

Software Tools for .NET, SQL Server, Visual Basic & Access
http://www.fmsinc.com

 

[Van T. Dinh]

Lazy coding:

If MsbBox(...) = vbOK Then

Else

End if

but I prefer

Dim intResponse as Integet

intResponse = MsgBox (...)

If intResponse = vbOK Then
....

 

[Guest]

Dear Rob and Van,

Many thanks for the prompt answers.

Guess I'll just have to pick and choose but it looks like the second is
better as it give me a variable to play with.

Thanks again.
--
Cheers
Chas

***************
* Spectrum is Green *
***************