VERIFICAR SE O USUARIO JA EXISTE NA HORA DE CADAST
Cara, faz um teste pra ver se ele pelo menos acha alguma coisa no BD..
Coisinha boba, só pra tira dúvida né..
Do Wihle Not rs.EOF = True
If txtUsuario = rs!Usuario Then
MsgBox[Ô]Usuário encontrado![Ô]
Else
MsgBox[Ô]O Usuário não foi encontrado![Ô]
End If
Exit Do
rs.MoveNext
Loop
Coisinha boba, só pra tira dúvida né..
amigos foi resolvido aqui, eu agradeço a ajuda de todos.
meu amigão marcelo deu uma super força , vou compartilhar:
[txt-color=#0000f0] If[/txt-color][txt-color=#e80000] (RS.EOF = True And RS.BOF = True)[/txt-color] [txt-color=#0000f0]Then
Conexao.Execute [Ô]INSERT INTO CadSenhas (Nvendedores,nome, funcao, senha) VALUES[Ô] & _
[Ô]([ô][Ô] & txtCod & [Ô][ô],[ô][Ô] & Replace(txtNome, [Ô][ô][Ô], [Ô][ô][ô][Ô]) & [Ô][ô],[ô][Ô] & (Left(cboFuncao, 1)) & [Ô][ô],[ô][Ô] & Replace(txtSenha, [Ô][ô][Ô], [Ô][ô][ô][Ô]) & [Ô][ô])[Ô]
Unload Me
Else
MsgBox ([Ô]Usuario Já Cadastrado[Ô])[/txt-color]
e agora ta funcionando belezinha...
meu amigão marcelo deu uma super força , vou compartilhar:
[txt-color=#0000f0] If[/txt-color][txt-color=#e80000] (RS.EOF = True And RS.BOF = True)[/txt-color] [txt-color=#0000f0]Then
Conexao.Execute [Ô]INSERT INTO CadSenhas (Nvendedores,nome, funcao, senha) VALUES[Ô] & _
[Ô]([ô][Ô] & txtCod & [Ô][ô],[ô][Ô] & Replace(txtNome, [Ô][ô][Ô], [Ô][ô][ô][Ô]) & [Ô][ô],[ô][Ô] & (Left(cboFuncao, 1)) & [Ô][ô],[ô][Ô] & Replace(txtSenha, [Ô][ô][Ô], [Ô][ô][ô][Ô]) & [Ô][ô])[Ô]
Unload Me
Else
MsgBox ([Ô]Usuario Já Cadastrado[Ô])[/txt-color]
e agora ta funcionando belezinha...
Tópico encerrado , respostas não são mais permitidas