MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

3 participantes

    [Resolvido]Contar Trabalhados

    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 17/01/2017

    [Resolvido]Contar Trabalhados Empty [Resolvido]Contar Trabalhados

    Mensagem  gabrielpn06 5/6/2017, 17:50

    Boa tarde amigos, venho mais uma vez recorrer a ajuda de vocês!
    tenho um pequeno sistema de tratamento de processos, no qual uma equipe faz login e recebe uma fila de trabalho.
    gostaria que numa caixa de texto fosse exibida a quantidade que cada um trabalhou em tempo real, para que os usuários pudessem acompanhar sua produção.

    - Tabela que alimenta o formulário: TbDataNulo
    - Campos da tabela: |Processos|Profissional|
    - Campo do formulário: Texto163

    Podem me ajudar nessa? Desde já agradeço!
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Contar Trabalhados Empty Re: [Resolvido]Contar Trabalhados

    Mensagem  tauron 6/6/2017, 00:18

    Tem como postar o bd? Estou meu perdido na questao "uma equipe faz login".
    Emerson7
    Emerson7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 22/05/2017

    [Resolvido]Contar Trabalhados Empty Re: [Resolvido]Contar Trabalhados

    Mensagem  Emerson7 6/6/2017, 07:48

    Boa noite.

    Em um campo não acoplado do formulário, tu puxa o usuário atual através do Dlookup. Vamos dizer que este teu campo se chame "ProfAtual".

    Coloca no evento "No Timer" do formulário:

    Me.Texto163 = DCount("Profissional", "tbDataNulo", "[Profissional] = [ProfAtual]")

    Depois no "Intervalo de cronômetro" pode colocar o valor de 50.



    Att.
    Emerson
    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 17/01/2017

    [Resolvido]Contar Trabalhados Empty Re: [Resolvido]Contar Trabalhados

    Mensagem  gabrielpn06 6/6/2017, 12:46

    Bom dia amigos, agradeço a prontidão. Ainda não obtive sucesso!
    Segue anexo um imagem do formulário que os usuários preenchem para facilitar o entendimento. Mais uma vez muito obrigado pela disponibilidade em ajudar!

    [Resolvido]Contar Trabalhados Imagen10
    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 17/01/2017

    [Resolvido]Contar Trabalhados Empty Re: [Resolvido]Contar Trabalhados

    Mensagem  gabrielpn06 6/6/2017, 13:35

    Como solicitado, segue anexo o Bd.
    Anexos
    [Resolvido]Contar Trabalhados AttachmentSTP - 2.0 - Copy.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (485 Kb) Baixado 7 vez(es)
    Emerson7
    Emerson7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 22/05/2017

    [Resolvido]Contar Trabalhados Empty Re: [Resolvido]Contar Trabalhados

    Mensagem  Emerson7 7/6/2017, 09:37

    Bom dia Gabriel.

    Se tu puder fazer a gentileza de converter teu BD pro Access 2003 te agradeceria. Só o que uso é o 2003.
    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 17/01/2017

    [Resolvido]Contar Trabalhados Empty Re: [Resolvido]Contar Trabalhados

    Mensagem  gabrielpn06 7/6/2017, 12:41

    Não consigo, pois uso recursos atuais no Bd.
    Emerson7
    Emerson7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 22/05/2017

    [Resolvido]Contar Trabalhados Empty Re: [Resolvido]Contar Trabalhados

    Mensagem  Emerson7 7/6/2017, 13:53

    Gabriel, coloca na fonte do controle do campo Texto163 o seguinte:

    =DContar("Processo";"tbDataNulo";"[Profissional]=[Forms]![frmFilaUser]![Profissional]")

    depois no evento No Time do formulário coloca:

    Me.Texto163 = DCount("Processo", "tbDataNulo", "[Profissional]=[Forms]![frmFilaUser]![Profissional]")

    e por último no intervalo do cronômetro coloca o valor 10000 (de dez em dez segundos ele vai atualizar o Texto163)


    Eu removi o filtro do teu formulário porque não aparecia dado algum ao abrir o formulário e na fonte do registro do form selecionei a tabela tbDataNulo.

    Veja se é isso, se não for avisa.

    Segue o BD em anexo.
    Anexos
    [Resolvido]Contar Trabalhados AttachmentSTP - 2.0 - Copy.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (468 Kb) Baixado 22 vez(es)
    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 17/01/2017

    [Resolvido]Contar Trabalhados Empty Re: [Resolvido]Contar Trabalhados

    Mensagem  gabrielpn06 7/6/2017, 15:52

    Bom dia Emerso73, Funcionou perfeitamente!
    Muito obrigado!
    Emerson7
    Emerson7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 22/05/2017

    [Resolvido]Contar Trabalhados Empty Re: [Resolvido]Contar Trabalhados

    Mensagem  Emerson7 12/6/2017, 15:29

    Obrigado pelo retorno.

      Data/hora atual: 5/12/2022, 18:10