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
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
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