Estou com duvida, pois em pesquisas no Google, não encontrei nada.
Tenho um formulário vba excel que conecta com o access, e uso este
código para importar determinada campo da "Listview" para o "textbox"
e funciona perfeitamente com dois critério.
Contudo gostaria de saber como preencher "textbox" usando 3
critérios para a soma.
O código que estou usando é este, e gostaria de incluir mais um
critério que esta no subitems (0) do "Listview".
Código: Selecionar todos
Dim ad As Integer
Dim some19 As Double
For ad = 1 To Financeiro.lstv.ListItems.Count
If Financeiro.lstv.ListItems.item(ad).SubItems(2) = "C" And Financeiro.lstv.ListItems.item(ad).SubItems(8) = "janeiro" Then
some19 = some19 + Financeiro.lstv.ListItems.item(ad).SubItems(6)
End If
Next ad
txtVJan = some19
txtVJan = Format(txtVJan, "Currency")
Fiquem com Deus e se cuidem.
"O impossível existe até que alguém duvide
dele e prove o contrário."
(Albert Einstein)