[Resolvido]Contagem de valores

Bom dia!
Então estou com uma questão aqui que já caiu um pouco do restante dos cabelos.kkkk
No Formulário "frmRegistro" possuo um subformulário "tblDados" que ao preecher os campos [destino], [HSaida] e [HRetorno], ele calcula um valor [Valor]. Então, gostaria que no rodape do formulario principal ele me retornasse quantas vezes cada valor aparece no registro atual.

Bom dia,
imagino algo como o recorsetclone.
Poderia nos enviar o banco para fazer
uns teste?

Não sei o que aconteceu pois eu havia anexado, mas obrigado!

Para eu entender melhor:

tauron escreveu:quantas vezes cada valor aparece no registro atual.

Vc quer que retorne a quantidade de linha que há preenchidas no subformulário? Ou é a soma dos valores?

Vendo form aqui, não compreendi.

Então Marcelo, parece que não fui claro. o projeto é um controle de diarias, ao se preencher os campos [destino], [hsaida] e [hretorno] e feito o calculo para definir o [valor] a ser recebido pelo funcionario. Em resposta à sua pergunta, não se pode definir a quantidade de vezes que cada valor aparece no campo [valor].

Minha intensão é que ao preencher cada linha do subformulario, seja contabilizado a quantidade de vezes que determinado valor aparece ex.:

ao preencher duas linhas cujo valor apurado foi:

[valor] = 30 - [344] = 2

sendo que os campos correspondentes são?

se valor = 30 - 344
se valor = 45 - 349
se valor = 35 - 345
se valor = 52,5 - 347

Confesso que ainda não clareou, mas vamos ver se o que entendi é o pretendido:
Cada valor será apresentado em uma textbox, sendo assim, crie (ou use as existentes) 4 textboxs com os seguintes nomes no form principal:
txt30
txt35
txt45
txt52

No VBA do subformulário, copie a seguinte sub-rotina:

Código:

Sub subContaValor()
On Error Resume Next

Dim rsC As Recordset

Me.Parent.txt30 = 0
Me.Parent.txt35 = 0
Me.Parent.txt45 = 0
Me.Parent.txt52 = 0

Set rsC = Me.RecordsetClone

rsC.MoveFirst

Do Until rsC.EOF
    Select Case rsC!Valor
        Case 30
            Me.Parent.txt30 = Nz(Me.Parent.txt30, 0) + 1
        Case 35
            Me.Parent.txt35 = Nz(Me.Parent.txt35, 0) + 1
        Case 45
            Me.Parent.txt45 = Nz(Me.Parent.txt45, 0) + 1
        Case 52.5
            Me.Parent.txt52 = Nz(Me.Parent.txt52, 0) + 1
    End Select
   
    rsC.MoveNext
Loop

rsC.Close
Set rsC = Nothing

End Sub

Basta agora chamar essa rotina nos eventos No atual e Após atualizar do sub-formulário.

Teste e veja se é ou se aproxima do que precisa.

Marcelo, se reparar no arquivo anexo na mensagem anterior, verá que no subformulário exitem os seguinte campos (dtsaida, dtretorno, destino, historico, hsaida, hretorno, thoras, valor) além de alguns campos ocultos, sendo que os campos [dist] (oculto), Thora, influenciam no resultado do campo [valor].

Dependendo do destino escolhido, o campo [dist], oculto, pode ser 1 ou 2, que em conjunto com o Thora pode determinar que o campo [valor] retorne 30, 45, 35 ou 52,5

O que necessito é:

ao estar registrando as viagens de um determinado motorista, seja mostrado a quantidade de vezes em que cada valor aparece:

Lancei seis viagens sendo:

Dist         THora           Valor
1             12:00            30
1             10:00            30
1             13:00            45
1             11:00            30
2             11:59            35
2             12:01            52,5

Então nos campos abaixo me retornariam o seguinte

txt30 = 3
txt45 = 1
txt35 = 1
txt52 = 1

Então entendi certinho o que precisa e é exatamente o quê os códigos de minha mensagem anterior
fazem. Você só terá que renomear as textboxs que exibirão os totais de acordo.

Se tiver dificuldade, basta falar.

Obrigado Marcelo, estarei realizando os teste.

Opa, amigo, deu certo?

Muitissimo obrigado Marcelo David, ficou top.

Grato pelo retorno my brother! O fórum agradece!

Estou reabrindo devido necessidade de implementação.

Na mensagem 6 o Marcelo disponibilizou um código que estou tentando implementar:

Código:


Sub subContaValor()
On Error Resume Next

Dim rsC As Recordset

Me.Parent.txt344 = 0
Me.Parent.txt345 = 0
Me.Parent.txt347 = 0
Me.Parent.txt349 = 0
Me.Parent.txt346 = 0

Set rsC = Me.RecordsetClone

rsC.MoveFirst

Do Until rsC.EOF
    Select Case rsC!Valor
        Case 30
            Me.Parent.txt344 = Nz(Me.Parent.txt344, 0) + 1
            Me.Parent.Vl344 = Me.Parent.txt344 * 30
        Case 35
            Me.Parent.txt345 = Nz(Me.Parent.txt345, 0) + 1
            Me.Parent.Vl345 = Me.Parent.txt345 * 35
        Case 45
            Me.Parent.txt349 = Nz(Me.Parent.txt349, 0) + 1
            Me.Parent.Vl349 = Me.Parent.txt349 * 45
        Case 52.5
            Me.Parent.txt347 = Nz(Me.Parent.txt347, 0) + 1
            Me.Parent.Vl347 = Me.Parent.txt347 * 52.5
        Case 40
            Me.Parent.txt346 = Nz(Me.Parent.txt346, 0) + 1
        Case 60
            Me.Parent.txt346 = Nz(Me.Parent.txt346, 0) + 1
        Case 90
            Me.Parent.txt346 = Nz(Me.Parent.txt346, 0) + 1
        Case 100
            Me.Parent.txt346 = Nz(Me.Parent.txt346, 0) + 1
        Case 150
            Me.Parent.txt346 = Nz(Me.Parent.txt346, 0) + 1
    End Select
    
    rsC.MoveNext
Loop

rsC.Close
Set rsC = Nothing

End Sub



Irão notar que o campo txt346 poderá possuir vários valores (como os outro campos são valores fixos, está tudo ok), e devido a este fato, não estou conseguindo obter o valor.
total.