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

    Filtro listview entre duas colunas

    avatar
    crovador
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 03/04/2018

    Filtro listview entre duas colunas Empty Filtro listview entre duas colunas

    Mensagem  crovador 24/6/2021, 01:26

    Olá amigos, estou precisando de uma ajuda com relação a este código.

    Private Sub CommandButton3_Click()

    txt_cod_produto.Text = ""
    combo_descricao.Text = ""

    Call Pesquisar1

    'Filtrar por uma coluna retirando o registro do listview
    Dim Tmp As Integer, i As Integer
    On Error Resume Next
    Tmp = ListView1.ListItems.Count 'Troque para o nome de seu formulario
    For i = 1 To Tmp
    With ListView1
    If i > Tmp Then GoTo saida
    If .ListItems(i).SubItems(5) > .ListItems(i).SubItems(6) Then 'Supondo que o valor a ser filtrado seja a coluna 5 maior que a 6
    ListView1.ListItems.Remove i
    i = i - 1
    Tmp = Tmp - 1

    End If

    End With
    Next
    saida:
    Call SOMA_LISTA
    Me.label_registro = dataini & " " & datafim & " " & Me.ListView1.ListItems.Count & " Registro(s)"
    End Sub

    Tenho uma coluna no listview estoque mínimo e outra estoque atual, gostaria de filtrar assim: quando meu estoque atual estiver menor que o mínimo filtrar somente valores que estão abaixo do mínimo.

    pode ajudar-me amigos?

      Data/hora atual: 1/8/2021, 12:37