AJUDA COM PROGRESSBAR

USUARIO.EXCLUIDOS 12/04/2007 16:35:33
#211568
Preciso da Ajuda de Vcs.

Me ajude a incluir um progressBar nesta rotina de Backup

Private Sub cmdAtualizar_Click()
cmdAtualizar.Enabled = False
cmdFechar.Enabled = False

Dim Resp As Byte
Resp = MsgBox("Confirma a Exportação dos Dados", vbYesNo + vbQuestion, Me.Caption)
If Resp = 7 Then
cmdAtualizar.Enabled = True
cmdFechar.Enabled = True
Exit Sub
Else
cmdAtualizar.Enabled = False
cmdFechar.Enabled = False
End If
'-----------Backup-----------
Label2.Visible = True
Label2.Caption = "Aguarde, efetuando Backup dos dados..."
Label2.Refresh

'Aqui começa o Backup onde quero colocar o progressBar

Dim ac As Access.Application
Set ac = New Access.Application

'Indica o caminho do Banco de Dados e faz a conexao com as tabelas
Caminho = ReadINI("Caminho", "BD", App.Path & "\CooperNet.ini")

ac.OpenCurrentDatabase (Caminho)
ac.Visible = False
ac.DoCmd.RunMacro "Exportador"

'-----------Fim de Backup-------------
Data1.Database.Execute "DELETE Voucher FROM TblVoucherCarimbado"
Data2.Database.Execute "DELETE Voucher FROM TblCadastroImpRenda"
Data3.Database.Execute "DELETE Voucher FROM TblCadastroInss"
cmdAtualizar.Enabled = False
cmdFechar.Enabled = True
MsgBox "Exportação feita com sucesso!", vbInformation, Me.Caption
End Sub



Obrigado
Marcelino Neto
DIOGENES.DIAS 12/04/2007 17:14:36
#211580 Resposta escolhida
A questão é:
Você está a executar um macro do access, não tem como utilizar isso em com uma progressbar em VB.

Mas uma dica: Uma progressbar necessita de dois valores básicos, primeiro o número máximo de registros que irá compor a progressbar, segundo o valor actual do registro para que a progressbar possa mostrar onde se encontra a barrinha de progresso. Normalmente em um loop isto fica fácil de se resolver.

Ex.:
Progressbar.Max = 100 'Valor máximo
Progressbar.Value = 0 'Valor mínimo e inicial
For i = 1 to 100
Progressbar.Value = i 'Aqui temos o valor atual da progressbar
Next

That's All
DAVID.SP 12/04/2007 22:19:39
#211619
Caro amigo Diogenes,

Fiquei surpreso de como usar o progress tb.
Eu fiz o seu exemplo aqui, mas não teria como o progress ir andando conforme o processo??
USUARIO.EXCLUIDOS 13/04/2007 01:23:21
#211640
Cara, da forma como tá aí, vai ser difícil colocar uma progressbar mesmo, mas diz aí, o que tem nesse macro Exportador?
Tópico encerrado , respostas não são mais permitidas
Voltar