MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Erro Select Case no VBA

    Compartilhe

    Feltz
    Novato
    Novato

    Respeito às Regras 100%

    Localização : Anónimo
    Mensagens : 18
    Registrado : 15/12/2009

    [Resolvido]Erro Select Case no VBA

    Mensagem  Feltz em Qua 29 Out 2014, 17:42

    Olá pessoal,

    Preciso de uma ajuda...
    Tenho um código que executa um select... e dentro tenho um select case, porém ele gera o erro abaixo:

    Palavra-Chave WHEN não reconhecida


    Código:
    strSQL = "SELECT (SELECT CASE WHEN [DATA_INICIO_PONTO] < " & Format(VCompetenciaFinal, "MM/DD/YYYY") & " THEN " & Format(VCompetenciaFinal, "MM/DD/YYYY") & " ELSE [DATA_INICIO_PONTO] END) AS DTINICIO,[DATA_INICIO_PONTO],[DATA_FIM_PONTO],[TIPO_DIA_PONTO] FROM [TBL_PONTO] WHERE [ID_FUNC] =" & VMatricula & " AND [TIPO_DIA_PONTO] > 4 AND [DATA_INICIO_PONTO] <= #" & Format(VCompetenciaFinal, "MM/DD/YYYY") & "# AND (ISNULL([DATA_FIM_PONTO]) OR [DATA_FIM_PONTO] > #" & Format(VCompetenciaFinal, "MM/DD/YYYY") & "# OR ([DATA_FIM_PONTO] BETWEEN #" & Format(VCompetencia, "MM/DD/YYYY") & "# AND #" & Format(VCompetenciaFinal, "MM/DD/YYYY") & "#))"
        Set rst = New ADODB.Recordset
         With rst
           .Open strSQL, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly

    O erro é gerado nessa ultima linha...

    Alguém sabe a sintaxe para fazer um select case no VBA porque se executar esse comando no SQL server ele roda...

    Obrigado,
    Att,
    Feltz
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9337
    Registrado : 04/11/2009

    Re: [Resolvido]Erro Select Case no VBA

    Mensagem  JPaulo em Qua 29 Out 2014, 19:06

    Olá
    No SQL do access utiliza-se o IIF, dê uma pesquisada.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Feltz
    Novato
    Novato

    Respeito às Regras 100%

    Localização : Anónimo
    Mensagens : 18
    Registrado : 15/12/2009

    Re: [Resolvido]Erro Select Case no VBA

    Mensagem  Feltz em Qua 29 Out 2014, 19:20

    Grande JPaulo,

    Consegui amigo...
    Muito obrigado!

    Abraço,
    Feltz
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9337
    Registrado : 04/11/2009

    Re: [Resolvido]Erro Select Case no VBA

    Mensagem  JPaulo em Qua 29 Out 2014, 19:23

    Obrigado pelo retorno o fórum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Qui 27 Jul 2017, 09:37