Drimi

Eu preciso ver este exemplo é possivel encaminhar uma copia o link não da acesso. Grato

Bom dia! Pessoal estou com duvidas não sei nada de VB mas sou curiosos em aprender. Abaixo a parte de processos tb.MoveFirst x = 20 Do While Not tb.EOF MyScreen.SetCursorPos 5, 19 MyScreen.SendKeys tb!Cpf MyScreen.wait (200) MyScreen.SendKeys "[ENTER]" aqui é onde eu quero inserir o if se ele verifica a mensagem bla bla bla voltar no MyScreen.SetCursorPos 5, 19 .... se não continua o fluxo tba.addnew .... tba.AddNew tba!Cpf = tb!Cpf MyScreen.wait (200) tba!Cpf = Trim(MyScreen.gettext(5, 13, 15)) tba!Contrato = Trim(MyScreen.gettext(15, 12, 14)) MyScreen.wait (200) MyScreen.SendKeys "[PF10]" MyScreen.wait (200) tba!Cpf = Trim(MyScreen.gettext(5, 12, 15)) MyScreen.wait (200) tba.Update MyScreen.wait (200) tb.MoveNext Loop MsgBox "Pesquisa Concluída com Sucesso, Cadastrar Loja" Exit Sub End Sub no aguardo! Abraço