[Resolvido]Tela de Splash com Barra de progresso! Help.

Boa Noite a todos.

Aos mestres de plantão, solicito uma ajuda no sentido de fazer com que um formulário tipo tela de Splash, que após o carregamento da barra de progresso este formulário seja fechado e abra automaticamente o meu Fr_Pricipal, depois de muito bater cabeça consegui criar esta tela de splesh com barra de progresso, só que não me contentei e quis que abrisse o meu formulário principal, eu até consegui só que o formulário principal está abrindo rápido demais, se alguém tiver alguma dica, para implementar esse projeto, vou postar aqui uma cópia do meu projeto.

Desde já agradeço!

https://www.dropbox.com/s/g2nhcezwon9c81w/BarraSplash.mdb

Taí Augusto

Atente para o intervalo do cronômetro na folha de propriedades do formulário.

Abraços

Noob

Bom Dia! É isso mesmo, mais uma vez fico grato a todos que vêm me auxiliando, em especial, você Noobezinho, valeu mesmo.

Ótimo Mano

Valeu o retorno

Boa sorte !


Noob

Desculpe, me empolguei, ao implantar o código no banco de dados está dando erro, [ Erro de copilação: Sub ou Function não definida ]
Em duas Linha: 1- Private Sub Form_Timer() e 2- Pausa(0.0625), eu só troquei o formulário ao abrir após a tela de Splash, dando esse erro.

Se poder dá algum auxilio eu agradeço.

Private Sub Form_Timer()
Dim Escala As Single, I As Integer
'sngPct = varAmt / varTotal
Escala = (9.206 * 567) / 100
'Me.TimerInterval = 350
For I = 1 To 100
If I < 100 Then
'Me.Caption = Int(sngPct * 100) & "%"
Me!cx2.Width = CLng(Escala * I)

Pausa (0.0625)
Else
Me.Caption = "Greater than 100% - Check your amounts"
Me!cx2.Width = CLng(Me!cx1.Width * 1)
Me.TimerInterval = 0
End If
I = I + 1
Next I
Me.TimerInterval = 0
'Call CompactarBD
DoCmd.OpenForm "HOME"
DoCmd.Close acForm, "frm_Splash"
End Sub

Augusto

Copiou o código da função Pausa() para o teu aplicativo?


Noob

Copiei da forma que estava só alterei o nome do formulário que seria aberto após a tela de splash.

Estive dando um olhada nos formatos dos Bd o que está com o Splash funcionando está em Splash.Mdb o meu Bd onde não funciona está em MeuBd.accdb. Não sei tem alguma relação.

Desde já agradeço.

Augusto

Da forma que respondeu, tenho certeza que não copiou  o código da função Pausa()
para o teu aplicativo,copiou somente o código da propriedade Time

O código da função Pausa() está no módulo basico BasPausa

Se não está conseguindo ver ele na janela de navegação, clique no cabeçalho da janela com o botão
direito do mouse e escolha Mostrar todos os grupos

Esse exemplo está no Acc2010 aqui e uso ele desde o Access 2.0 (anterior ao Access 97).
A barra na época era azul.   

Noob

Amigo não sei como te agradecer, cada vez aprendo mais, fico muito grato a você, era isso mesmo, esqueci do código pausa.

Um abraço Valeu !!!

Ótimo, Mano

Boa sorte

Noob