[Resolvido] Cancelar exclusão de dados

Bom dia. Tenho um campo que os dados não podem ser excluídos. A linha de registros não pode ser excluída e os campos não podem ser bloqueados nem desativados porque o menu de atalho precisa ser usado. Tentei criar uma macro com mensagem avisando que o campo não pode ser excluído e desfazer a exclusão usando o comando Cancelar Evento mas não funcionou.
Existe algum código para evitar que o campo seja excluído?

No caso é um campo ou uma linha de um formulário continuo?

Amigão, tem de procurar mais aqui mesmo, né ?

http://maximoaccess.forumeiros.com/t8210-excluir-registro-so-informando-a-senha

Marcelo, são os dois, campo e linha mas o principal é o campo.

Se o exemplo do JPaulo não é o que pretende, tente o seguinte:
Na propriedade do formulário, na aba "Dados" > "Permitir exclusões" = Não

Teste aí.

Obrigado mas esse comando funciona bem para a linha inteira (quando selecionado pelo seletor de registro a esquerda). Uso muito esse comando e funciona bem. Eu gostaria de cancelar a exclusão de um dado em campos específicos e se possível que voltasse atrás (desfazer).

Marcelo, são os dois, campo e linha mas o principal é o campo.

Se tanto a linha quanto o campo não devem serem deletados, então se não deletar
a linha (registro) estará resolvido.

Mas se é um campo específico, tente o seguinte antes de atualizar:

Código:

If IsNull(MeSeuCampo) Then
    MsgBox"Não é possível apagar este campo", vbInformation, "Informação"
    Cancel = True
End If

Obrigado! Tentei aqui e deu certo mas ele não desfez a exclusão.
São campos específicos. Por exemplo: tenho 3 campos (Cod_OS, NumOS, cboSetores). Os dois primeiros não podem ser excluídos e o outro é aberto para poder editar o segundo. Esse úlitmo, uma caixa de combinaçao, também é um campo de dados que não podem ser excluídos mas não sei como faço para que ele seja um campo aberto e ao mesmo tempo travado para excluir.

Boa noite,

Com a permissão de todos.

após a inserção de dados e posterior salvamento dos mesmos, pode-se colocar no evento change ( ao alterar ) o seguinte comando:



Private Sub seucampo_Change()
Me!seucampo.Undo
MsgBox "Não é possível apagar este campo", vbInformation, "Informação"

End Sub


Veja se funfa...

Abraços.

Obrigado Marcelo. Deu certo. O campo não edita e nem exclui e aparece uma mensagem avisando. Deixa tbm em aberto o menu de atalho para filtrar ou classificar. Era isso que eu procurava.

Grato pelo retorno amigão!
Forte abraço

Valeu. Obrigado.
Até a próxima.