MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Distribuição de tarefas automatico

    Compartilhe

    Matheus Bacha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 19/05/2015

    Distribuição de tarefas automatico

    Mensagem  Matheus Bacha em Qui 30 Jul 2015, 15:06

    Bom dia!

    Estou com um problema onde meu banco tem que distribuir automaticamente as tarefas para os colaboradores de acordo com suas demandas.

    Por exemplo: Tenho 3 colaboradores e cada um recebe 5 notas para atender todo mês, mais se o primeiro colaborador tratou apenas 2, o segundo 4 e o terceiro tratou as 5, no outro mês o banco tem que distribuir uma quantidade para que cada um fique exatamente com a mesma quantidade de notas iguais.

    Estou utilizando Mod para retornar o resto mais não está funcionando.

    [SomaDeNotas]/[Usuario] mod [Usuario]

    Desde já agradeço pela ajuda.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3217
    Registrado : 15/03/2013

    Re: Distribuição de tarefas automatico

    Mensagem  ahteixeira em Sex 31 Jul 2015, 18:51

    Olá, como deveria distribuir 14 notas por 3 utilizadores.
    Abraço

    Matheus Bacha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 19/05/2015

    Re: Distribuição de tarefas automatico

    Mensagem  Matheus Bacha em Seg 03 Ago 2015, 12:08

    Nesse caso um Usuário vai ficar com uma tarefa a mais, se for 15 notas dois Usuários ficam com um nota a mais e 16 distribui igual.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3217
    Registrado : 15/03/2013

    Re: Distribuição de tarefas automatico

    Mensagem  ahteixeira em Seg 03 Ago 2015, 14:26

    Olá, veja se código ajuda, tendo em consideração os números da mensagem nº 2:

    Código:
    Sub teste()
        Dim iTarefas, iUsuarios, iDivididas, iResto As Integer
       
        iTarefas = 14
        iUsuarios = 3
        iDivididas = iTarefas \ iUsuarios
        iResto = iTarefas - (iDivididas * iUsuarios)
       
        If iResto <> 0 Then
            'Aqui pode fazer o tratamento da distribuição do resto
            MsgBox "Tem " & iResto & " tarefas para distribuir. Actualmente os " & iUsuarios & " usuários tem " & iDivididas & " tarefas cada um."
        End If
    End Sub

    Abraço

    Matheus Bacha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 19/05/2015

    Re: Distribuição de tarefas automatico

    Mensagem  Matheus Bacha em Seg 03 Ago 2015, 15:00

    ahteixeira, talvez esse mesmo seja o código mais não estou sabendo colocar a ação para que ele execute o código.

    Na verdade eu tenho uma outra tabela de Usuários e preciso que ele pegue os Usuários dessa tabela e distribui as tarefas.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3217
    Registrado : 15/03/2013

    Re: Distribuição de tarefas automatico

    Mensagem  ahteixeira em Seg 03 Ago 2015, 16:42

    Olá, na verdade o código da mensagem nº 4 exemplifica como efectuar a distribuíção e mostra o resto que também terá que ser distribuido.
    Para testar, basta fazer:

    ALT+F11 colar o código e primir a tecla F5

    Para facilitar a ajuda de algum membro aqui do fórum à sua questão, sou da opinião que deve postar base de dados com as tabelas em referencia com dados de amostragem e dizer como pretende o resultado final.

    Abraço

    Matheus Bacha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 19/05/2015

    Atribuição de atividades automatico

    Mensagem  Matheus Bacha em Ter 18 Ago 2015, 13:45

    Bom dia!

    Já faz muito tempo que estou com problema e não consigo resolver .... tenho uma tabela com os campos [Notas] e [Usuarios], eu preciso que o Access pegue o total de notas (92 notas) e dividi por 3 (Que são a quantidade de de Usuários) e distribua as notas para os funcionários por igual, mais isso tem que ser automático. Criei um botão de Atualizar no formulário e quando clicar no botão o sistema já faz a distribuição das notas.

    Preciso muito de uma ajuda. Desde já agradeço a todos do forum.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3217
    Registrado : 15/03/2013

    Re: Distribuição de tarefas automatico

    Mensagem  ahteixeira em Sab 29 Ago 2015, 11:38

    Olá Matheus, aconselho a leitura e cumprimento das regras do fórum, veja através do link abaixo, em especial o n.º 3:
    [Você precisa estar registrado e conectado para ver este link.]
    O tópico foi fundido.

    A resposta ao que pretende já foi dada uma sugestão acima, o qual não obtivemos qualquer resposta da sua parte.
    Teste o seguinte:

    1) Crie uma nova base de dados vazia
    2) Prima as teclas ALT+F11
    3) Crie um módulo (clicando com tecla do lado direito em cima do nome do projecto, insert, module) , veja:
    [Você precisa estar registrado e conectado para ver esta imagem.]

    4) Cole o código abaixo:
    Código:
    Sub teste()
        Dim iTarefas, iUsuarios, iDivididas, iResto As Integer
        
        iTarefas = 93
        iUsuarios = 3
        iDivididas = iTarefas \ iUsuarios
        iResto = iTarefas - (iDivididas * iUsuarios)
        
        If iResto <> 0 Then
            'Aqui pode fazer o tratamento da distribuição do resto
            MsgBox "Tem " & iResto & " tarefas para distribuir. Actualmente os " & iUsuarios & " usuários tem " & iDivididas & " tarefas cada um."
        Else
            MsgBox "Os " & iUsuarios & " usuários tem " & iDivididas & " tarefas cada um."
        End If
    End Sub

    5) Prima a tecla F5

    Deverá ver a seguinte imagem:
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Isto é apenas uma sugestão e exemplo, que deverá ser ajustado ao seu projecto.
    Abraço

      Data/hora atual: Sex 09 Dez 2016, 09:39