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

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

    Compartilhe
    avatar
    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 : 654
    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 3 vez(es)
    avatar
    philipp.moreira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 256
    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: Seg 20 Nov 2017, 15:30