(Resolvido) Ajuda com formulario login ... cadastrar!

[kennyman]

Galera eu to fazendo um cadastro do login ... quando eu vou cadastrar um usuario q já existi ele da a msg, limpa os campos do formulario e saii ... o meu problema é que quando eu vou tentar cadastrar outro usuario ele não faz nada ... sera q eu tenho q atualizar o form ou o bd ... algo assim?

eu aperto pra cadastrar não faz nada "/

Do While rsUsuario.EOF

If Me.txt_login = rsUsuario!login Then

MsgBox "Login em Uso"

Call limpar

Exit Do

Exit Sub

End If

rsUsuario.MoveNext

Loop

c alguém poder ajudar !

to no aguarde mais preciso com URGENCIA!

[raphael_suporte]

Você faz um select antes com o login do usuário, correto?! então você coloca um if antes do loop ficando assim

if not rsUsuario.eof then ' se ele achar alguém, ele entra no loop
   rsUsuario.moveFirst ' joga ele para o primeiro cara que encontrou
   Do While not rsUsuario.EOF    ' enquanto tiver algum usuario do RecordSet
 '        If Me.txt_login = rsUsuario!login Then ' Essa tela não precisa pois se a pesquisa está sendo feita a partir do login

         rsUsuario.moveNext

 '        end if
    loop
     MsgBox "Login em Uso"
    call Limpar
else     ' Caso não encontre ninguém ele cria um novo cadastro
   Call Cadastro
End If

[kennyman]

Você faz um select antes com o login do usuário, correto?! então você coloca um if antes do loop ficando assim

if not rsUsuario.eof then ' se ele achar alguém, ele entra no loop
   rsUsuario.moveFirst ' joga ele para o primeiro cara que encontrou
   Do While not rsUsuario.EOF    ' enquanto tiver algum usuario do RecordSet
 '        If Me.txt_login = rsUsuario!login Then ' Essa tela não precisa pois se a pesquisa está sendo feita a partir do login

         rsUsuario.moveNext

 '        end if
    loop
     MsgBox "Login em Uso"
    call Limpar
else     ' Caso não encontre ninguém ele cria um novo cadastro
   Call Cadastro
End If

Opa vlw brother!

deuu certo para o que eu estava precisando!

vlw mesmo!