Selecionar em ListBox

Boa tarde Amigos

No exemplo que anexo queria a vossa ajuda para o seguinte.

Esse formulario lista as 3 ultimas rubricas da minha tabela de registas os movimentos.

Rubrica Agua- Ao clikar na primeira da lista aparece em baixo o valor.
Rubrica Agua - Se clikar em duas soma o valor das duas selecionadas
Rubrica Agua - Se clikar em tres soma o valor das tres selecionadas

Queria que sempre que mudasse de Rubrica a soma partia do inicio.

Exemplo

Selecionada as tres linhas de agua, ao clikar em eletricidade desmarcava a agua e ficava só selecionada a eletricidade.

https://dl.dropboxusercontent.com/u/8169944/Forum%20Assis.zip

Declarando variável...

Código:

Option Compare Database

Dim MSG, k As String

Lista > ao clicar...

Código:

Dim k2 As String
Dim lst As Variant
Dim linha As Integer

k2 = Me.Lista.Column(2)

    If IsNull(k) Or k = "" Then k = Me.Lista.Column(2)
   
    If k2 <> k Then

linha = Me.Lista.ListIndex


    For Each lst In Me!Lista.ItemsSelected
        Me!Lista.Selected(lst) = False
    Next lst
   
    Me.Lista.Selected(linha) = True
    k = Me.Lista.Column(2)
   
    Me!TotalSelecionado = f_ItensSeleçãoListBox
    Call Form_Current
   
Else

Me!TotalSelecionado = f_ItensSeleçãoListBox
Call Form_Current

End If

Link para download

Obrigado Elias

Perfeito

Bom fim de semana

Boas....

Perfeito mesmo, já estou a usar.....Parabéns !

Abraços aos colegas !

Brigadão pessoal mas, eu que agradeço primeiro a Deus e aos amigos do fórum que tanto me ajudou e ajuda nessa caminhada.

Meu muito obrigado a todos e um fim de semana abençoado.