DUPLICIDADE

USUARIO.EXCLUIDOS 26/08/2007 18:44:38
#232735
Olá Pessoal... Tudo Blz...

Como Faço no TEXTBOX para não
aceita nome DUPLICADO no Banco?

* Coloquei o código
citado abaixo, mas o mesmo
está disparando sem que o
mesmo não tenha duplicação
no Banco. O QUE SERÁ?
No Banco só tem dois NOME
cadastrado. (João) e (Maria)
mesmo assim está informando
Duplicado.
Alguém tem alguma idéias???

------------ CÓDIGO----------------------

Private Sub txtNome_LostFocus()
'* Codigo para não aceitar duplicidade no textbox.

If Trim$(txtNome) = "" Then Exit Sub 'Se campo em branco não acontece nada
Set tblNome = BD.OpenRecordset("tblNome", dbOpenTable, False)
tblNome.Index = "NOMEC" 'Campo Indexado no BD c/ ou não duplicado.
tblNome.Seek "=", txtNome.Text 'Verifica se o que foi digitado existe
If Not tblNome.NoMatch = True Then  'Não existe
Else
MsgBox " Este NOME já existe cadastrado no Banco de Dados.", vbCritical, "Duplicado"
txtNome.SetFocus
End If

End Sub

------------ CÓDIGO----------------------

Fico no aguardo...

Grato,

Robson Ferreira
USUARIO.EXCLUIDOS 26/08/2007 19:01:29
#232736




Tenta assim: E NÃO NO lOSTfOCUS e sim no VALIDATE

If Trim$(txtNome) = "" Then Exit Sub 'Se campo em branco não acontece nada
Set tblNome = BD.OpenRecordset("tblNome", dbOpenTable, False)

tblNome.Index = "NOMEC" 'Campo Indexado no BD c/ ou não duplicado.
tblNome.Seek "=", txtNome.Text 'Verifica se o que foi digitado existe

If tblNome.NoMatch = False Then 'Não existe
MsgBox " Este NOME já existe cadastrado no Banco de Dados.", vbCritical, "Duplicado"
txtNome.SetFocus
Else

'tranquilo...n existe

End If

End Sub

boa sorte e sucesso!
USUARIO.EXCLUIDOS 28/08/2007 20:27:09
#233149
Olá...

Onde coloco o evento VALIDATE?

-------------------------------
Private Sub txtNome_LostFocus()
-------------------------------

teria que trocar?

por esse?
-------------------------------
[c]Private Sub txtNome_VALIDATE()
-------------------------------

Fico no aguardo...

Grato,

Robson
USUARIO.EXCLUIDOS 29/08/2007 11:10:49
#233202

Isso..exatamente isso..o validete pra esse tipo de situação é melhor q o LostFocus

boa sorte e sucesso!
Tópico encerrado , respostas não são mais permitidas
Voltar