Olá Pessoal...
Coloquei no eventos LOSTFOCUS p/ não aceitar duplicidade no campo (TEXTBOX) o nome dos clientes cadastrado, mas toda vez que vou incluir um cliente o sistema dispara e lhe informa que já existe um cliente cadastrado. Sendo que ainda nem incluir... Já verifiquei no banco (Access) e nada. O disparo só acontece no ato que vou Incluir e/ou movimentar os registros... O que há de errado?
Já tentei c/ os três, citados abaixos e nada...
'---------------------------------------------------------------------------------
Private Sub txtCliente_LostFocus()
If Trim$(txtCliente) = "" Then Exit Sub
Set TblCliente = BD.OpenRecordset("TblCliente", dbOpenTable, False)
TblCliente.Index = "Cliente"
TblCliente.Seek "=", txtCliente.Text
If TblCliente.NoMatch = True Then
Else
MsgBox txtCliente.Text & ", Já existe este cliente cadastrado no Banco de Dados.", vbCritical, "Cliente"
txtCliente.SetFocus
End If
End Sub
'---------------------------------------------------------------------------------Private Sub txtCliente_LostFocus()
Set TblCliente = BD.OpenRecordset("tblCliente", dbOpenTable)
TblCliente.Index = "Cliente" ' Campo Indexado (O mesmo deverá passar em branco ou nulo)
TblCliente.Seek "=", txtCliente.Text ' verifica se o que foi digitado existe
If TblCliente.NoMatch = True Then 'O cliente existe
Exit Sub
Else
MsgBox txtCliente.Text & ", Já existe este cliente cadastrado no Banco de Dados.", vbCritical, "Cliente"
txtCliente.SetFocus
End If
End Sub
'---------------------------------------------------------------------------------Private Sub txtCliente_LostFocus()
Dim sSQL As String
Dim r As Recordset
sSQL = "SELECT Cliente FROM tblCliente WHERE (Cliente = " & Chr(34) & txtCliente & Chr(34) & ");"
Set r = BD.OpenRecordset(sSQL, dbOpenSnapshot)
If Not r.BOF Then 'Existe registros na tabela, ou seja, encontrou clientes com o nome digitado
MsgBox txtCliente.Text & ", Já existe este cliente cadastrado no Banco de Dados.", vbCritical, "Clientes"
txtCliente.SetFocus
Exit Sub
End If
End Sub
'---------------------------------------------------------------------------------
Grato,
Robson´s
