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

    Barra de Rolagem conjunta com Barra Colorida de Gráfico

    Compartilhe

    fnsouza
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 30/06/2014

    Barra de Rolagem conjunta com Barra Colorida de Gráfico

    Mensagem  fnsouza em Ter 22 Ago 2017, 16:36

    Senhores,

    Hoje temos ma avaliação em Excel mas estou migrando para Access e um dos requisitos iniciais é a interatividade de uma barra de avaliação de expectativa.

    Procurei também no site algum exemplo em Access de Avaliação de Desempenho e não encontrei, se alguém tiver eu agradeceria para me ajudar no projeto.

    Segue exemplo em .XLSX, eu não desenvolvi o Access ainda porque estou avaliando se vou conseguir ter os mesmos recursos, pois é um requisito básico para seguir, acho que a parte mais chata nesse projeto é essa interação da barra de rolagem com gráfico e a questão de perfis diferentes (workflow) na avaliação.

    Desde já agradeço a atenção de vocês.

    Grato

    Fabricio
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Barra de Rolagem conjunta com Barra Colorida de Gráfico

    Mensagem  ahteixeira em Ter 22 Ago 2017, 16:56

    Olá Fabricio,
    Faltou o anexo, veja no link abaixo como anexar:
    [Você precisa estar registrado e conectado para ver este link.]
    Abraço

    fnsouza
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 30/06/2014

    Re: Barra de Rolagem conjunta com Barra Colorida de Gráfico

    Mensagem  fnsouza em Ter 22 Ago 2017, 17:06

    Segue anexo novamente, eu esqueci de clicar no botão enviar, desculpe.
    Anexos
    BarraProgressivaColorida.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (48 Kb) Baixado 13 vez(es)

    fnsouza
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 30/06/2014

    Re: Barra de Rolagem conjunta com Barra Colorida de Gráfico

    Mensagem  fnsouza em Qua 23 Ago 2017, 21:06

    Senhores,

    Alguém consegue me ajudar com esse item?

    Grato,

    Fabricio
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Barra de Rolagem conjunta com Barra Colorida de Gráfico

    Mensagem  ahteixeira em Qua 23 Ago 2017, 23:14

    Olá Fabricio,
    Não comsegui abrir o anexo no 2007, para compreender melhor o que tem e pretende fazer em Access.
    Assim que tenha acesso a uma máquina com uma versão superior irei verificar.
    Entretanto aguardamos se mais algum colega pode ajudar.
    Abraço

    fnsouza
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 30/06/2014

    Re: Barra de Rolagem conjunta com Barra Colorida de Gráfico

    Mensagem  fnsouza em Qui 24 Ago 2017, 01:13

    Ahteixeira,

    Segue arquivo na versão inferior 2007 para análise.

    Grato,

    Fabricio
    Anexos
    BarraProgressivaColorida.xls
    Você não tem permissão para fazer download dos arquivos anexados.
    (93 Kb) Baixado 6 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Barra de Rolagem conjunta com Barra Colorida de Gráfico

    Mensagem  ahteixeira em Qui 24 Ago 2017, 20:00

    Olá Fabricio,
    Consegui abrir numa maquina com o Office 2016.
    O problema está na origem dos dados do ficheiro e tenta ligar à origem (Z:\...)

    Consegui ver a imagem abaixo:
    [Você precisa estar registrado e conectado para ver este link.]

    No entanto não compreendo o que faz e o que é que pretendia fazer em Access.
    Talvez seja melhor exemplificar os tipos de dados que usa para analise e o resultado final como é apresentado e descrever um pouco o processo.

    Abraço

    fnsouza
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 30/06/2014

    Re: Barra de Rolagem conjunta com Barra Colorida de Gráfico

    Mensagem  fnsouza em Qui 24 Ago 2017, 20:06

    Ahteixeira,

    O que eu desejo fazer é um formulário com uma barra de rolagem que gere o mesmo efeito que o excel, que a medida que o avaliador mude a régua vá mudando os gráficos de acordo com a avaliação feita.

    Entendeu?

    Grato,

    Fabricio
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Barra de Rolagem conjunta com Barra Colorida de Gráfico

    Mensagem  ahteixeira em Qui 24 Ago 2017, 20:13

    Olá Fabricio,

    Então pretende uma barra com as 4 cores que é ajustada "manualmente"?
    Não seria melhor ter os limites dos valores e gerar automaticamente?
    É com base em registos ou em totalizadores?

    Creio que seja simples simular.
    Veja aqui um exemplo na veritcal, també seria fácil na horizontal:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço

    fnsouza
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 30/06/2014

    Re: Barra de Rolagem conjunta com Barra Colorida de Gráfico

    Mensagem  fnsouza em Qui 24 Ago 2017, 20:20

    Ahteixeira,

    Então é praticamente isso, eu já havia visto o exemplo, o fato é que precisaria de uma barra com as 4 cores para simular os intervalos:

    00-25 - Below Expected
    26-50 - Meet Exectations
    51-75 - Above Expectations
    76-100 - Outstanding Contribution

    Será que e possível colocar a cor com esses intervalos?

    Grato,

    Fabricio
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Barra de Rolagem conjunta com Barra Colorida de Gráfico

    Mensagem  ahteixeira em Sex 25 Ago 2017, 10:44

    Olá Fabricio,

    Dificil foi compreender a dúvida.
    Acho que obtemos o que pretende com quatro caixas de texto e o código abaixo:
    Código:
    Private Sub xValor_AfterUpdate()
    'Alvaro Teixeira  (ahteixeira) 2017 para MaximoAccess
    Dim i As Integer
        
        If IsNull(Me.xValor) Then
            i = -1
        Else
            i = Me.xValor
        End If

            Select Case i
            Case Is < 0
                    Me.barra1.Visible = False
                    Me.barra2.Visible = False
                    Me.barra3.Visible = False
                    Me.barra4.Visible = False
            Case 0 To 25
                    Me.barra1.Visible = True
                    Me.barra2.Visible = False
                    Me.barra3.Visible = False
                    Me.barra4.Visible = False
            Case 26 To 50
                    Me.barra1.Visible = True
                    Me.barra2.Visible = True
                    Me.barra3.Visible = False
                    Me.barra4.Visible = False
            Case 51 To 75
                    Me.barra1.Visible = True
                    Me.barra2.Visible = True
                    Me.barra3.Visible = True
                    Me.barra4.Visible = False
            Case 76 To 100
                    Me.barra1.Visible = True
                    Me.barra2.Visible = True
                    Me.barra3.Visible = True
                    Me.barra4.Visible = True
            Case Is > 100
                    Me.barra1.Visible = False
                    Me.barra2.Visible = False
                    Me.barra3.Visible = False
                    Me.barra4.Visible = False
            End Select
    End Sub

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

    Abraço
    Anexos
    graficoAvaliacaoDesempenho_rev.zip
    Inclusão de código de exemplo da mensagem nº 15
    Você não tem permissão para fazer download dos arquivos anexados.
    (19 Kb) Baixado 3 vez(es)


    Última edição por ahteixeira em Seg 28 Ago 2017, 23:20, editado 1 vez(es)

    fnsouza
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 30/06/2014

    Re: Barra de Rolagem conjunta com Barra Colorida de Gráfico

    Mensagem  fnsouza em Sex 25 Ago 2017, 13:45

    Ahteixeira,

    É quase isso, a única coisa que não está ocorrendo que a barra tem que ir crescendo proporcionalmente ao valores, entre as cores não está diminuindo.

    Por exemplo:

    Se tiver no numero 33 ele deveria ter a primeira cor cheia (vermelho 0-25) + 32% da cor amarela preenchida (que representaria os 8 restantes) e assim sucessivamente.

    Sigo estudando para ver se consigo, já demos um grande passo, muito obrigado pela ajuda.

    Se alguém mais conseguir ajudar, ficarei imensamente feliz pq tenho que entregar segunda isso...rs

    Grato,

    Fabricio
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Barra de Rolagem conjunta com Barra Colorida de Gráfico

    Mensagem  ahteixeira em Sex 25 Ago 2017, 15:24

    Olá Fabricio,
    Obrigado pelo retorno.
    Estou no celular, o principal já foi obtido, e está na hora de por "a mão na massa".
    Com o código que te será fácil ajustar a dimensão da caixa do texto.
    Mais fácil que o exemplo da mensagem n. 9 que ajusta a altura e posição.
    No seu caso é ajustar na largura.

    Abraço

    fnsouza
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 30/06/2014

    Re: Barra de Rolagem conjunta com Barra Colorida de Gráfico

    Mensagem  fnsouza em Sex 25 Ago 2017, 16:29

    Ahteixeira,

    De qualquer forma muito obrigado.

    Vou estudar para ver se resolvo, estou meio enferrujado, sou GP e deixei de programar há anos mas preciso atender uma demanda e esse é um dos pontos pendentes...rs job simples mas complicado.

    Agradecido,

    Fabricio
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Barra de Rolagem conjunta com Barra Colorida de Gráfico

    Mensagem  ahteixeira em Seg 28 Ago 2017, 23:18

    Olá Fabricio,
    Experimente com o código abaixo:
    Código:
    Private Sub xValor_AfterUpdate()
    'Alvaro Teixeira  (ahteixeira) 2017 para MaximoAccess
    'versão aumentar
    Dim i As Integer
       
        If IsNull(Me.xValor) Then
            i = -1
        Else
            i = Me.xValor
        End If

            Select Case i
            Case Is <= 0
                    Me.barra1.Visible = False
                    Me.barra2.Visible = False
                    Me.barra3.Visible = False
                    Me.barra4.Visible = False
            Case 1 To 25
                    Me.barra1.Width = (1680 / 25) * i
                    Me.barra1.Visible = True
                    Me.barra2.Visible = False
                    Me.barra3.Visible = False
                    Me.barra4.Visible = False
            Case 26 To 50
                    Me.barra1.Width = 1680
                    Me.barra2.Width = (1680 / 25) * (i - 25)
                    Me.barra1.Visible = True
                    Me.barra2.Visible = True
                    Me.barra3.Visible = False
                    Me.barra4.Visible = False
            Case 51 To 75
                    Me.barra1.Width = 1680
                    Me.barra2.Width = 1680
                    Me.barra3.Width = (1680 / 25) * (i - 50)
                    Me.barra1.Visible = True
                    Me.barra2.Visible = True
                    Me.barra3.Visible = True
                    Me.barra4.Visible = False
            Case 76 To 100
                    Me.barra1.Width = 1680
                    Me.barra2.Width = 1680
                    Me.barra3.Width = 1680
                    Me.barra4.Width = (1680 / 25) * (i - 75)
                    Me.barra1.Visible = True
                    Me.barra2.Visible = True
                    Me.barra3.Visible = True
                    Me.barra4.Visible = True
            Case Is > 100
                    Me.barra1.Visible = False
                    Me.barra2.Visible = False
                    Me.barra3.Visible = False
                    Me.barra4.Visible = False
            End Select
    End Sub

    Abraço

    fnsouza
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 30/06/2014

    Re: Barra de Rolagem conjunta com Barra Colorida de Gráfico

    Mensagem  fnsouza em Ter 29 Ago 2017, 15:33

    Ahteixeira,

    É exatamente isso ficou perfeito, muitíssimo obrigado.

    Grato,

    Fabricio
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Barra de Rolagem conjunta com Barra Colorida de Gráfico

    Mensagem  ahteixeira em Ter 29 Ago 2017, 15:36

    Olá Fabricio,
    Obrigado pelo retorno, como viu foi só ajustar.

    Não se esqueça de dar o tópico como Resolvido, veja como fazer:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço

      Data/hora atual: Qua 22 Nov 2017, 10:52