Barra de Rolagem conjunta com Barra Colorida de Gráfico

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

Olá Fabricio,
Faltou o anexo, veja no link abaixo como anexar:
https://www.maximoaccess.com/t28813-como-adicionar-arquivo-ficheiro-a-mensagem-no-forum
Abraço

Segue anexo novamente, eu esqueci de clicar no botão enviar, desculpe.

Senhores,

Alguém consegue me ajudar com esse item?

Grato,

Fabricio

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

Ahteixeira,

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

Grato,

Fabricio

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:


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

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

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:
https://www.maximoaccess.com/t30888-exemplo-termometro-grafico-na-vertical

Abraço

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

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

Abraço

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

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

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

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

Ahteixeira,

É exatamente isso ficou perfeito, muitíssimo obrigado.

Grato,

Fabricio

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:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço