[Resolvido]SOMA no RELATÒRIO de CAMPOS EM SUBFORMULÀRIO

Boas Pessoal, mais uma vez venho em busca de ajuda e da vossa sabedoria,
é o seguinte

Tenho um relatório com o nome RO
esse relatório tem um subformulário com o nome MEIOS, e este tem os campos VIATURAS (texto), Nº BOMB (texto, KM (texto) e HORAS BOMBA (horas)

eu quero obter no RO somas dos campos do subformulário,
do campo VIATURAS, quero contar o nº de registos
do campo Nº BOMB, quero a soma dos valores contidos nos campos
do campo KM, quero a soma dos valores contidos nos campos
do campo HORAS BOMBA, quero a soma das horas todas

para ver uma imagem do exemplo, ver no link
https://2img.net/r/ihimg/photo/my-images/140/30331254.jpg/

desde já
Muito obrigado

Já tentou assim?
=nz(Soma(Parent!NomeSubRelatório!NomeCampo);0)

ou assim?
=nz(Soma(Reports!NomeRelatório!NomeSubRelatório!NomeCampo);0)

Boas e obrigado
não está a funcionar ou eu estou a fazer algo mal

é suposto colar isso na origem do controlo do campo certo?

Sim. Tambem pode colocar em um campo oculto no rodapé do subformulário:

=Soma([NomeDoCampo])

E no formulário principal, coloca:

=Forms!NomeDoForm!NomeDoSubform.Form!NomeDoCampo

mas isto é no relatório e não num formulario

Só mudar Forms para Reports

vou colocar aqui o ex. para veres

no relatório a imprimir coloca o 1000/2012

Ja tenho a funcionar a parte das somas, falta só a parte de contar os registos.
podes ajudar-me nisso?

Tente =Count(*)

hoje já não vai dar, mas amanha vou testar e depois digo se funcionou.
obrigado

Boas
resolvi assim

=[Nomedosubformulário].[Relatório]![NomedoCampo]

agora tenho mais uma duvida, é possível contar dentro do mesmo campo? tipo

o campo X regista números separados por - ou ;

145874585-45896547-4587-4265698545-458896145

é possível ter um caixa a contar esses números, no caso apresentado dar 5

Se são apenas esses dois separadores, pode tentar algo assim na origem do campo:

Código:

=SeImed(Len(Replace([CampoX];";";""))<Len(Replace([CampoX];"-";""));Len(Replace([CampoX];";";""));Len(Replace([CampoX];"-";"")))

Boas grande CRIQUIO

colei mas não funcionou, dá erro
ao colar ele fica assim

Código:

=SeImed(Compr(Substituir([CampoX];";";""))<Compr(Substituir([CampoX];"-";""));Compr(Substituir([CampoX];";";""));Compr(Substituir([CampoX];"-";"")))

eu pretendo obter o total de elementos dentro de um campo e isso por linha dentro de um subformulário
podes ver o ex. na imagem postada no 1º post deste topico[code]

Olá

Copie a função abaixo para um módulo global

Código:

Public Function fncConta(strTexto As String) As Integer
Dim x, y
x = Split(strTexto, "-")
y = Split(strTexto, ";")
fncConta = UBound(x) + UBound(y) + 1
End Function

na origem do campo coloque:

=SeImed(ÉNulo([campo X]);0;fncConta([campoX]))

Sucesso!

Eu testei aqui e funcionou. O nome do seu campo é CampoX mesmo? Se não for, precisa substituir.

desculpem a maçada mas aqui não funciona,
o relatório tem um critério na abertura (nºinterno) mas agora pede mais um, valor de parâmetro (SeImed)

será que podem por aqui o ex. em BD

Tente assim:

Código:

=SeImed(Len([CampoX])-Len(Replace([CampoX];";";""))<Len([CampoX])-Len(Replace([CampoX];"-";""));Len([CampoX])-Len(Replace([CampoX];"-";""))+1;Len([CampoX])-Len(Replace([CampoX];";";""))+1)

Se o nome do campo que contem os números for diferente de CampoX, faça a substituição para o nome correto.

resolvido
muito obrigado ao CRIQUIO e ao AVELINO SAMPAIO