MENSAGEM

USUARIO.EXCLUIDOS 01/06/2007 09:49:46
#219303
Ola, como faço para ficar aparecendo uma mensagem de "aguarde..." enquanto execulto um comando
exemplo

with tb
.index = "primarykey"
end with
Do While TBADV.EOF = False
resp = msgbox "Desejar baixar todos os registros?"
if resp = vbyes then
tb.edit
tb("baixado") = sim
tb.update
endif
tb.movenext
loop


gostaria que enquando ele ficasse dando o loop até chegar o fim do registro aparecesse uma tela dizendo aguarde....
USUARIO.EXCLUIDOS 01/06/2007 10:03:21
#219308
O mais simples seria você colocar um label no form, onde acontece esse loop, e colocar a mensagem nele.

Me.lblMensagem.Caption = ""

with tb
.index = "primarykey"
end with
Do While TBADV.EOF = False
resp = msgbox "Desejar baixar todos os registros?"
if resp = vbyes then
tb.edit
tb("baixado") = sim
tb.update
endif
tb.movenext

'Coloquei aqui
Me.lblMensagem.Caption = "Aguarde..."

loop

Me.lblMensagem.Caption = ""
USUARIO.EXCLUIDOS 01/06/2007 10:53:27
#219322
Outra observação, reparei que está fazendo uma pergunta dentro do loop, acho melhor fazer antes, pois se você tiver muitos registros, essas pergunta será feita tantas vezes o número de ocorrências.

Então adaptei assim:


Me.lblMensagem.Caption = ""

with tb
.index = "primarykey"
end with

resp = MsgBox("Deseja baixar todos os registros?", vbQuestion + vbYesNo, "Baixa")

Do While TBADV.EOF = False
If resp = vbYes then
tb.edit
tb("baixado") = sim
tb.update
endif
tb.movenext

'Coloquei aqui
Me.lblMensagem.Caption = "Aguarde..."

loop

Me.lblMensagem.Caption = ""
USUARIO.EXCLUIDOS 01/06/2007 10:57:22
#219323
Pegue este exemplo abaixo...que foi desenvolvido por alguem (nao lembro) que faz parte do VB MANIA



Nao esqueça de pontuar

Att,

Marcelo Bressan
Tópico encerrado , respostas não são mais permitidas
Voltar