[Resolvido]Barra de Progresso de Acordo com Data/Dias

Ola amigos do forum, sou novo aqui e espero ter postado minha duvida no local correto.
Ja pesquisei no forum sobre o assunto mas nao encontrei nada que se relacionase com o que preciso.

Tenho um formulario que contem as informacoes de ordem de servico, neste formulario tenho duas text box, uma com data prevista de entrada e outra com data prevista de saida.

O que preciso e de uma barra de progresso que me mostre a evolucao deste trabalho dia apos dia.

Espero ter sido bem claro.

Aguardo ajuda de todos, Muito obrigado

Denis, seje benvindo!

Informe a versão do Access que esta sendo utilizado

Aguardamos

Ola Avelino.

Muito grato pelo pronto atendimento, estou usando access 2003

vai uma idéia.

Crie uma controle CAIXA de 5 cm. Configure esta caixa para ficar com a cor do fundo desejado. Esta será a sua barra.

Divida o comprimento da barra (5 cm) pelos dias totais de serviço. Assim vc terá a escala da sua barra.

Depois é só contar os dias que se passaram, multiplicado pela escala.

Algo assim, na programação:

Private Sub tx2_AfterUpdate()
Dim x
Dim y
x = (567 * 5) / DateDiff("d", Me!tx1, Me!tx2) 'escala
y = DateDiff("d", Me!tx1, date) 'dias transcorridos
Me!Caixa.Width = x * y 'barra de progresso
End Sub

tente aí a montagem. Se não conseguir, retorne.

Sucesso!

Grande Avelino
De inicio funcionou perfeitamente, ja fiz uns testes alterando as datas e parece que esta tudo ok.

Agora gostaria de dificltar um pouco, pelo meno pra mim, rsrsrs

No meio da barra de progresso, quero colocar uma text box que me informe quantos dias falta para o termino do projeto.
porem quero que ele fique em numero de dias.
E gostaria tambem que a barra mudasse de cor quando o prazo estourar, por exemplo se o projeto passar da data a barra fique vermelha.

Muito Obrigado

Use um controel "rótulo" ao invez da caixa de texto para receber os dias. Posicione o rótulo sobre a barra, centralizado

Veja as modificações

Private Sub tx2_AfterUpdate()
Dim x
Dim y
x = (567 * 5) / DateDiff("d", Me!tx1, Me!tx2)
y = DateDiff("d", Me!tx1, #11/25/2012#)
Me!Rótulo9.Caption = y & " dias"
If y > x Then
Me!Caixa.BackColor = vbRed 'vermelho
Else
Me!Caixa.BackColor = RGB(34, 177, 76) 'verde
End If
Me!Caixa.Width = x * y
End Sub


Sucesso!

Certo..

Vou conseguir fazer esta alteracao so amanha agora.

Uma Duvida

Na Linha

x = (567 * 5) / DateDiff("d", Me!tx1, Me!tx2)

o Numero 5 refere-se ao comprimento da Barra, e o 567 o que seria?

No caso eu coloquei minha barra com 25 cm para ficar na largura do formulario, eu deveiria alterar este 567?

Quanto ao rotulo, e coloco um para receber o valor de dias e outro com a descricao, correto?

No rotulo de descricao seria " Numero de dias para o fim do prazo" "rotulo com numero de dias"

Quando o prazo ultrapassar gostaria que a barra fique vermelha, e o rotulo de descricao altere para "seu prazo estourou em" "rotulo com dias"

Mais uma vez, muito obrigado.

O valor do centimetro para o VBA é 566,9291

25 cm no VBA é então a multiplicação de 567 * 25

Pode utilizar apenas um rótulo.

Novo exemplo

Private Sub tx2_AfterUpdate()
Dim x
Dim y
x = (567 * 25) / DateDiff("d", Me!tx1, Me!tx2)
y = DateDiff("d", Me!tx1, date)
If y > x Then
Me!Caixa.BackColor = vbRed 'vermelho
Me!NomeDoRótulo.Caption = "Seu prazo estourou em: " & y-x & " dia(s)"
Else
Me!NomeDoRótulo.Caption = "Numero de dias para o fim do prazo: " & y & " dia(s)"
Me!Caixa.BackColor = RGB(34, 177, 76) 'verde
End If
Me!Caixa.Width = x * y
End Sub

Sucesso!

Ola Avelino, Bom Dia

Muito obrigado pela ajuda, foi de muita serventia, sem elas nao conseguiria o resultado esperado.
baseado no codigo que me passou, fiz algumas adaptacoes, estou colocando abaixo pra voce ver como ficou

Private Sub Barra_progresso()
Dim x
Dim y
Dim z
Dim falta_dias
Dim prazo_vencido

'Escala da Barra de Progresso-------------------------------------------------------------------------------------
x = (567 * 23) / DateDiff("d", Me.txt_data_entrada, Me.txt_data_saida) ' Escala da Barra

'Calculo de dias da date de entrada ate hoje------------------------------------------------------------------------
y = DateDiff("d", Me.txt_data_entrada, Date)

'Calculo de dias totais para o Plano de Teste-----------------------------------------------------------------------
z = DateDiff("d", Me.txt_data_saida, Me.txt_data_entrada) * (-1)

'Calculo de dias para o fim do teste--------------------------------------------------------------------------------
'falta_dias = DateDiff("d", Me.txt_data_saida, Date) '* (-1)

'Calculo do Prazo Vencido-------------------------------------------------------------------------------------------
prazo_vencido = DateDiff("d", Me.txt_data_saida, Date)

'Se data de hoje for maior que data de saida = prazo vencido--------------------------------------------------------
If Date > Me.txt_data_saida Then
falta_dias = DateDiff("d", Me.txt_data_saida, Date)
Me.Caixa.BackColor = vbRed 'Vermelho
Me.txt_prazo.Caption = "Este Plano de Teste esta com o Prazo Vencido em " & falta_dias & "dia(s)"
Me.Caixa.Width = (x * y) - (x * prazo_vencido)

'Se data de hoje for menor que data de saida esta dentro do prazo---------------------------------------------------
ElseIf Date <= Me.txt_data_saida Then
falta_dias = DateDiff("d", Me.txt_data_saida, Date) * (-1)
Me.Caixa.BackColor = RGB(34, 177, 76)
Me.txt_prazo.Caption = "Faltam " & falta_dias & " dia(s) para o fim do prazo estimado para o fim do Plano de Teste"
Me.Caixa.Width = x * y
End If

End Sub

Tenho certeza que em breve precisarei da ajuda do forum novamente. fui muito bem recebido

Mais uma vez, Obrigado

Denis, obrigado pelo feedback e sucesso!