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]Redistribuicao de processos

    Compartilhe
    avatar
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Redistribuicao de processos

    Mensagem  gabrielpn06 em 29/1/2018, 15:31

    Boa tarde amigos, preciso de ajuda pra fazer uma "realocacao de processos".

    Tenho em meu formulario "FrmDistribuicao", 4 caixas de texto "Data_da_Analise", "txtDe", "txtPara" e "txtQtd" e um botao onde:

    Data_da_Analise = Data em que o processo foi feito;
    txtDe = profissional atual;
    txtPara = profissional que vai receber os processos;
    txtQtd = quantidade de processos a serem realocados.

    A ideia e que no clique do botao, seja feita a contagem dos processos do profissional atual e seja trocado o nome dele pelo nome do profissional que vai receber os processos, desde que o campo Data_da_Analise seja = "".

    Podem me ajudar? Tentei fazer via SQL (segue abaixo), mas nao faco ideia de como ficaria a sintaxe. Desde ja agradeco!

    Código:
    Dim linhas As String
    Dim profissionalinicio As String
    Dim profissionaldestino As String

    linhas = Me.txtQtd.Value
    profissionalinicio = Me.txtDe.Value
    profissionaldestino = Me.txtPara.Value


    Application.DoCmd.RunSQL "Select linhas from BD_TRIAGEM Update profissionalinicio = profissionaldestino where Data_da_Analise = """
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1141
    Registrado : 05/02/2010

    Redistribuicao de processos

    Mensagem  good guy em 29/1/2018, 18:09

    Olá Gabriel,

    Aqui mesmo no fórum com o colega convidad.

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Redistribuicao de processos

    Mensagem  gabrielpn06 em 29/1/2018, 18:23

    Obrigado Good, mas peco desculpas pela minha falta de conhecimento!

    No exemplo que me forneceu nao tem o Uptade, no meu caso gostaria que contasse N registros do responsavel X e trocasse o nome desses N registros para responsavel Y.
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1141
    Registrado : 05/02/2010

    Redistribuicao de processos

    Mensagem  good guy em 29/1/2018, 20:07

    Olá Gabriel,

    Procure fazer as alterações baseadas no exemplo disponibilizado pelo colega "convidad" e depois posta o bd para continuarmos até solucionar o seu problema.
    avatar
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Redistribuicao de processos

    Mensagem  gabrielpn06 em 30/1/2018, 17:10

    Boa tarde Good, ainda nao consegui adaptar o exemplo ao meu caso, como disse anteriormente meu conhecimento de sql e vba é praticamente 0.
    Quanto a postar meu BD, ele está muito grande e tem muita informação que não posso divulgar, teria que mexer em muita coisa para postá-lo aqui.
    Mas mesmo assim agradeço a ajuda e continuo tentando montar a rotina aqui.
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 887
    Registrado : 23/09/2011

    Re: [Resolvido]Redistribuicao de processos

    Mensagem  cleverson_manaus em 30/1/2018, 17:58



    uma sugestão cria uma cópia do arquivo, em seguida exclua os registros, depois coloque dados aleatorios apenas para termos um ideia do funcionamento da sua aplicação.



    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    avatar
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Redistribuicao de processos

    Mensagem  gabrielpn06 em 30/1/2018, 18:31

    segue o BD
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 887
    Registrado : 23/09/2011

    Re: [Resolvido]Redistribuicao de processos

    Mensagem  cleverson_manaus em 30/1/2018, 18:38

    Faltou o link do arquivo ou anexo do mesmo.


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    avatar
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Redistribuicao de processos

    Mensagem  gabrielpn06 em 30/1/2018, 18:39

    Desculpe, corrigido.
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1141
    Registrado : 05/02/2010

    Redistribuicao de processos

    Mensagem  good guy em 31/1/2018, 11:53

    Olá Gabriel,

    Para mim ainda não aparece o link. Você fez o upload do arquivo ou está redirecionando para outro provedor?
    avatar
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Redistribuicao de processos

    Mensagem  gabrielpn06 em 31/1/2018, 12:09

    Fiz upload. De qualquer forma, segue nova tentativa.
    Anexos
    Gerador de Esteira.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (456 Kb) Baixado 6 vez(es)
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1141
    Registrado : 05/02/2010

    Redistribuicao de processos

    Mensagem  good guy em 31/1/2018, 16:08

    Olá Gabriel,

    Veja se te atende. Teste trocando nomes no formulário.

    NOTA: Não deu pra fazer o upload porque meu espaço de armazenamento foi ultrapassado.

    Código da consulta que criei chamada qryBD_TRIAGEM. No modo SQL de uma consulta nova insira este código. Pelo modo Design vai ficar tudo já montado.

    Código:
    SELECT BD_TRIAGEM.RESPONSÁVEL, BD_TRIAGEM.Data_da_Analise
    FROM BD_TRIAGEM
    WHERE (((BD_TRIAGEM.Data_da_Analise) Is Null));

    Código do botão do formulário que faz a alteração:

    Código:
    Private Sub cmdAlterar_Click()    'Troquei o nome do botão
    On Error Resume Next
    Dim rsProcesso As DAO.Recordset
    Dim ws As DAO.Workspace
    Dim db As DAO.Database
    Dim Trans As Boolean
    Dim sMens As String
    Dim strNomeA As String
    Dim strNomeB As String

    Trans = False
    Set ws = DBEngine.Workspaces(0) 'Referir-se ao Workspace padrão
    Set db = CurrentDb 'Banco de Dados corrente
    Set rsProcesso = db.OpenRecordset("SELECT * FROM qryBD_TRIAGEM", dbOpenDynaset)

    ws.BeginTrans
    Trans = True
       strNomeA = Me.txtDe
        strNomeB = Me.txtPara
        
        rsProcesso.MoveFirst
        Do While Not rsProcesso.EOF
        
            If rsProcesso.Fields("RESPONSÁVEL") = strNomeA Then
                
                    rsProcesso.Edit
                    rsProcesso.Fields("RESPONSÁVEL") = strNomeB
                    rsProcesso.Update
                
                End If
            rsProcesso.MoveNext
            
        Loop
        

    MsgBox ("Distribuição realizada com sucesso!")


    Sair:
    rs.Close
    Set db = Nothing

    Set ws = Nothing

    If Trans = True Then
    Exit Sub
    End If

    Resume Sair


    End Sub


    Última edição por good guy em 5/2/2018, 20:05, editado 1 vez(es)
    avatar
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Redistribuicao de processos

    Mensagem  gabrielpn06 em 31/1/2018, 17:11

    boa tarde mestre, ainda sem sucesso. Sem retorno de erros, simplesmente nao altera os profissionais.
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1141
    Registrado : 05/02/2010

    Redistribuicao de processos

    Mensagem  good guy em 31/1/2018, 17:14

    Olá Gabriel,

    Altera sim porque aqui funciona bem. Estou com um problema para fazer um upload. Me passa seu email em Mensagens Privadas que faço o upload pelo meu provedor de serviços de email.
    avatar
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Redistribuicao de processos

    Mensagem  gabrielpn06 em 31/1/2018, 20:09

    Funcionou perfeitamente mestre! Obrigado!
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1141
    Registrado : 05/02/2010

    Redistribuicao de processos

    Mensagem  good guy em 31/1/2018, 20:36

    Olá Gabriel,

    O fórum todo agradece. Se quiser aprender mais, vai aí uma dica adquira meu livro DOMINE O ACCESS VBA e TÉCNICAS ESPECIAIS DE ACCESS VBA aqui mesmo pelo fórum. Minha sugestão é adquirir na versão e-book.

    [Você precisa estar registrado e conectado para ver este link.]

    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: 20/7/2018, 13:07