Olá Amigos!!
Pela primeira vez estou colaborando com uma dica para o AtivoAccess!
Dica: Como somar uma determinada coluna de um ListBox ou ComboBox.
Descrição: Função que retorna a soma de uma coluna de um controle
ListBox/ComboBox que o desenvolvedor determinar.
Function RetValor(obj As Control, iCol As Integer) As Double
Dim OldCol As Integer
Dim vTotal As Double
OldCol = obj.BoundColumn
obj.BoundColumn = iCol
For x = 0 To obj.ListCount - 1
vTotal = vTotal + obj.ItemData(x)
Next
obj.BoundColumn = OldCol
RetValor = vTotal
End Function
Modo de Usar:
Pode-se utilizar um TextBox ou Variável ou até mesmo um MSGBOX para
guardar/apresentar o retorno desta função:
txtValor = RetValor(Lista01,3) 'retorna a soma da terceira coluna do
controle Lista01
msgBox "Total de Pedidos: " & RetValor(Combo01,7)
dblSalario = RetValor(Combo07,2)
Espero que apreciem.
Grato,
Gib@
---------------------------------------
N.E.: Nós é que agradecemos a valiosa contribuição Gib@.
|
sábado, 21 de dezembro de 2024