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

2 participantes

    [Resolvido]Distribuição de Tarefas

    alcspip
    alcspip
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Mensagens : 29
    Registrado : 23/09/2010

    [Resolvido]Distribuição de Tarefas Empty Distribuição de Tarefas

    Mensagem  alcspip 1/10/2012, 01:05

    Amigos,

    Estou montando um BD onde preciso distribuir uma lista de registros, para que 4 operadores ou mais trabalhem nela.
    Preciso que o vba leia a tabela Tbl_base_ligaçoes e divida pela quantidade de operadores na Tbl_base_Operadores, e coloque o nome de cada operador na tabela Tbl_base_ligaçoes na coluna Operador. Somente se a coluna operador estiver em branco.

    Sou novato nesse mundo, porem aprendendo muito com vocês. segue a base de dados.

    Grato

    André


    Anexos
    [Resolvido]Distribuição de Tarefas AttachmentDistribuir tarefas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (14 Kb) Baixado 29 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8251
    Registrado : 05/11/2009

    [Resolvido]Distribuição de Tarefas Empty Re: [Resolvido]Distribuição de Tarefas

    Mensagem  Alexandre Neves 1/10/2012, 08:19

    Bom dia,
    Desde 2010, já devia ter "espreitado" muitos códigos
    Utilize
    Sub DistribuiTarefas()
    'criado por Alexandre Neves, do MaximoAccess, em 2012-10-01
    Dim RstBase As DAO.Recordset, RstOperadores As DAO.Recordset
    Set RstBase = CurrentDb.OpenRecordset("SELECT Operador FROM Tbl_base_Ligacoes;")
    Set RstOperadores = CurrentDb.OpenRecordset("SELECT Operador FROM Tbl_base_Operadores;")

    Do While Not RstBase.EOF
    VerificaJaPreenchido:
    If Len(RstBase(0)) > 0 Then RstBase.MoveNext: GoTo VerificaJaPreenchido
    RstBase.Edit
    RstBase(0) = RstOperadores(0)
    RstOperadores.MoveNext
    If RstOperadores.EOF Then RstOperadores.MoveFirst
    RstBase.Update
    RstBase.MoveNext
    Loop
    Set RstBase = Nothing: Set RstOperadores = Nothing
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    alcspip
    alcspip
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Mensagens : 29
    Registrado : 23/09/2010

    [Resolvido]Distribuição de Tarefas Empty Re: [Resolvido]Distribuição de Tarefas

    Mensagem  alcspip 2/10/2012, 01:50

    Alexandre,Boa Boite.
    Quero agradecer pelo código que deu certo, era isso que estava precisando.
    Obrigado
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8251
    Registrado : 05/11/2009

    [Resolvido]Distribuição de Tarefas Empty Re: [Resolvido]Distribuição de Tarefas

    Mensagem  Alexandre Neves 2/10/2012, 07:58

    [Resolvido]Distribuição de Tarefas MaximoAccess%20ResolvidoMarcado


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: 28/11/2022, 01:13