[Resolvido]Como trazer uma informação no evento antes de atualizar - erro 94- Null

Bom dia / boa tarde / boa noite a todos

Tenho cá comigo, uma rotina funcionando a contendo, ou seja, traz a informação que o usuário quer e precisa saber que é evitar a duplicidade de CPF
Eis abaixo a rotina

Código:

Public Sub CPF1()
Dim CPFOriginal As String
Dim x As String
x = Format(Me.CPF, "000"".""000"".""000-00")

If CPFOriginal = Me!CPF Then Exit Sub
        If DCount("IdProp", "Proprietarios", "cpf =""" & Me!CPF & """") > 0 Then
             MsgBox "O CPF ...  " & x & "   ... já está cadastrado!" & vbCrLf & _
            " O evento será cancelado.", vbOKOnly, Me.Caption
                Me.Undo
                DoCmd.CancelEvent
                Exit Sub
                Else
                End If              
End Sub
End Sub

Porém o usuário precisa saber a quem pertence o CPF que está sendo cadastrado, para evitar que outra pessoa use esse CPF, quero mostrar o nome do dono do CPF que está sendo usado.
Por que isso?  Infelizmente, nem todos os usuários, agem de boa fé para com as empresas a qual trabalham e as vezes, dão algum calote nessa empresa ( desfalque ).

Fiz a rotina com o Dlookup, mas está me dando erro 94 - Null. Não é na rotina acima !!!

Agradeço e aprecio a ajuda dos colegas.

Se haver outra forma de trazer o nome do dono do CPF é bem vindo.

Abraços.

Silvio bom dia,

Vou criar uma função para verificação do CPF.

Para ficar mais fácil e rápido, se possível, envie somente as partes envolvidas no problema, para analise e solução.

Valeu

Att,

Alexandre Fim

Alexandre boa tarde..
Tenho uma base com aproximadamente uns cinco mil clientes cadastrados.

A função que verifica se o CPF existe, está rodando lisa e perfeita.

A função está no evento BeforeUpDate no campo CPF.

O que preciso...

Uma rotina, qualquer que seja, que me mostre o CPF digitado pertence a uma outra pessoa e não aquela que está
dizendo ele.

Tipo:

O CPF digitado: 123.465.789-00 já é cadastrado e pertence a: Maria José do Rosario.

O Que deu um B.O. aqui na função que criei usando Dlookup me dizia que esta dando erro 94 - Null

Silvio, tente isso:

Código:


Private Sub cpf_BeforeUpdate(Cancel As Integer)
On Error GoTo trata_erro
Dim vNome As String
 
   
    If IsNull(Me.cpf) Or Trim(Me.cpf) = Empty Then
        Exit Sub
    End If
 
    vNome = Empty
   
    vNome = DLookup("nomeProp", "Proprietarios", "cpf = '" & Me.cpf & "'")
   
    If Not IsNull(vNome) Or Trim(vNome) <> Empty Then
        MsgBox "Este CPF pertence à '" & vNome & "'", vbExclamation, "Aviso"
        Cancel = True
    Else
        Cancel = False
    End If

    Exit Sub
   
trata_erro:
    Cancel = True
    MsgBox "Erro ocorrido: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub

End Sub


Alexandre / Avelino, boa tarde.

Nada deu certo, sempre me dá  o erro 94, sinceramente eu não sei onde e aonde eu estou a errar.

Segue parte do sistema, apenas o necessário ( tela de cadastro ).

Como proceder:

Abra  o formulário proprietarios, clica em adicionar, qualquer nome ou letra e vai diretamente para o CPF.   Na tabela coloquei alguns exemplos de CPF, escolha um qualquer...

Notem que irá ocorrer o erro.

Fiz a chamada da rotina em uma public sub ( Call CPF1 )....será que pode ser isso ?

Deixei alguns exemplos de rotina comentadas, tentando resolver essa " parada maligna ".

Desde já meus sinceros agradecimentos.

Abraços.

Avelino / Alexandre...bom dia !!!

Rotina perfeita, roda legal.

Código:

Private Sub CPF_BeforeUpdate(Cancel As Integer)
If DCount("IdProp", "Proprietarios", "cpf =""" & Me!CPF & """") > 0 Then
    MsgBox (DLookup("'CPF ' & [cpf] & ' pertence a ' & [prop]", "Proprietarios", "cpf =""" & Me!CPF & """")) & vbCrLf & _
            " O evento será cancelado.", vbOKOnly, Me.Caption

    Cancel = True
    Me.Undo
End If

End Sub

Porém, contudo, todavia......mesmo cancelando o registro, o mesmo permanece na tabela.
Pela lógica, não teria que excluir o mesmo devido aos comandos...

cancel = true
me.undo

Fica a pergunta, será que vou ter que colocar alguma coisa para excluir esses registros que foram cancelados ?

Abraços

Bom dia Avelino.

O teste, realizei no exemplo que me mandou. Deixei a tabela aberta atrás, e quando ele diz que já tem o CPF cadastrado, cancela a operação, mas o registro fica lá na tabela.

Acredito eu, que isso não pode ocorrer.

Qual seria a melhor solução para esse caso ?

Me desculpem por responder em um domingo, mas ....temos que ir a luta.

Avelino, farei isso.

Avelino, creio que teremos que rever essa rotina.

Iniciando um novo cadastro, baseado no arquivo enviado Rev1

Ora ele me mostra a mensagem de que já existe CPF cadastrado.
Ora passa batido, mesmo tendo já o CPF cadastrado.
Mesmo cancelando, fica salvo o registro na tabela.

Isso tudo, dentro do arquivo enviado.

Agora sim, eu estou perdido...srsrsr

Boa tarde Silvio e Mestre Avelino,

Conforme o Avelino informou, o sistema cancela o registro caso o CPF informado seja de outro proprietário. Está correto.
Está funcionando, porém, a validação ocorre em momento errado.
A validação deve ser feita no botão "Salvar", pois o sistema oferece a possibilidade do usuário corrigir os dados antes de gravar na tabela, e da forma que está, se o usuário informar um CPF já cadastrado, o sistema cancela todo o registro e ai o usuário tem que cadastrar novamente. Esta não é uma prática comum de sistema.
Vou criar um função e aproveitar a validação utilizada no evento "BeforeUpdate" do campo CPF, e ajustar a rotina para gravar corretamente.

Assim que eu terminar, diponibilizo uma versão para tua análise.

Att,

Alexandre Fim

Bom dia...

Vale Alexandre, assim vamos deixar cada vez mais aprimorado o código e ajudar a pessoas que irão precisar disso em algum momento.

Muito obrigado.

Bom, creio que encontrei a solução.

Segue abaixo

Código:

Private Sub CPF_BeforeUpdate(Cancel As Integer)
Dim EmpNum As String
Dim stLinkCriteria As String
Dim EmpNr

'Aqui, eu atribuo o número do CPF  inserido a uma variável
EmpNum = Me.CPF.Value

stLinkCriteria = "[cpf] = " & "'" & EmpNum & "'"
If Me.CPF = DLookup("[cpf]", "proprietarios", stLinkCriteria) Then
    MsgBox "Esse C.P.F, " & EmpNum & ", já existe !" & vbCrLf & _
      "Favor, verificar, duplicidade !", vbExclamation, "CPF Duplicado"
         Me.Undo
    'mostro o ID do CPF correspondido / vai para a tela de cadastro do CPF original
         EmpNr = DLookup("idProp &  ' / ' &Prop", "proprietarios", stLinkCriteria)
         MsgBox ("Pertence ao tutor:" & EmpNr & vbCrLf & _
         " Vai ser mostrado o cadastro desse CPF !"), vbInformation, Me.Caption
          DoCmd.FindRecord EmpNum, , , , , acCurrent

         DoCmd.CancelEvent
         Me.Undo
  
  Else
  End If
End Sub

E o mais importante, não fica gravado na tabela, caso exista a duplicação.

Silvio,

Quando o sistema desenvolvido possui formulários acoplados à tabela, alguns procedimentos de segurança são necessários realizar.

O formulário tem o problema de navegação de registro, onde o usuário pode simplesmente alterar um campo de um registro qualquer e em seguida navegar (com teclas PAGE UP/PAGE DOWN) para outro registro, sendo que a alteração do registro anterior não passou por nenhuma validação.

Tomei a liberdade para realizar algumas modificações no seu formulário para tornar o registro de dados mais seguro e consistente.
- Inclui módulo com algumas funções de bloqueio e desbloqueio de campos e botões de comando, conforme o comportamento do formulário (Novo registro / Alterar Registro e etc.)
- Mudei a Fonte de Registro (propriedade Dados) do form para não carregar nenhum registro. Desta forma, não ocorrerá alteração e navegação de registros indevidas, pois eu percebi que no form existe um botão "Localizar" para pesquisar registros e carregar na tela. Este procedimento também evita de o formulário ficar lento quando houver muitos registros.
-Inclui função para busca de CEP através de API dos Correios, pois desta forma minimiza erros de digitação também. (não se esqueça de marcar a Referência "Microsoft XML, V6.0" para funcionar)

Segue versão do sistema.
Analise o código e verifique as mudanças realizadas. As rotinas possue comentários para que vc entenda o que cada linha executa.

Espero ter ajudado

Att,

Alexandre Fim

Alexandre, vou testar, analisar o teu exemplo.

Boa tarde....

Alexandre show de bola mesmo, demorei para responder devido a correria do dia a dia aqui, com alguns sistemas herdados, feito por outras pessoas.

Mas, te digo, ficou muito bom mesmo o que você fez....PARABÉNS !!!

Vou adotar ele em alguns sistemas aqui.

Muito, muito obrigado mesmo.

Valeu.

Valeu Silvio, meu brother !!!
Vc pode utilizar este formulário como modelo para outros formulários, pois ele já possui as rotinas de validação, gravação e exclusão de dados e etc, e adaptar às outras rotinas do sistema.
Boa sorte e sucesso!!!
Qualquer problema, grita ai...rsss
Abraço !!!