MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Usar o resultado de uma função como critério consulta

    Compartilhe

    cr4x
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 22/07/2015

    Usar o resultado de uma função como critério consulta

    Mensagem  cr4x em Qua 26 Out 2016, 18:42

    Boa tarde abigos.

    Na minha consulta, no campo PILOTO, utilizo uma função que retorna o valor de uma cbox (uma string):

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

    Após selecionar o valor (no método ao alterar do cbox), ele altera o conteudo do Sel_piloto() para o valor da cbox.

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

    Os valores contidos no cbox são:

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

    O em cada registro, o campo PILOTO da consulta tem um valor desses contidos na cbox. Gostaria que, ao selecionar 'OF', ele procurasse por 'OF ou UNIF', mas quando tento usar da forma que coloquei no vba na segunda figura, nada retorna. Alguem pode dar alguma luz?


    Att,
    cr4x

    clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 519
    Registrado : 29/08/2012

    Re: Usar o resultado de uma função como critério consulta

    Mensagem  clebergyn em Qui 03 Nov 2016, 01:14

    Veja no arquivo em anexo

    veja a consulta resultado
    Anexos
    Resultado.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 2 vez(es)

    philipp.moreira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 05/02/2016

    Re: Usar o resultado de uma função como critério consulta

    Mensagem  philipp.moreira em Qui 03 Nov 2016, 02:05

    1 - Eu recomendo retirar a condição da consulta origem (1ª imagem ).
    2 - Eliminar a função Sel_Piloto (A qual vocês não determinou qual tipo de dado seria retornado.
    Ex.:
    Function Sel_Piloto() As String
    End Function)


    3 - Através do evento de mudança da Combo conforme você está fazendo, manipular o filtro do formulário exatamente conforme deseja.

    Código:

    Private Sub cbo_setor_piloto_Change()

       If cbo_setor_piloto.Value = "OF" Then
          Me.Filter = "=Piloto IN ('OF','UNIF' )"
       Else
          Me.Filter = "=Piloto = '" & cbo_setor_piloto.Value & "'"
       End If

       Me.Requery
    End Sub

      Data/hora atual: Dom 04 Dez 2016, 14:14