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]Gravar Registro de um Formulário em uma função para que a mesma seja usada como Filtro/critério de uma consulta

    Compartilhe
    avatar
    diegojacob
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 06/07/2011

    [Resolvido]Gravar Registro de um Formulário em uma função para que a mesma seja usada como Filtro/critério de uma consulta

    Mensagem  diegojacob em Seg 02 Jun 2014, 13:59

    Olá pessoal,
    preciso criar uma função pública que memorize o registro atual de um formulário, para que eu consiga usar como critério de uma consulta.
    Pois possuo 03 diferentes formulários e gostaria de usar uma única consulta para os três, e o critério seria o número do registro atual (Função Pública) do formulário aberto.

    Nos meus Formulários eu possuo um código de filtro e gostaria de incluir tal função para memorizar o registro atual.

    Private Sub ListSearch_Click()
    Dim FiltroSub As String

    FiltroSub = "Registro='" & Me.ListSearch & "'"

    Me.frm_EMC_Use_of_Material_View.Form.Filter = FiltroSub
    Me.frm_EMC_Use_of_Material_View.Form.FilterOn = True

    'Estava pensando em usar uma rotina, ao aplicar o filtro, ele memorizasse o Registro na Função Pública.

    End If

    Também pesquisei algo sobre o recordsetclone, mas não entendi o funcionamento.



    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Gravar Registro de um Formulário em uma função para que a mesma seja usada como Filtro/critério de uma consulta

    Mensagem  JPaulo em Ter 03 Jun 2014, 12:36

    Olá;

    Você não necessita de uma função, necessita apenas de uma Variável Publica, que tem de estar num modulo.

    Num modulo:

    Public strFiltro As String


    Já no seu formulario, envia o valor que pretender para a variável, que ficará guardada até encerramento do banco ou zerar a mesma com    strFiltro = "".

    Private Sub SeuBotão_Click()
       strFiltro = Me.SuaCaixaTexto.Value
    End Sub


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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    diegojacob
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 06/07/2011

    Re: [Resolvido]Gravar Registro de um Formulário em uma função para que a mesma seja usada como Filtro/critério de uma consulta

    Mensagem  diegojacob em Ter 03 Jun 2014, 14:09

    Mr. JPaulo,
    obrigado pela contribuição.
    Fiz conforme explicado e funcionou perfeitamente!

    Mas tive que criar uma Função e chamar a variável Pública que você mencionou...


    Public strFiltro As String

    Private Sub SeuBotão_Click()
    strFiltro = Me.SuaCaixaTexto.Value
    End Sub

    Function FiltroReg ()
    FiltroReg = strFiltro
    End Function

    Logo, na consulta eu incluí a função como critério
    FiltroReg()


    Há a possibilidade de incluir tal Variável Pública como Critério de uma consulta diretamente, sem precisar de uma função?

    Obrigado pela contribuição Mestre JPaulo.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Gravar Registro de um Formulário em uma função para que a mesma seja usada como Filtro/critério de uma consulta

    Mensagem  JPaulo em Ter 03 Jun 2014, 14:13

    Se é para usar em consulta tem de ser em função mesmo,  com a dita variavel publica.

    Exite a possibilidade de armazenar a variavel numa tabela e usar nas consultas esse criterio.


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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    diegojacob
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 06/07/2011

    Re: [Resolvido]Gravar Registro de um Formulário em uma função para que a mesma seja usada como Filtro/critério de uma consulta

    Mensagem  diegojacob em Ter 03 Jun 2014, 14:34

    A minha primeira alternativa era realmente fazer um INSERT em uma tabela, mas criar uma função teóricamente seria mais fácil.

    Por favor, poderia alterar o Status do tópico para [Resolvido], pois eu não consigo devido a algum bloqueio do Servidor de Internet da Empresa.

    Muito obrigado pela contribuição Mestre JPaulo.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Gravar Registro de um Formulário em uma função para que a mesma seja usada como Filtro/critério de uma consulta

    Mensagem  JPaulo em Ter 03 Jun 2014, 15:04

    Obrigado pelo retorno o forum agradece.


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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

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

      Data/hora atual: Qua 23 Ago 2017, 03:30