Como utilizar o comando CASE dentro de um comando sql utilizando o banco Access

 

Neste codigo (desta forma esta ocorrendo um erro):

    Sql = "Select O.Codigo, Oc.Descricao, O.Data, O.Obs,"
    Sql = Sql & " O.Dias, O.Horas,"
    Sql = Sql & " (Case O.Acao"
    Sql = Sql & " When 0 Then '' "
    Sql = Sql & " When 1 Then 'Abonar'"
    Sql = Sql & " When 2 Then 'Não Abonar'"
    Sql = Sql & " When 3 Then 'Abonar DSR'"
    Sql = Sql & " When 4 Then 'Outros' END) As Acao_Type"
    Sql = Sql & " From (RH_Func_Ocorrencia O"
    Sql = Sql & " Left Join RH_Funcionario F On O.Funcionario = F.Codigo)"
    Sql = Sql & " Left Join RH_Func_Ocorr_TP Oc On O.Tipo = Oc.Codigo"
    Sql = Sql & " Where O.Funcionario=" & Val("0" & txtFuncionario)
    Sql = Sql & " Order By O.Data Desc, O.Codigo Asc"

 

Valeu...

no access não tem case, é o Iif ...

SELECT Faturas.Data, Faturas.Valor, Iif(Faturas.Tipo = "V", "TIPO V",Iif(Faturas.Tipo = "C", "TIPO C"))
FROM Faturas;

Tem q ser dentro da sql??
Vc pode usar fora por exemplo:

 

 Sql = "Select O.Codigo, Oc.Descricao, O.Data, O.Obs,"
 Sql = Sql & " O.Dias, O.Horas,"

 

'Recordset da tabela "RH_Func_Ocorrencia"

Select case rs!Acao

   case 0

      sql = sql & ''

   case 1

     sql = sql & "'Abonar'"

' E assim por diante

End Select

 

Não sei se é isso q vc quer...

 

tentei

 

t+