if dentro do while not

[Drimi]

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

Editado Julho 15, 2010 por kuroi
Adicionar tag CODE

[kuroi]

você quer por uma msgbox??

acho q seria isso:

tb.MoveFirst

x = 20
Do While Not tb.EOF
    Dim r As Integer

    Do
        MyScreen.SetCursorPos 5, 19
        MyScreen.SendKeys tb!Cpf
        MyScreen.wait (200)
        MyScreen.SendKeys "[ENTER]"

        r = MsgBox("Mensagem", vbYesNo)
    Loop While r <> vbYes

    tba.AddNew[/code]