[Resolvido]Calculo em linha

Boa tarde! Mais uma vez recorro aos mestres....

Tenho uma tabela com campo mês e os demais campos são de 01 a 31(são os dias), gostaria de em um subformulário fosse feita a soma por linha de caracteres especificos no caso “X”. Acho que abaixo fica melhor ilustrado o que quero:

Tabela :

Mês 01 02 03 04 05 ... 31 total
Janeiro X X F X X F X 5
Fevereir X X X X X X X 7
...
Valeu...

Podes criar um recordset..

1 - Fazendo um loop para o mesmo e dentro do loop um procedimento For para percorrer os campos da tabela e ir somando o que obdecer a condição X
Após a soma dos valores X na coluna, Somar com os valores de X no proximo registro.


Cumprimentos.

Agradeço a atenção, mas eu quero somar os valores em cada coluna (na mesma linha), sendo que na última coluna ficará o total da soma e a verdade é que não sem nem por onde começar..., esses dados serão apresentados em um formulário...

Fazendo uma consulta e no último campo não acoplado utilizar a expressão DSum para cada campo Samando-os

Algo Assim:
CpSoma: DSum("SeuCampo";"SuaTabela";"SeuCampo = '" & SuaCondicao & "'") + DSum("SeuCampo1";"SuaTabela";"SeuCampo1 = '" & SuaCondicao & "'")

Cumprimentos.

Que mania a minha não Mestre Avelino.. O Correto seria com o recordset como citei primeiramente...e fazendo uma função Não?

Avelino consegui algo assim:

Supondo que a condição dele seja o número 3

Public Function fSoma(Int1 As Integer, Int2 As Integer, Int3 As Integer) As Integer
Dim IntResult As Integer

IntResult = 0
If Int1 <> 3 Then IntResult = IntResult + Int1
If Int2 <> 3 Then IntResult = IntResult + Int2
If Int3 <> 3 Then IntResult = IntResult + Int3
    fSoma = IntResult
End Function



E em um campo não acoplado na consulta:

TotalSoma: fSoma([Cp1];[Cp2];[Cp3])

Cumprimentos

Marcelo,

segue um exemplo, utilizando a função Abs(). Observe o campo virtual "Total_x" montado na consulta.

Sucesso!

Eu havia entendido que ele pretendia somar e não contar..

Cumprimentos.

Olá Avelino,

Obrigado, o exemplo que você me passou é exatamente o que eu quero, ou seja que conte o número de vezes em que o "X" aparece na linha,
Piloto valeu pela atenção....

Resolvido....

Clique em Resolvido e no Joinha da mensagem que o Auxiliou.

Cumprimentos.

Obriga mais uma vez pessoal.

O Joinha era na mensagem do Avelino, que foi a solução do tópico... Mas tudo bem.

O Fórum agradece o retorno.