[Resolvido]Ao terminar processo mostrar mensagem "Processo concluido"

Olá meus caros,mais uma vez peço a ajuda dos senhores.É que eu montei um singelo sistema de backup,atraves dos modelos postados neste forum,mas estou com um problema.No meu formulário coloquei uma barra de progresso e gostaria que no terminar do progresso da barra de progresso aparecesse a mensagem "concluido" com um botão de ok para fechar meu formulario.Tentei colocar uma msgbox no botão "realizar backup" mais a mensagem aparece antes de terminar o progresso da barra.
Desde já grato.

Poste o código para o pessoal ajudar.

Os códigos são o seguinte:



Private Sub backup_Click()

Me.progresso.Width = 1
TimerInterval = 1
Me.TxtProgresso.Value = 0
Me.backup.Visible = True

MsgBox "AGUARDE.....", vbOKOnly + vbInformation, "Backup em andamento"

DoCmd.Close

Call BackBD

.............................................................................

Private Sub Comando3_Click()
DoCmd.Close
End Sub


..............................................................................


If Me.progresso.Width < 6000 Then
Me.progresso.Width = Me.progresso.Width + 15
Me.TxtProgresso = Me.TxtProgresso + 1 / 400
ElseIf Me.progresso.Width = 6000 Then
TimerInterval = 0

End If

End Sub


Agradeço a atenção...

A msgbox está antes da conclusão do código

Tente assim:

Me.progresso.Width = 1
TimerInterval = 1
Me.TxtProgresso.Value = 0
Me.backup.Visible = True

Call BackBD

MsgBox "AGUARDE.....", vbOKOnly + vbInformation, "Backup em andamento"

DoCmd.Close


Ou

If Me.progresso.Width < 6000 Then
Me.progresso.Width = Me.progresso.Width + 15
Me.TxtProgresso = Me.TxtProgresso + 1 / 400
ElseIf Me.progresso.Width = 6000 Then
TimerInterval = 0
MsgBox "AGUARDE.....", vbOKOnly + vbInformation, "Backup em andamento"
DoCmd.Close
End If

Não ficou muito claro seu código, mas tente para ver.

Fiz o que você sugeriu mas não mudou nada, a mensagem continua aparecendo no mesmo momento em que a barra de progresso está rodando.Vou fazer o seguinte,vou mandar o formulário para que você veja a situação.


Tentei anexar meu arquivo mas não consegui.Me desculpe a ignorância mas poderia me dizer como faço para anexa-lo a minha mensagem?
Desde já grato.

Podes criar uma conta no www.dropbox.com e colocar o arquivo em uma pasta publica e nos dizer o link.

Link do arquivo...


http://dl.dropbox.com/u/68021021/backup.rar

Para ser claro gostaria que esta msgbox que aparece aí durante o processo aparecesse somente no final como "processo concluido" ou "backup realizado com sucesso"
Desde já muitíssimo obrigado pela atenção!

Esta ai o código completo.

Function BackBD()
'elaborado por: JPaulo - 11/10/2006
'objectivo: criar (1) uma copia de segurança por mês
' pode ser alterado para (1) uma por dia, ou uma (1) por ano, para
'isso basta alterarem o Format(Now(), "_mmyyyy") para Format(Now(), "_ddmmyyyy")
'O caminho tem de ter o nome da pasta, neste caso Backup e o nome que querem dar
' à MDB da cópia.
On Error Resume Next
Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "C:\BackMDB\Backup" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "\backup.accdb", Caminho & Format(Now, "_ddmmyyyy") & ".accdb"
End Function



Private Sub backup_Click()
Me.progresso.Width = 1
TimerInterval = 1
Me.txtprogresso.Value = 0
Me.backup.Visible = True
Call BackBD
End Sub

Private Sub Comando3_Click()
DoCmd.Close
End Sub

Private Sub Form_Timer()
Me!Reloj.Caption = Format(Now, "Dddd d Mmmm yyyy,hh:mm:ss AMPM")
If Me.progresso.Width < 6000 Then
Me.progresso.Width = Me.progresso.Width + 15
Me.txtprogresso = Me.txtprogresso + 1 / 400
ElseIf Me.progresso.Width >= 6000 Then
MsgBox "Concluido.....", vbOKOnly + vbInformation, "Backup em andamento"
DoCmd.Close
End If
End Sub

Funcionou perfeitamente!Muito obrigado.
...só mais uma coisa,poderia me explicar o "porque da questão"?Tentei de tantas formas...

Observe a parte vermelha, foi ali que encontrei o problema pois o código estava indo até 6001.