MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Declare design de consulta SQL

    maguim
    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 446
    Registrado : 15/05/2013

    [Resolvido]Declare design de consulta SQL Empty [Resolvido]Declare design de consulta SQL

    Mensagem  maguim em Qua 05 Jun 2019, 12:37

    amigos,


    duvida? queria saber se é possivel criar variaveis dentro do design de consulta com SQL tipo declare e fazer um loop...



    ouvi dizer que nao da é vdd mesmo?



    tenho um tabela com varios campos com datas... preciso fazer um datediff pra poder enviar e-mail automaticos ao clientes.

    entao terei que fazer um consulta de 3 campos

    1 nome das colunas repetidas quantas vezes for necessaria para saber qual tipo de vigencia é
    2 todas as datas
    3 o datediff


    ouvi dizer que só com union all vdd?


    abraços


    Última edição por maguim em Dom 09 Jun 2019, 13:40, editado 1 vez(es)


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2312
    Registrado : 22/11/2016

    [Resolvido]Declare design de consulta SQL Empty Re: [Resolvido]Declare design de consulta SQL

    Mensagem  DamascenoJr. em Sex 07 Jun 2019, 11:13

    Realmente não é possível fazer loops e declarar variáveis nas consultas, mas você pode usá-las através das TempVars e resultado de funções públicas nas linhas de critério.

    Outra ideia seria unir os campos necessários lado a lado e filtrar.

    Código:
    Select Campo1 & '|' & Campo2 As CamposUnidos
    From tlTabelaTal
    Where Campo1 & '|' & Campo2 like "*UmFiltroOuCampoFiltroOuTempVarsOuFuncaoPublica*";


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    maguim
    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 446
    Registrado : 15/05/2013

    [Resolvido]Declare design de consulta SQL Empty Re: [Resolvido]Declare design de consulta SQL

    Mensagem  maguim em Sex 07 Jun 2019, 14:43

    vlw ivan TMJ cheers


    Eu ja sabia que tinha que fazer isso, porem queria um empurrãozinho kkkk

    não tem jeito as vezes na programação agente tem que conversar com alguem pra mente esparecer kkkkk Laughing Laughing


    segue como ficou a query:

    Código:
    SELECT DISTINCT DOCUMENTOS.ID_GERAL,
    DOCUMENTOS.DT_VS_VIGENCIA AS DATA_DOCUMENTOS,
    DateDiff("M",Now(),[DOCUMENTOS.DT_VS_VIGENCIA]) AS DIAS,
    DOCUMENTOS.Alvara_Vigilancia_Sanitaria AS TESTE,
    IIf([Alvara_Vigilancia_Sanitaria]=-1,"ALVARA DE VIGILANCIA SANITARIA") AS TXT_DOCUMENTOS
    FROM DOCUMENTOS
    WHERE DOCUMENTOS.DT_VS_VIGENCIA IS NOT NULL AND DOCUMENTOS.Alvara_Vigilancia_Sanitaria = -1

    UNION ALL
    Select DISTINCT DOCUMENTOS.ID_GERAL,
    DOCUMENTOS.DT_FUNC_VIGENCIA  As DATA_DOCUMENTOS,
    DateDiff("M",Now(),[DOCUMENTOS.DT_FUNC_VIGENCIA]) AS DIAS,
    DOCUMENTOS.Alvara_funcionamento  AS TESTE,
    IIf([Alvara_funcionamento]=-1,"ALVARA DE FUNCIONAMENTO") AS TXT_DOCUMENTOS
    From DOCUMENTOS
    WHERE DOCUMENTOS.DT_FUNC_VIGENCIA IS NOT NULL AND DOCUMENTOS.Alvara_funcionamento =-1

    UNION ALL
    Select DISTINCT DOCUMENTOS.ID_GERAL,
    DOCUMENTOS.DT_REG_TECMED_VEGENCIA  As DATA_DOCUMENTOS,
    DateDiff("M",Now(),[DOCUMENTOS.DT_REG_TECMED_VEGENCIA]) AS DIAS,
    DOCUMENTOS.Certificado_Registro_Tecnico_Medico AS TESTE,
    IIf([Certificado_Registro_Tecnico_Medico]=-1,"Certificado_Registro_Tecnico_Medico") AS TXT_DOCUMENTOS
    From DOCUMENTOS
    WHERE DOCUMENTOS.DT_REG_TECMED_VEGENCIA IS NOT NULL AND DOCUMENTOS.Certificado_Registro_Tecnico_Medico -1

    UNION ALL
    Select DISTINCT DOCUMENTOS.ID_GERAL,
    DOCUMENTOS.DT_REG_TECENF_VIGENCIA  As DATA_DOCUMENTOS,
    DateDiff("M",Now(),[DOCUMENTOS.DT_REG_TECENF_VIGENCIA]) AS DIAS,
    DOCUMENTOS.Certificado_Registro_Tecnico_Enfermeira AS TESTE,
    IIf([Certificado_Registro_Tecnico_Enfermeira]=-1,"Certificado_Registro_Tecnico_Enfermeira") AS TXT_DOCUMENTOS
    From DOCUMENTOS
    WHERE DOCUMENTOS.DT_REG_TECENF_VIGENCIA IS NOT NULL AND DOCUMENTOS.Certificado_Registro_Tecnico_Enfermeira = -1

    UNION ALL
    Select DISTINCT DOCUMENTOS.ID_GERAL,
    DOCUMENTOS.DT_CONTR_SOC_VIGENCIA  As DATA_DOCUMENTOS,
    DateDiff("M",Now(),[DOCUMENTOS.DT_CONTR_SOC_VIGENCIA]) AS DIAS,
    DOCUMENTOS.Contrato_Social AS TESTE,
    IIf([Contrato_Social]=-1,"Certificado_Registro_Tecnico_Enfermeira") AS TXT_DOCUMENTOS
    From DOCUMENTOS
    WHERE DOCUMENTOS.DT_CONTR_SOC_VIGENCIA IS NOT NULL AND DOCUMENTOS.Contrato_Social = -1

    ABRAÇOS


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2312
    Registrado : 22/11/2016

    [Resolvido]Declare design de consulta SQL Empty Re: [Resolvido]Declare design de consulta SQL

    Mensagem  DamascenoJr. em Sab 08 Jun 2019, 02:45

    Obrigado pelo retorno. O fórum agradece. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: Seg 26 Out 2020, 23:49