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

    [Resolvido]Alterar código

    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 09/04/2012

    [Resolvido]Alterar código Empty [Resolvido]Alterar código

    Mensagem  Kaynan 13/11/2021, 14:00

    Ola pessoal,tenho essa função que filtro atravez de uma combo o campo componente de um formulario continuo,mas pra mim colocar outra combo pra filtrar outro campo como é que altero esse código.No evento após atualizar da combo eu tambem coloco escrito "Filtro"

    Public Sub filtro()
    Dim f1 As Variant

    If Me.CombComp <> "" Then
    f1 = "[Componente] Like '*" & Me.CombComp & "*'" 'Busca Campo1
    Else
    f1 = ""
    End If

    Me.Filter = f1
    Me.FilterOn = True
    End Sub
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 09/04/2012

    [Resolvido]Alterar código Empty Re: [Resolvido]Alterar código

    Mensagem  Kaynan 13/11/2021, 14:49

    Consegui resolver.
    Copiei esse código mudando os objetos.

      Data/hora atual: 29/11/2021, 23:57