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]Select TOP

    avatar
    FelipeDias
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 05/06/2016

    [Resolvido]Select TOP Empty [Resolvido]Select TOP

    Mensagem  FelipeDias 20/12/2016, 20:08

    Boa tarde, estou realizando uma consulta em SQL via vba, para acrescentar os dados de acordo com o Select Top, entretanto o Access não está respeitando o predicado, assim solicito auxílio, muito obrigado.

    Código:
       

    Set rs = CurrentDb.OpenRecordset("TBL_TMP_PRSO_SERV_SEGCLI_AMOSTRA")
        rs.MoveFirst
        Do While Not rs.EOF
          CurrentDb.QueryDefs("QRY_ACRESCENTA_TBL_SORTEIO").SQL = "INSERT INTO TBL_SORTEIO ( COD_PRSO_SERV, SEGCLI, DATA_TRATAMENTO, AGENCIA, CONTA, DATA_TRATAMENTO_FINAL, AG_CC_HORA_DATA, FUNCIONAL_OPERADOR ) " & _
                "SELECT TOP " & rs.Fields("QT_AMOSTRA").Value & " TBL_ABERT_LIBERADAS.COD_PRSO_SERV, TBL_ABERT_LIBERADAS.SEGCLI, TBL_ABERT_LIBERADAS.DATA_TRATAMENTO, TBL_ABERT_LIBERADAS.AGENCIA, TBL_ABERT_LIBERADAS.CONTA, TBL_ABERT_LIBERADAS.DATA_TRATAMENTO_FINAL, TBL_ABERT_LIBERADAS.AG_CC_HORA_DATA, TBL_ABERT_LIBERADAS.FUNCIONAL_OPERADOR " & _
                "FROM (TBL_ABERT_LIBERADAS INNER JOIN TBL_SEGCLI_AMOSTRA ON TBL_ABERT_LIBERADAS.SEGCLI = TBL_SEGCLI_AMOSTRA.SEGCLI) INNER JOIN TBL_TMP_PRSO_SERV_SEGCLI_AMOSTRA ON (TBL_TMP_PRSO_SERV_SEGCLI_AMOSTRA.COD_PRSO_SERV = TBL_ABERT_LIBERADAS.COD_PRSO_SERV) AND (TBL_SEGCLI_AMOSTRA.DS_SEGCLI_AMOSTRA = TBL_TMP_PRSO_SERV_SEGCLI_AMOSTRA.DS_SEGCLI_AMOSTRA) " & _
                "WHERE (((TBL_ABERT_LIBERADAS.DATA_TRATAMENTO) Between [Forms]![FRM_SORTEIO]![TXT_DATA_DE] And [Forms]![FRM_SORTEIO]![TXT_DATA_ATE]) AND ((TBL_TMP_PRSO_SERV_SEGCLI_AMOSTRA.COD_PRSO_SERV)=" & rs.Fields("COD_PRSO_SERV").Value & ") AND ((TBL_TMP_PRSO_SERV_SEGCLI_AMOSTRA.DS_SEGCLI_AMOSTRA)='" & rs.Fields("DS_SEGCLI_AMOSTRA").Value & "')) " & _
                "ORDER BY Format([DATA_TRATAMENTO_FINAL],'ssmmhhddmmyyyy') ASC;"
                
            DoCmd.OpenQuery "QRY_ACRESCENTA_TBL_SORTEIO"
            
            DoEvents
            rs.MoveNext
        Loop

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Select TOP Empty Re: [Resolvido]Select TOP

    Mensagem  JPaulo 21/12/2016, 10:14

    Olá;

    Para mais facil entendimento, dê exemplos do predicado em que o Access não está respeitando.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Select TOP Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Select TOP Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Select TOP Folder_announce_new Instruções SQL como utilizar...
    avatar
    FelipeDias
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 05/06/2016

    [Resolvido]Select TOP Empty Re: [Resolvido]Select TOP

    Mensagem  FelipeDias 27/12/2016, 16:31

    Consegui achar o erro, obrigado.

    Conteúdo patrocinado


    [Resolvido]Select TOP Empty Re: [Resolvido]Select TOP

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 10:55