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