[Resolvido]VBA para tratar erro de duplicidade no 'CodigoDoCliente'

Olá Forumeiros de plantão !  

Não raro preciso telefonar para alguns clientes e levantar algumas informações. Então tenho a tabela TabContato para armazenar esta pesquisa.

O formulário ForTabContato é ligado a duas tabelas (TabClientes/TabContato) por meio de uma consulta (ConTabContato).

Neste formulário, ForTabContato, a tabela TabClientes fornece o código do cliente através do campo TxtCdc para preenchimentos junto com outros campos destinado à tabela TabContato.

O que preciso é: tratar o erro e fazer saltar uma mensagem ao digitar um número no campo TxtCdc de ForTabContato diferente do armazenado em TxtCdc de TabClientes.

Será que consegui ser bem claro ?  

De antemão eu agradeço!!

Olá Colegas !

Na tabela do banco de dados tem um campo que não é numeração automática que chamo de TxtCdc e que não pode haver repetição, pois é o código do cliente.
Quando eu provoco uma repetição e salvo o formulário sou enviado para o depurador de VBA. Quem pode me ajudar a corrigir isso ?

Estou usando este código:

Private Sub BtnSalvar_Click()
DoCmd.Save
DoCmd.RunCommand acCmdRefresh
DoCmd.GoToRecord , , acLast
End Sub

O erro é : "Erro de tempo de execução '3022': as alterações solicitadas para a tabela não foram satisfatórias já que criariam valores duplicados no índice, chave primária ou ...

Obrigado!

Tente assim:

Código:

Private Sub BtnSalvar_Click()
Dim rst As dao.Recordset
    Dim strCriteria As String

    strCriteria = "[CodCli] Like '" & Me.TxtCdc & "'"

    Set rst = Me.RecordsetClone
    rst.FindFirst strCriteria
    If rst.NoMatch Then
    
        DoCmd.Save
        DoCmd.RunCommand acCmdRefresh
        DoCmd.GoToRecord , , acLast
      
    Else
        
        MsgBox "Item já Adicionado!", vbExclamation, "Aviso"
        Me.Undo
            Me.Bookmark = rst.Bookmark
    End If
    
     Set rst = Nothing
End Sub

Dando um pitaco

Como o campo da tabela TxtCdc  não tem incremento automático, precisa incrementa-lo via código.
Fazer isso manualmente, sempre trará problemas.
A caixa de texto TxtCdc , deixe bloqueado, para não mudarem o código.

Então, na primeira caixa de texto do formulário, digamos que seja  a caixa de texto
NomeDoCliente, no evento ao Sair, coloque:

Me.TxtCdc = Nz(dmax("txtCdc","TabClientes"),0)+1

Pronto, quando sair dessa textbox, o código txtCdc, receberá o novo número.

Rodrigo: Postou a mesma dúvida 2 vezes no fórum e isso vai contra as regras.
                   Procure não repetir o erro para não sofrer penalidades.

Eu uni os dois tópicos.

[ ]'s

[  RESOLVIDO !!  ]

muito obrigado professor Gilberlanio.


Pessoal !
O professsor Gilberlanio tem no Youtube muitas aulas boas sobre Access !!!
.
.