Boa Tarde!!!
Estava procurando para implementação de meu bd uma solução e encontrei este código do Criquio que atende perfeitamente as minhas necessidades, mas gostaria de saber se é possível acrescentar uma caixa de texto no form, e a cada intervalo específico do cronômetro ser apresentado uma msg nesta caixa de texto, não consegui implementar, alguém saberia como, ficaria mais ou menos assim, mas claro que desta forma não esta funcionando:
If Me.cxaContagem.Width < 6000 Then
Me.cxaContagem.Width = Me.cxaContagem.Width + 15
Me.txtContagem = Me.txtContagem + 1
Me.txtContagem = Me.txtContagem + 1 / 400
'1ª mensagem a 5 seg +ou-
ElseIf Me.cxaContagem.Width = 2000 Then
Texto = "Copiando arquivos..."
'2ª mensagem a 10 seg +ou-
ElseIf Me.cxaContagem.Width = 4000 Then
Texto = "Atualizando..."
'3ª mensagem a 15 seg, finalizando
ElseIf Me.cxaContagem.Width = 6000 Then[/color]
Texto = "concluido"
Me.btnOK.Visible = True
Desde já agradeço
Att. Marcelino
Estava procurando para implementação de meu bd uma solução e encontrei este código do Criquio que atende perfeitamente as minhas necessidades, mas gostaria de saber se é possível acrescentar uma caixa de texto no form, e a cada intervalo específico do cronômetro ser apresentado uma msg nesta caixa de texto, não consegui implementar, alguém saberia como, ficaria mais ou menos assim, mas claro que desta forma não esta funcionando:
If Me.cxaContagem.Width < 6000 Then
Me.cxaContagem.Width = Me.cxaContagem.Width + 15
Me.txtContagem = Me.txtContagem + 1
Me.txtContagem = Me.txtContagem + 1 / 400
'1ª mensagem a 5 seg +ou-
ElseIf Me.cxaContagem.Width = 2000 Then
Texto = "Copiando arquivos..."
'2ª mensagem a 10 seg +ou-
ElseIf Me.cxaContagem.Width = 4000 Then
Texto = "Atualizando..."
'3ª mensagem a 15 seg, finalizando
ElseIf Me.cxaContagem.Width = 6000 Then[/color]
Texto = "concluido"
Me.btnOK.Visible = True
Desde já agradeço
Att. Marcelino
Última edição por Marceff@bol.com.br em 14/8/2015, 19:16, editado 1 vez(es)