if statment in case statement

  • Thread starter Thread starter iccsi
  • Start date Start date
I

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,
 
iccsi said:
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?
Click to expand...


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
 
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 -
Click to expand...

Thanks millions,
 
Back
Top