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]Consulta União dando Erro SQL

    Compartilhe
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    Registrado : 09/11/2012

    [Resolvido]Consulta União dando Erro SQL

    Mensagem  =>Nois em Qui Maio 17, 2018 7:21 am

    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") & "#"


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

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

    Mensagem  CassioFabre em Qui Maio 17, 2018 7:44 am

    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!
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    Registrado : 09/11/2012

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

    Mensagem  =>Nois em Qui Maio 17, 2018 9:06 am

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


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

      Data/hora atual: Ter Set 25, 2018 7:28 pm