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