Bom dia,
Oque poderia estar não-conforme?
Dim x As String
x = "SELECT TAB_HISTORICO.TREINAMENTO, Count(TAB_HISTORICO.COLABORADOR) AS ContarDeCOLABORADOR FROM TAB_HISTORICO GROUP BY TAB_HISTORICO.TREINAMENTO, TAB_HISTORICO.DATA_TREINAMENTO, IIf(IsNull([DATA_TREINAMENTO]) Or [DATA_TREINAMENTO]<=Date(),"Pendente","Realizado") HAVING (((IIf(IsNull([DATA_TREINAMENTO]) Or [DATA_TREINAMENTO]<=Date(),"Pendente","Realizado"))="Pendente"));"
Form.RecordSource = x
Erro: Era esperado: Fim da intrução
Oque poderia estar não-conforme?
Dim x As String
x = "SELECT TAB_HISTORICO.TREINAMENTO, Count(TAB_HISTORICO.COLABORADOR) AS ContarDeCOLABORADOR FROM TAB_HISTORICO GROUP BY TAB_HISTORICO.TREINAMENTO, TAB_HISTORICO.DATA_TREINAMENTO, IIf(IsNull([DATA_TREINAMENTO]) Or [DATA_TREINAMENTO]<=Date(),"Pendente","Realizado") HAVING (((IIf(IsNull([DATA_TREINAMENTO]) Or [DATA_TREINAMENTO]<=Date(),"Pendente","Realizado"))="Pendente"));"
Form.RecordSource = x
Erro: Era esperado: Fim da intrução