ASP CLASSICO ASP.NET C# SQL / DATABASE VB / VBA VB.NET Todos os fóruns 

IMPEDIR DUPLICADO

 Tópico anterior Próximo tópico Novo tópico

IMPEDIR DUPLICADO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
Resposta escolhida #470499 - 09/01/2017 12:50:39

MARCELO-TREZE
SAO VICENTE
Cadast. em:Abril/2009


Última edição em 09/01/2017 12:53:45 por MARCELO-TREZE

tenta ai

'Declaração
Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset

Private Sub txtNome_LostFocus()
Dim sSQL As String
sSQL = "SELECT Nome FROM tblDados Where Nome ='" & txtNome.Text & "'"
Set Rst = Cnn.Execute(sSQL)

If (Rst.EOF And Rst.BOF) then
'GravaDados
    Else
MsgBox  "Usuario Já Cadastrado"
            txtNome.SetFocus
End If

End Sub



________________________________________________________________________________________
Curso de Excel e VB6 http://www.cursoexcelvba.com.br

#470516 - 09/01/2017 17:43:02

FANYSLZ
SAO LUIS
Cadast. em:Janeiro/2017


 Anexos estao visíveis somente para usuários registrados

Citação:
:
tenta ai

'Declaração
Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset

Private Sub txtNome_LostFocus()
Dim sSQL As String
sSQL = "SELECT Nome FROM tblDados Where Nome ='" & txtNome.Text & "'"
Set Rst = Cnn.Execute(sSQL)

If (Rst.EOF And Rst.BOF) then
'GravaDados
    Else
MsgBox  "Usuario Já Cadastrado"
            txtNome.SetFocus
End If

End Sub



Deu erro...

Segue o exemplo para teste.




Fany

#470517 - 09/01/2017 17:52:44

FANYSLZ
SAO LUIS
Cadast. em:Janeiro/2017


 Anexos estao visíveis somente para usuários registrados

Citação:
:
:
tenta ai

'Declaração
Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset

Private Sub txtNome_LostFocus()
Dim sSQL As String
sSQL = "SELECT Nome FROM tblDados Where Nome ='" & txtNome.Text & "'"
Set Rst = Cnn.Execute(sSQL)

If (Rst.EOF And Rst.BOF) then
'GravaDados
    Else
MsgBox  "Usuario Já Cadastrado"
            txtNome.SetFocus
End If

End Sub



Deu erro...

Segue o exemplo para teste.




Segue o banco de dados.

Fany

#470520 - 09/01/2017 18:23:51

SINCLAIR
CRICIUMA
Cadast. em:Janeiro/2001


FANYSLZ,

Você disse:

"Deu erro"
"Segue exemplo para teste"
"Segue o banco de dados".

Sinceramente, não teve um tempinho para dizer "boa tarde" para os colegas que, tão gentilmente, têm te respondido e procurado auxiliar?


Euzébio Cruz
Criciúma - SC


#470521 - 09/01/2017 18:27:44

FANYSLZ
SAO LUIS
Cadast. em:Janeiro/2017


Citação:
:
FANYSLZ,

Você disse:

"Deu erro"
"Segue exemplo para teste"
"Segue o banco de dados".

Sinceramente, não teve um tempinho para dizer "boa tarde" para os colegas que, tão gentilmente, têm te respondido e procurado auxiliar?



Desculpe! Boa Tarde.

Fany

#470522 - 09/01/2017 18:30:28

MARCELO-TREZE
SAO VICENTE
Cadast. em:Abril/2009


 Anexos estao visíveis somente para usuários registrados

testa ai



________________________________________________________________________________________
Curso de Excel e VB6 http://www.cursoexcelvba.com.br

#470524 - 09/01/2017 18:57:17

SINCLAIR
CRICIUMA
Cadast. em:Janeiro/2001


FANYSLZ,

Desculpada. Sem problemas.

Nosso colega MARCELO-TREZE te enviou o projeto. Acredito muito que funcionará.

Boa sorte.



Euzébio Cruz
Criciúma - SC


#470527 - 09/01/2017 19:40:13

FANYSLZ
SAO LUIS
Cadast. em:Janeiro/2017


Citação:
:
FANYSLZ,

Desculpada. Sem problemas.

Nosso colega MARCELO-TREZE te enviou o projeto. Acredito muito que funcionará.

Boa sorte.



Não funcionou...

Grata,

Fany

#470529 - 09/01/2017 20:05:59

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


 Anexos estao visíveis somente para usuários registrados

Funciona sim, fiz um teste aqui e foi normal
Fiz uma mudança para tu ver.Basta executar.



#470532 - 09/01/2017 20:28:52

MARCELO-TREZE
SAO VICENTE
Cadast. em:Abril/2009


Que erro ocorre?

________________________________________________________________________________________
Curso de Excel e VB6 http://www.cursoexcelvba.com.br

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por FANYSLZ em 11/01/2017 12:45:20