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

    Erro na consulta quando se seleciona mais de um item na lista

    blsnogueira
    blsnogueira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 16/09/2012

    Erro na consulta quando se seleciona mais de um item na lista Empty Erro na consulta quando se seleciona mais de um item na lista

    Mensagem  blsnogueira 22/11/2015, 21:59

    Boa noite,
    Venho mais uma vez, recorrer a ajuda de vocês.

    Tenho um relatório com base em uma consulta de referência cruzada.
    Esta consulta tem como parâmetro a lista de colaboradores, o mês e o ano de um formulário.

    Se eu seleciono um item da lista de colaboradores ela funciona perfeitamente...
    O problema ocorre quando eu preciso selecionar mais de um item na lista de colaboradores, que não reconhece como válido e retorna com erro.

    É possível fazer este tipo de consulta?

    coloquei o BD no link abaixo para facilitar a compreensão.

    https://drive.google.com/file/d/0B-ucHSo98SDISDFtN3lFN2VKMGc/view?usp=sharing

    Desde já agradeço a ajuda de todos!
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    Erro na consulta quando se seleciona mais de um item na lista Empty Re: Erro na consulta quando se seleciona mais de um item na lista

    Mensagem  Cláudio Más 29/11/2015, 17:20

    Olá,

    Se ainda procura uma solução, acho que isso funciona:

    1- crie uma consulta com o nome de "consColaboradores", pode ter apenas Código e Tradutor;
    2- substitua a tabela "Colaboradores" por esta consulta em "ProdutividadeInternaAnalitico";
    3- retire o filtro do colaborador em "ProdutividadeInternaAnalitico";
    4- retire o parâmetro "[forms]![frmReports_producao]![Filtro]" da lista de parâmetros em "ProdutividadeInternaAnalitico";
    5- no evento "Ao abrir" do relatório, exclua, ou deixe como comentário, a linha abaixo:
    qdf.Parameters("[forms]![frmReports_producao]![Filtro]") _
        = frm!Filtro
    6- substitua a macro inserida no evento "Ao clicar" do botão no formulário, pelo código abaixo:

    Código:
    If Not IsNull(Me!Filtro) Then
        Dim db As Database, qdf As QueryDef
        Set db = CurrentDb

        Set qdf = db.QueryDefs("consColaboradores")
        qdf.SQL = "SELECT Codigo, Tradutor FROM Colaboradores WHERE (Codigo In (" & Me!Filtro & "))"
        DoCmd.OpenReport "ProdutividadeInternaanalitico", acViewPreview
    Else
        MsgBox "Selecione um ou mais colaboradores"
    End If

      Data/hora atual: 2/5/2024, 11:13