VERIFICAR SE O USUARIO JA EXISTE NA HORA DE CADAST
verificar se o usuario ja existe na hora de cadastrar.
bom dia amigos
como eu faço na hora de cadastrar se ja existir o nome mostra uma msg [Ô]esse usuario ja existe[Ô]
fico no aguardo.....
bom dia amigos
como eu faço na hora de cadastrar se ja existir o nome mostra uma msg [Ô]esse usuario ja existe[Ô]
fico no aguardo.....
Sei que você vai ficar bravo,esse cara é chato,
carne de pescoço.Masssssssssssssssssssssssssss?
O que está precisando é de raciocÃnio.Pesquise
primeiro,quando não conseguir pede ajuda.
Tem vários exemplos aqui no site,macoratti e
outros.
Mateus 23:23
Hebreus 7
Galatas 2:16
Galatas 4:4,9
carne de pescoço.Masssssssssssssssssssssssssss?
O que está precisando é de raciocÃnio.Pesquise
primeiro,quando não conseguir pede ajuda.
Tem vários exemplos aqui no site,macoratti e
outros.
Mateus 23:23
Hebreus 7
Galatas 2:16
Galatas 4:4,9
isso é simples...
if txtusuario.text = usuariobd then
msgbox usuario ja cadastrado
end if
if txtusuario.text = usuariobd then
msgbox usuario ja cadastrado
end if
rsrsrsrs, ta bom meu amigo vc ta certissimo......
eu preciso fazer mais pesquisas e deixar um pouquinho de preguiça kkk
obrigado pela força!
e Deus te abençoe ricamente....
eu preciso fazer mais pesquisas e deixar um pouquinho de preguiça kkk
obrigado pela força!
e Deus te abençoe ricamente....
amigão faça o mesmo select do login filrando só o usuario sem a senha
Sql=[Ô] select do login filrando só o usuario sem a senha[Ô]
if rs.eof then
[ô]Cadastrar
else
msgbox([Ô]Usuario Já Cadastrado[Ô])
end if
abraço!
Sql=[Ô] select do login filrando só o usuario sem a senha[Ô]
if rs.eof then
[ô]Cadastrar
else
msgbox([Ô]Usuario Já Cadastrado[Ô])
end if
abraço!
cara, a logica é simples, vc passa um loop na tabela de usuarios, se achar algum usuario igual ao que vc digitou, manda msg, sai do programa, desliga a maquina, kkkkkk, faz oq vc quiser.. clareo?
então luiz eu fiz como vc me falou:
então continua gravando nomes repetidos...
Citação:Sql=[Ô] select do login filrando só o usuario sem a senha[Ô]
if rs.eof then
[ô]Cadastrar
else
msgbox([Ô]Usuario Já Cadastrado[Ô])
end if
então continua gravando nomes repetidos...
posta seu cosigo..
tenta este aqui
MskCliCodigo.Caption = Format(MskCliCodigo.Caption, [Ô]00000[Ô])
TBClientes.Index = [Ô]código[Ô]
TBClientes.Seek [Ô]=[Ô], MskCliCodigo.Caption
If TBClientes.NoMatch = False Then
MsgBox [Ô]Já existe um Cliente com este Código![Ô], vbInformation, [Ô]inclusão[Ô]
MskCliCodigo.Caption = [Ô] [Ô]
[ô][ô]MskCliCodigo.SetFocus
End If
TBClientes.Index = [Ô]Nome[Ô]
End Sub
MskCliCodigo.Caption = Format(MskCliCodigo.Caption, [Ô]00000[Ô])
TBClientes.Index = [Ô]código[Ô]
TBClientes.Seek [Ô]=[Ô], MskCliCodigo.Caption
If TBClientes.NoMatch = False Then
MsgBox [Ô]Já existe um Cliente com este Código![Ô], vbInformation, [Ô]inclusão[Ô]
MskCliCodigo.Caption = [Ô] [Ô]
[ô][ô]MskCliCodigo.SetFocus
End If
TBClientes.Index = [Ô]Nome[Ô]
End Sub
RICKSOUSA 1 indexa o capo nome e codigo insira a busca no modo lostfocus da sua txt e quando voce for tentar pular para o proximo ele vai checar se se existir exibe a mensagem se não passa para a proxima txt
qualquer coisa posta!
ou mande o seu codigo que eu testo e faço as modificações
qualquer coisa posta!
ou mande o seu codigo que eu testo e faço as modificações
bom dia meus amigos,
demorei mais voltei, então ai segue o codigo abaixo:
[txt-color=#0000f0]Conecta True
Dim RS As Recordset
Dim sSQL As String
sSQL = [Ô]SELECT * FROM CadSenhas Where nome=[Ô] & [Ô][ô][Ô] & txtUserName & [Ô][ô][Ô]
Set RS = Conexao.Execute(sSQL)
If CStr(txtCsenha.Text) <> CStr(txtSenha.Text) Then
MsgBox [Ô]Senha não confere com a mesma![Ô], vbCritical, [Ô]Login![Ô]
Else
If cboFuncao.Text = [Ô]Escolha a Função[Ô] Then
MsgBox [Ô]Qual é a sua Função?, Você precisa escolher sua Função![Ô], vbCritical, [Ô]Aviso![Ô]
Exit Sub
Else
If RS.EOF Then
GravaDados
Else
MsgBox ([Ô]Usuario Já Cadastrado[Ô])
txtNome.SetFocus
End If
End If
End If
Conecta False
[/txt-color]
fiz da maneira que o amigo luiz comino disse, mais esta cadastrando um nome duplicado ex....
se eu cadastrar Ricardo
1 - Ricardo
2 - Ricardo
e assim por diante, Luiz carlos como eu faço para indexar?
eu quero fazer algo da seguinte maneira, verificar oq esta digitado na textbox e comparar com o banco, se tiver um registro igual o da textbox então mostra a mensagem se não grava os dados!
demorei mais voltei
, então ai segue o codigo abaixo:[txt-color=#0000f0]Conecta True
Dim RS As Recordset
Dim sSQL As String
sSQL = [Ô]SELECT * FROM CadSenhas Where nome=[Ô] & [Ô][ô][Ô] & txtUserName & [Ô][ô][Ô]
Set RS = Conexao.Execute(sSQL)
If CStr(txtCsenha.Text) <> CStr(txtSenha.Text) Then
MsgBox [Ô]Senha não confere com a mesma![Ô], vbCritical, [Ô]Login![Ô]
Else
If cboFuncao.Text = [Ô]Escolha a Função[Ô] Then
MsgBox [Ô]Qual é a sua Função?, Você precisa escolher sua Função![Ô], vbCritical, [Ô]Aviso![Ô]
Exit Sub
Else
If RS.EOF Then
GravaDados
Else
MsgBox ([Ô]Usuario Já Cadastrado[Ô])
txtNome.SetFocus
End If
End If
End If
Conecta False
[/txt-color]
fiz da maneira que o amigo luiz comino disse, mais esta cadastrando um nome duplicado ex....
se eu cadastrar Ricardo
1 - Ricardo
2 - Ricardo
e assim por diante, Luiz carlos como eu faço para indexar?
eu quero fazer algo da seguinte maneira, verificar oq esta digitado na textbox e comparar com o banco, se tiver um registro igual o da textbox então mostra a mensagem se não grava os dados!
Tópico encerrado , respostas não são mais permitidas