MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Contagem de valores

    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1155
    Registrado : 07/12/2011

    [Resolvido]Contagem de valores Empty [Resolvido]Contagem de valores

    Mensagem  tauron em 10/1/2020, 12:35

    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.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2988
    Registrado : 21/04/2011

    [Resolvido]Contagem de valores Empty Re: [Resolvido]Contagem de valores

    Mensagem  Marcelo David em 10/1/2020, 13:39

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


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1155
    Registrado : 07/12/2011

    [Resolvido]Contagem de valores Empty Re: [Resolvido]Contagem de valores

    Mensagem  tauron em 10/1/2020, 15:31

    Não sei o que aconteceu pois eu havia anexado, mas obrigado!
    Anexos
    [Resolvido]Contagem de valores AttachmentDiarias.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (150 Kb) Baixado 5 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2988
    Registrado : 21/04/2011

    [Resolvido]Contagem de valores Empty Re: [Resolvido]Contagem de valores

    Mensagem  Marcelo David em 10/1/2020, 18:33

    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.



    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1155
    Registrado : 07/12/2011

    [Resolvido]Contagem de valores Empty Re: [Resolvido]Contagem de valores

    Mensagem  tauron em 11/1/2020, 10:53

    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
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2988
    Registrado : 21/04/2011

    [Resolvido]Contagem de valores Empty Re: [Resolvido]Contagem de valores

    Mensagem  Marcelo David em 13/1/2020, 15:46

    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 David
    www.mrdsystem.com.br (em construção)
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1155
    Registrado : 07/12/2011

    [Resolvido]Contagem de valores Empty Re: [Resolvido]Contagem de valores

    Mensagem  tauron em 13/1/2020, 19:32

    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
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2988
    Registrado : 21/04/2011

    [Resolvido]Contagem de valores Empty Re: [Resolvido]Contagem de valores

    Mensagem  Marcelo David em 13/1/2020, 20:41

    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.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1155
    Registrado : 07/12/2011

    [Resolvido]Contagem de valores Empty Re: [Resolvido]Contagem de valores

    Mensagem  tauron em 13/1/2020, 22:53

    Obrigado Marcelo, estarei realizando os teste.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2988
    Registrado : 21/04/2011

    [Resolvido]Contagem de valores Empty Re: [Resolvido]Contagem de valores

    Mensagem  Marcelo David em 15/1/2020, 13:32

    Opa, amigo, deu certo?


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1155
    Registrado : 07/12/2011

    [Resolvido]Contagem de valores Empty Re: [Resolvido]Contagem de valores

    Mensagem  tauron em 16/1/2020, 19:08

    Muitissimo obrigado Marcelo David, ficou top.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2988
    Registrado : 21/04/2011

    [Resolvido]Contagem de valores Empty Re: [Resolvido]Contagem de valores

    Mensagem  Marcelo David em 16/1/2020, 20:21

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


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)

    Conteúdo patrocinado

    [Resolvido]Contagem de valores Empty Re: [Resolvido]Contagem de valores

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/2/2020, 04:47