VBA - INTERROMPER TOTALMENTE O CODIGO

MARCELO.TREZE 22/06/2011 14:09:06
#377528
para ele não voltar para sub A

na sub A você deverá chamar a sub B no final

Sub A()
...os codigos

...
..

Call B
End sub
ALELUIZ 22/06/2011 14:17:56
#377530
Mesmo assim ele retornar na Sub A exatamente em End Sub após executar a Sub B .
LLAIA 22/06/2011 14:20:29
#377531
AHUAhUAHauAHUahUHauAHUahUAHUaHAUHau ... tá engraçado.

Cara o que vc tá querendo, creio que seja impossível, pois na execução da sub A, ela é interrompida com a chamada da sub B, e ao terminar B, o conjunto de instruções que tá memória que vai continuar executando vai ser da sub A. Não tem jeito. Esse comportamento é natural até para permitir recursividade.

Acho que o que precisamos aqui pra te ajudar, é vc informar o que vc está querendo com isso?
ALELUIZ 22/06/2011 14:47:13
#377536
kkkkkkk estou crendo que quase impossivel mesmo, seria algo igual ao comando end , mas sem fechar o aplicativo.

Tentarei explicar ou confundir mais rsrsrsrs

form / VBA

no form tem um campo TXCodigo que o usuário por meio de um leitor optico insere o codigo de barras ,
após isto é disparado abrir uma página web no webbrowser.
neste pornto acontece o problema
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
pegadados
end sub


Após a pagina ser carregada ela chama a sub pegadados(copio os dados da web para BD) , depois dela ser executada retorna para [ô]Private Sub WebBrowser1[ô] bem como o FOCO para o objeto , por mais que eu queira não tem santo que faça o FOCO retornar para TXCodigo automaticamnete para que o usuário insira novo codido de barras.

Assim chegei a idéia de quando estivesse rodando a Sub Pegadados ele mandava o foco para o campo txcodigo e STOP não retorna-se para o maldito [ô]Private Sub WebBrowser1[ô]

OOO Vida amargurada ........
ALELUIZ 22/06/2011 14:58:51
#377540
Postando mais uma parte para melhor entendimento ...
Sub ChamaPagina()
    WebBrowser2.Navigate [Ô]https://www.xxxxxxxx.com.br/scripts/cgiip.exe/WService=wsbroker2/act_rel_movimento_corretor.htm?hid_cod_empresa=01[Ô]
End Sub
Private Sub WebBrowser2_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    pegadados
End Sub
Sub pegadados()
Dim fs, f
TxWeb = WebBrowser1.Document.Body.InnerText
[ô]bla bla bla
[ô]bla bla bla
[ô]bla bla bla
[ô]bla bla bla
TxCodigo.SetFocus
[ô]QUERIA PARAR O CODIGO AKI, POIS ELE RETORNA PARA O WEBBROSER E PERDE O FOCO DO TXCODIGO

End Sub
MITSUEDA 22/06/2011 15:05:06
#377542
Private Sub WebBrowser2_DocumentComplete(ByVal pDisp As Object, URL As Variant)
pegadados
TxCodigo.SetFocus
End Sub
ALELUIZ 22/06/2011 15:09:51
#377546
Citação:

:
Private Sub WebBrowser2_DocumentComplete(ByVal pDisp As Object, URL As Variant)
pegadados
TxCodigo.SetFocus
End Sub



não da certo , como Private Sub WebBrowser2_DocumentComplete é um objeto e está sendo executado ele não transfere o FOCO
MITSUEDA 22/06/2011 15:45:29
#377552
Fiz testes aqui utilizando o mesmo evendo do webbrowser e o foco foi para o textbox
ALELUIZ 22/06/2011 16:05:42
#377556
criei i problema neste arquivo teste, note que na 1ª excecução o text recebe o foco se executado outras vezes o foco fica na página do google ......
Página 3 de 3 [29 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar