[Resolvido]Formulario propriedade 'protecoes do registro'

Ola pessoal!

procurei na ajuda da access mais informações sobre essa propriedade do form:

proteções do registro

embaixo o access mostra: se e como os registros em uma tabela ou consulta base são protegidos.

mas não consegui achar muita coisa. ele so achou a propriedade recordlocks, que a meu ver e pra proteger dupla edição do registro.

alguém poderia detalhar melhor o que seriam as opções?:

-sem proteção
-todos os registros
-registro editado

obs. nos meus forms, nem coloco mais a opção excluir, pra evitar exclusões acidentais, porem a pessoa pode alterar um registro 'sem querer'.

alguma dessas opções pode resolver isso ou devo fazer uma rotina em vba para confirmar se a pessoa quer realmente alterar?


grato

Vini, boa tarde!

Uma opção que você pode usar é o AllowEditions. Exemplo:

No botão Editar, no evento ao clicar, coloque o procedimento:

Este comando irá desbloquear os campos e permitir a edição. Obs.: Ele só não bloqueia objetos do tipo botão.
Me.AllowEditions = True

Este comando irá bloquear os campos.
E no botão salvar, no mesmo evento, Me.AllowEdittions = False

PS.: Configure o seu formulário para NÃO permitir edições. Assim, ele já inicia com o bloqueio e somente o liberará se clicar no botão editar. Mas, se você tiver um campo do tipo texto ou o que for, para usar como pesquisa, o formulário configurado como não para edição, não permitirá que o campo seja utilizado para fazer uma pesquisa.

Os recordlocks são para outras finalidades.

Dando mais uma opção:

Código:

Private Sub cmdEditar_Click()

Call sbLockCmp(False) 'Comando para desbloquear

End Sub

Private Sub cmdSalvar_Click()

Call sbLockCmp(True) 'Comando para bloquear

End Sub

Private Sub sbLockCmp(Op As Boolean)

If Op = True Then
    'Bloqueia somente os campos listados abaixo
    With Me
        .txtNome.Locked = True
        .txtSobreNome.Locked = True
        .txtIdade.Locked = True
    End With
    ElseIf Op = False Then
        'Bloqueia somente os campos listados abaixo
        With Me
            .txtNome.Locked = False
            .txtSobreNome.Locked = False
            .txtIdade.Locked = False
        End With
End If

End Sub

Ola Julio!

obrigado pela resposta!

deu muito certo a sua primeira resposta! era isso mesmo, muito obrigado!

apenas uma correção:

no código: Me.AllowEditions = True deu erro. o correto e Me.AllowEdits = True.

estou apenas documentando para caso alguém acompanhar o tópico no futuro


muito obrigado!!