REPARAR BANCO DE DADOS - ACCESS

HUBER 03/12/2014 13:55:32
#442963

Olá amigos, última ajuda espero.

Estou tentando colocar um gif animado enquanto realiza a reparação dos dados ok. Coloquei um campo imagem e um timer, coloco no load por exemplo, o gif funciona normalmente, a partir que começa fazer qualquer coisa o gif congela, até se for um msgbox. Tem alguma forma de controlar isso ou usar o gif por outro meio.

LUIZCOMINO 03/12/2014 17:39:24
#442970

amigo, abaixo da linha lblStatus.Refresh use o comando
DoEvents

HUBER 03/12/2014 17:49:52
#442971

Olá..

Já tentei por o DoEvents em todo canto dos fonte e mesmo assim o gif animado trava enquanto copio a base, fontes abaixo.

Source = NomBco
Dest = DirBco & [Ô]\BACKUP_REPARA\[Ô] & [Ô]BACKUP[Ô] & [Ô]_[Ô] & Format(Date, [Ô]DDMMYYY[Ô]) & [Ô]_[Ô] & Format(Time, [Ô]HHMMSS[Ô]) & [Ô].MDB[Ô]

[ô]gif
img1 = App.Path & [Ô]ecupera.gif[Ô]
If LoadGif(img1, Image1) Then
FrameCount = 0
Timer1.Interval = CLng(Image1(0).Tag)
Image1(0).Visible = True: Timer1.Enabled = True
End If

FileCopy Source, Dest