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

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

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


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

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

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 !!!