[Resolvido]laoder . . .

boas
tenho uma barra de progressão ( laoder ) a questão é que não consigo colocar a mês a abrir o form pretendido após terminar a progressão . . .
código :

Option Compare Database
Dim intLarguraTotalDaBarraDeProgresso As Integer

Private Sub Form_Load()
intLarguraTotalDaBarraDeProgresso = Me.shpProgressBar.Width
Me.shpProgressBar.Width = 0
Me.TimerInterval = 10 'este valor define a velocidade com que
'a barra de progresso se move.
End Sub

Private Sub Form_Timer()
If Me.shpProgressBar.Width >= intLarguraTotalDaBarraDeProgresso Then
'Aqui o código que será disparado quando a barra de progresso
'atingir a largura total.
Me.shpProgressBar.Width = intLarguraTotalDaBarraDeProgresso
Me.TimerInterval = 0
Else
Me.shpProgressBar.Width = Me.shpProgressBar.Width + 30
End If
End Sub

https://www.dropbox.com/s/h4cj4ljmxmwcdco/laoder.rar?dl=0
( link )
Obrigado

No evento ao fechar coloque o seguinte código

Código:

docmd.openform "Seu Formulário aqui"

Obrigado pela tentativa de ajuda . . . mas não funcionou. O form não fecha.

Veja se isso resolve amigo

https://www.dropbox.com/s/zdv6jyf70akhid0/laoder1.rar?dl=0

Obrigado...
Servir serve mas fica a ampulheta do mouse no access e não sai . . .

Código para o form loader

Option Compare Database
Dim intLarguraTotalDaBarraDeProgresso As Integer

Private Sub Form_Load()
intLarguraTotalDaBarraDeProgresso = Me.shpProgressBar.Width

Me.shpProgressBar.Width = 0
Me.TimerInterval = 10 'este valor define a velocidade com que
'a barra de progresso se move.

End Sub

Private Sub Form_Timer()
If Me.shpProgressBar.Width >= intLarguraTotalDaBarraDeProgresso Then
'Aqui o código que será disparado quando a barra de progresso
'atingir a largura total.
Me.shpProgressBar.Width = intLarguraTotalDaBarraDeProgresso
Me.TimerInterval = 0
DoCmd.Close
DoCmd.OpenForm "Teste"
Else
Me.shpProgressBar.Width = Me.shpProgressBar.Width + 30
End If

End Sub

Tente agora

https://www.dropbox.com/s/iijjgp9f0frmyzu/laoder2.rar?dl=0

Obrigado aos 2 . . . Segui o Código do Assis. Obrigado na mesma Teddy... Abraço

Resolvido.