Aplicar propriedade a todos itens marcados com checkboxes em listview
Enviado: Seg Ago 06, 2018 4:16 pm
Olá galera, estou com uma dúvida, parece simples de resolver mas estou a dias quebrando a cabeça e não encontro nada, tenho um listview que ativo os checkboxes clicando em um botão, ao ativar desejo selecionar variados itens da lista e fazer um "UPDATE" no banco de dados access naqueles itens marcados, segue o que tenho até o momento
Obs: com este procedimento ele altera todos os dados do listview, e não apenas os selecionados
Obs: com este procedimento ele altera todos os dados do listview, e não apenas os selecionados
Código: Selecionar todos
Private Sub btnEntregar_Click()
Application.ScreenUpdating = False
Dim cx As New ClasseConexao
Dim banco As ADODB.Recordset
i = 1
For i = 1 To lstLista.ListItems.Count
sql = "UPDATE Fornecedores"
sql = sql & " SET Status = '" & "ENTREGUE" & "'"
If Not IsNull(Me.txtEntregar.Value) Then sql = sql & ", Efetiva = '" & Me.txtEntregar.Value & "'"
If lstLista.ListItems(i).Checked = True Then
sql = sql & " WHERE Pedido = " & lstLista.ListItems.Item(i).Checked
End If
i = i + 1
Next i
Set banco = New ADODB.Recordset
cx.Conectar
banco.Open sql, cx.conn
Set banco = Nothing
cx.Desconectar
Application.ScreenUpdating = True
Call PopulaListBox(txtCliente.Text, txtProduto.Text, txtMunicipio.Text, txtPedido.Text, cboPendente.Text, txtDatIni.Value)
End Sub