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

    Filtrar formulario continuo pela combo

    leoavila7
    leoavila7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 04/12/2011

    Filtrar formulario continuo pela combo Empty Filtrar formulario continuo pela combo

    Mensagem  leoavila7 4/3/2014, 00:58

    Amigos;

    Criei um formulario continuo baseado em uma consulta simples, e nele coloquei um form que apresenta todos os nomes registrados em outra consulta baseada na consulta que gerou o form em questão. Apliquei um codigo de filtro que adaptei de um form do aplicativo Maestro do Avelino, e parece ter ficado tudo bem, com relação ao código em si, que nao apresentou nenhum erro aparente. O fato é que o filtro deveria ocorrer apos a atualização da combo, mas o que ocorre é que o form fica sem dados apos o evento atualizar e apresentando os dados como filtrados, de acordo com o botão "filtrado" da barrinha de navegação. O que poderia ser?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    Filtrar formulario continuo pela combo Empty Re: Filtrar formulario continuo pela combo

    Mensagem  Avelino Sampaio 5/3/2014, 09:32

    Olá, Leo!

    Apresente o código utilizado no evento "Após atualizar" da sua combobox.

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    leoavila7
    leoavila7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 04/12/2011

    Filtrar formulario continuo pela combo Empty Re: Filtrar formulario continuo pela combo

    Mensagem  leoavila7 22/3/2014, 01:42

    Avelino meu idolo, obrigado pela atenção e desculpe pela demora em retornar, to estudando feito louco. Segue o codigo abaixo:

    Código:
    Option Compare Database
    Dim booliberaCbo As Boolean

    Private Sub btRemoverFiltro_Click()
    'DoCmd.RunCommand acCmdRemoveFilterSort
    DoCmd.ShowAllRecords
    End Sub

    Private Sub Código_AfterUpdate()
    Me.txtCódigoCliente = DLookup("CódigoCliente", "ConsultaMensalidadesCrit", "Nome='" & Me!txtNome & "'")
    End Sub

    Private Sub combo_AfterUpdate()
    Dim filtro As String
    filtro = "Nome = """ & Me!combo.Column(1) & """"
    DoCmd.ApplyFilter , filtro
    '---------------------------------------
    'Outra forma de aplicar a filtragem
    '---------------------------------------
    'Me.Filter = filtro
    'Me.FilterOn = True
    '---------------------------------------
    Me.btRemoverFiltro.SetFocus
    Me!combo = Null
    End Sub
    Private Sub combo_GotFocus()
    Dim strsql As String
    strsql = "SELECT CódigoCliente,Nome FROM ConsultaRef ORDER BY Nome;"
    Me!combo.RowSource = strsql
    booliberaCbo = Me.AllowEdits
    If booliberaCbo = False Then Me.AllowEdits = True
    End Sub

    Private Sub combo_LostFocus()
    Me.AllowEdits = booliberaCbo
    End Sub

    Private Sub Form_Load()

    End Sub

    Private Sub txtCódigoCliente_GotFocus()

    End Sub

    Private Sub txtNome_AfterUpdate()
    Me.Código = Contador("Código", "TabMensalidade")
    Me.Código.Value = numeroLivre("TabMensalidade", "Código")
    End Sub

    Obrigado mestre.

    Conteúdo patrocinado


    Filtrar formulario continuo pela combo Empty Re: Filtrar formulario continuo pela combo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/11/2024, 04:20