[Resolvido]Abrir formulario apos carregar barra de progresso

Amigos do forum boa noite.
Estou tendo problemas para abrir um form apos carregar a barra de progresso com o seguinte evento no intervalo do cronometro.

Private Sub Form_Timer()
Me.ctlSbfPBH1.Form.Progress
Me.ctlSbfPBH2.Form.Progress
Me.ctlSbfPBH3.Form.Progress
Me.ctlSbfPBH4.Form.Progress
Me.ctlSbfPBV1.Form.Progress
Me.ctlSbfPBV2.Form.Progress
Me.ctlSbfPBV3.Form.Progress
End Sub

Onde colocar o opem form junto nesse codigo?
Agradeço desde ja.

Private Sub Form_Timer()
Me.ctlSbfPBH1.Form.Progress
Me.ctlSbfPBH2.Form.Progress
Me.ctlSbfPBH3.Form.Progress
Me.ctlSbfPBH4.Form.Progress
Me.ctlSbfPBV1.Form.Progress
Me.ctlSbfPBV2.Form.Progress
Me.ctlSbfPBV3.Form.Progress
DoCmd.OpenForm "NomeForm"
End Sub



Assim talvez?

Cumprimentos.

Harysohn boa tarde,
Ja havia tentado dessa forma so que o form abre junto com a barra eu gostaria que depois que a barra fosse carregada fecharia e abriria o form
Tentei colocar DoCmd.Quit e depois o opem mais dessa forma ele nem carrega a barra, tem alguma outra solução?
Um abraço.

Fernando.

Se puder disponibilze as partes envolcidas para que possamos ver.

Cumprimentos.

Olá

Tente:

Código:

Private Sub Form_Timer()
static j as byte
j = j + 1
if j = 1 then Me.ctlSbfPBH1.Form.Progress
if j = 2 then Me.ctlSbfPBH2.Form.Progress
if j = 3 then Me.ctlSbfPBH3.Form.Progress
if j = 4 then Me.ctlSbfPBH4.Form.Progress
if j = 5 then Me.ctlSbfPBV1.Form.Progress
if j = 6 then Me.ctlSbfPBV2.Form.Progress
if j = 7 then Me.ctlSbfPBV3.Form.Progress
if j = 8 then
  j=0
  me.timerInterval =0
  DoCmd.OpenForm "NomeForm"
end if
End Sub

Sucesso!

Ok Harysohn estou anexando o exemplo, alias foi algum amigo aqui do forum que disponibilizou.

Avelino Sampaio quase deu certo o que acontece é que quando começa a carregar a barra para.

Obrigado pela força meus amigos, um abraço.

Olá

Pare este seu exemplo:

Private Sub Form_Timer()
Static j As Integer
j = j + 1
Me.ctlSbfPBH1.Form.Progress
Me.ctlSbfPBH2.Form.Progress
Me.ctlSbfPBH3.Form.Progress
Me.ctlSbfPBH4.Form.Progress
Me.ctlSbfPBV1.Form.Progress
Me.ctlSbfPBV2.Form.Progress
Me.ctlSbfPBV3.Form.Progress
If j = 208 Then
j = 0
Me.TimerInterval = 0
DoCmd.OpenForm "form1"
End If
End Sub

Sucesso!

Avelino boa noite,
Muito obrigado, é exatamente o que eu preciso..
Um abraço!

Pessoal boa tarde, estou exatamente com o mesmo problema, porem com o exemplo acima fiquei com muitas duvidas, alguem tem o exemplo desse (LOADER) pronto para me enviar, tenho um formulário com várias consultas visible.false, porém minha base tem mais de 2 milhoes de linhas divididas em mais de 24 colunas, preciso fazer meu formulário aparecer depois disso carregado... alguem pode ajudar?