MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Consulta União dando Erro SQL

    =>Nois
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 980
    Registrado : 09/11/2012
    • Mensagem nº1

    [Resolvido]Consulta União dando Erro SQL Empty [Resolvido]Consulta União dando Erro SQL

    Mensagem  =>Nois 17/5/2018, 14:21

    Bom dia a Todos!

    estou com problema para fazer a união de duas tabelas, tenho uma função que exporta a consulta abaixo para um excel no entanto os dados que vem a partir da união não funciona (Relacionamento), eu declarei certo?

    Código:
    sSql = "SELECT"
    sSql = sSql & " tbl_IPDP_BUY.B_id AS ID_SEQ"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Status AS A_STATUS"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Registrado AS DATA_REF"
    sSql = sSql & " ,tbl_IPDP_BUY.B_RMD AS A_RMD"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Codigo_ipdp AS COD_IPDP"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Desenho_ipdp AS A_DESENHO"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Descricao_ipdp AS A_DESCRICAO"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Fornec_ipdp AS FORNECEDOR"
    sSql = sSql & " ,tbl_IPDP_BUY.B_EnteEmbalador AS EMBALADOR"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Cod_Emb_Prim_AUD AS COD_PRIM"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Prim_Tipo AS TIPO_PRIM"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Prim_C AS C_PRIM"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Prim_L AS L_PRIM"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Prim_A AS A_PRIM"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Prim_QE AS QE_PRIM,"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Cod_Emb_Sec_AUD AS COD_SEC"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Sec_Tipo AS TIPO_SEC"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Sec_C AS C_SEC"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Sec_L AS L_SEC"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Sec_A AS A_SEC"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Sec_QE AS QE_SEC"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Cant AS CANTONEIRA"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Strech AS STRECH"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Cintamento AS CINTAMENTO"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Log_user AS USER_ATUAL"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Baixa AS BAIXA_TOP"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_Cod_Emb AS COD_PRIM_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_Tipo AS TIPO_PRIM_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_C AS C_PRIM_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_L AS L_PRIM_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_A AS A_PRIM_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_QE AS QE_PRIM_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_Cod_Emb1 AS COD_PRIM_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_Tipo1 AS TIPO_PRIM_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_C1 AS C_PRIM_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_L1 AS L_PRIM_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_A1 AS A_PRIM_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_QE1 AS QE_PRIM_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_Cod_Emb AS COD_SEC_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_Tipo AS TIPO_SEC_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_C AS C_SEC_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_L AS L_SEC_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_A AS A_SEC_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_QE AS QE_SEC_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_Cod_Emb1 AS COD_SEC_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_Tipo1 AS TIPO_SEC_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_C1 AS C_SEC_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_L1 AS L_SEC_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_A1 AS A_SEC_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_QE1 AS QE_SEC_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Cant AS CANTONEIRA_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Cant1 AS CANTONEIRA_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Strech AS STRECH_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Strech1 AS STRECH_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Cintamento AS CINTAMENTO_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Cintamento1 AS CINTAMENTO_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Log_user AS USER_BAIXA"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.Observacao AS OBS_AUD"
    sSql = sSql & " ,Format([B_Registrado],'mm') & '.' & Format([B_Registrado],'mmm') AS MES_REF"
    sSql = sSql & " ,Format([B_Registrado], 'yyyy') As ANO_REF"
    sSql = sSql & " FROM tbl_IPDP_BUY " & _
    "LEFT JOIN tbl_IPDP_BUY_Sub ON tbl_IPDP_BUY.B_id = tbl_IPDP_BUY_Sub.S_id" & _
    " WHERE " & _
    " B_Registrado Between #" & Format(Forms!instrucao_trab_princ!dt9, "mm/dd/yyyy") & "# And #" & Format(Forms!instrucao_trab_princ!dt10, "mm/dd/yyyy") & "#"


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    • Ir para o topo
    CassioFabre
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013
    • Mensagem nº2

    [Resolvido]Consulta União dando Erro SQL Empty Re: [Resolvido]Consulta União dando Erro SQL

    Mensagem  CassioFabre 17/5/2018, 14:44

    Bom dia,

    Tente o seguinte:

    sSql = "SELECT"
    sSql = sSql & " tbl_IPDP_BUY.B_id AS ID_SEQ"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Status AS A_STATUS"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Registrado AS DATA_REF"
    sSql = sSql & " ,tbl_IPDP_BUY.B_RMD AS A_RMD"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Codigo_ipdp AS COD_IPDP"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Desenho_ipdp AS A_DESENHO"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Descricao_ipdp AS A_DESCRICAO"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Fornec_ipdp AS FORNECEDOR"
    sSql = sSql & " ,tbl_IPDP_BUY.B_EnteEmbalador AS EMBALADOR"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Cod_Emb_Prim_AUD AS COD_PRIM"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Prim_Tipo AS TIPO_PRIM"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Prim_C AS C_PRIM"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Prim_L AS L_PRIM"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Prim_A AS A_PRIM"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Prim_QE AS QE_PRIM,"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Cod_Emb_Sec_AUD AS COD_SEC"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Sec_Tipo AS TIPO_SEC"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Sec_C AS C_SEC"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Sec_L AS L_SEC"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Sec_A AS A_SEC"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Sec_QE AS QE_SEC"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Cant AS CANTONEIRA"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Strech AS STRECH"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Cintamento AS CINTAMENTO"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Log_user AS USER_ATUAL"
    sSql = sSql & " ,tbl_IPDP_BUY.B_Baixa AS BAIXA_TOP"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_Cod_Emb AS COD_PRIM_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_Tipo AS TIPO_PRIM_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_C AS C_PRIM_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_L AS L_PRIM_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_A AS A_PRIM_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_QE AS QE_PRIM_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_Cod_Emb1 AS COD_PRIM_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_Tipo1 AS TIPO_PRIM_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_C1 AS C_PRIM_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_L1 AS L_PRIM_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_A1 AS A_PRIM_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Prim_QE1 AS QE_PRIM_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_Cod_Emb AS COD_SEC_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_Tipo AS TIPO_SEC_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_C AS C_SEC_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_L AS L_SEC_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_A AS A_SEC_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_QE AS QE_SEC_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_Cod_Emb1 AS COD_SEC_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_Tipo1 AS TIPO_SEC_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_C1 AS C_SEC_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_L1 AS L_SEC_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_A1 AS A_SEC_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Sec_QE1 AS QE_SEC_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Cant AS CANTONEIRA_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Cant1 AS CANTONEIRA_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Strech AS STRECH_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Strech1 AS STRECH_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Cintamento AS CINTAMENTO_AUD"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Cintamento1 AS CINTAMENTO_AUD1"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.S_Log_user AS USER_BAIXA"
    sSql = sSql & " ,tbl_IPDP_BUY_Sub.Observacao AS OBS_AUD"
    sSql = sSql & " ,Format(]tbl_IPDP_BUY.B_Registrado],'mm') & '.' & Format(]tbl_IPDP_BUY.B_Registrado],'mmm') AS MES_REF"
    sSql = sSql & " ,Format(]tbl_IPDP_BUY.B_Registrado], 'yyyy') As ANO_REF"
    sSql = sSql & " FROM tbl_IPDP_BUY " & _
    "LEFT JOIN tbl_IPDP_BUY_Sub ON tbl_IPDP_BUY.B_id = tbl_IPDP_BUY_Sub.S_id" & _
    " WHERE " & _
    " tbl_IPDP_BUY.B_Registrado Between #" & Format(Forms!instrucao_trab_princ!dt9, "mm/dd/yyyy") & "# And #" & Format(Forms!instrucao_trab_princ!dt10, "mm/dd/yyyy") & "#"

    Abraço.


    .................................................................................
    Só não tem código pra morte!
    • Ir para o topo
    =>Nois
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 980
    Registrado : 09/11/2012
    • Mensagem nº3

    [Resolvido]Consulta União dando Erro SQL Empty Re: [Resolvido]Consulta União dando Erro SQL

    Mensagem  =>Nois 17/5/2018, 16:06

    cheers cheers cheers

    Muito obrigado cassio!!

    achei mais um erro tinha uma virgula nessa linha

    sSql = sSql & " ,tbl_IPDP_BUY.B_Prim_QE AS QE_PRIM,"


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº4

    [Resolvido]Consulta União dando Erro SQL Empty Re: [Resolvido]Consulta União dando Erro SQL

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 8/11/2024, 05:57