[(Resolvido) ACCESS 2007 (FrontEnd) SQL SERVER (BackEnd) LOGON (Multius]

Boa noite amigo,

Veja se este sistema de login ajuda no que precisa:

http://www.professorlar.com/contarcliques4..._Telefonica.zip

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

[if dentro do while not]

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