if statment in case statement

[iccsi]

I would like to do something depends on option button user click in
the case statment like following:


Select Case MyTool

Case 1: if fmeMode = 1 then
Set qdTool = CurrentDb.QueryDefs("SP1 ")
elseif fmeMode = 2 then
Set qdTool = CurrentDb.QueryDefs("SP2")
end if

but I got compiled error.

I just wonder can I have if statment in the case statement?
If not, are there any work around?

Your information is great appreciated,

 

[Dirk Goldgar]

I would like to do something depends on option button user click in
the case statment like following:


Select Case MyTool

Case 1: if fmeMode = 1 then
Set qdTool = CurrentDb.QueryDefs("SP1 ")
elseif fmeMode = 2 then
Set qdTool = CurrentDb.QueryDefs("SP2")
end if

but I got compiled error.

I just wonder can I have if statment in the case statement?
If not, are there any work around?

You can't use the single-line Case, because it's a multi-line If. Do this:

Select Case MyTool

Case 1
if fmeMode = 1 then
Set qdTool = CurrentDb.QueryDefs("SP1 ")
elseif fmeMode = 2 then
Set qdTool = CurrentDb.QueryDefs("SP2")
end if

Case 2
' ... etc.

End Select

 

[iccsi]

You can't use the single-line Case, because it's a multi-line If.  Do this:

    Select Case MyTool

        Case 1
            if fmeMode = 1 then
                Set qdTool = CurrentDb.QueryDefs("SP1 ")
            elseif fmeMode = 2 then
                Set qdTool = CurrentDb.QueryDefs("SP2")
            end if

        Case 2
            ' ... etc.

    End Select

--
Dirk Goldgar, MS Access MVPwww.datagnostics.com

(please reply to the newsgroup)- Hide quoted text -

- Show quoted text -

Thanks millions,