[Resolvido]Restrição em Alteração de registro

Bom dia Amigos,
Quando abro os formulários no meu BD, ele exibe o primeiro registro, às vezes acontece de por distração o usuário alterar o registro atual pensando que está criando um novo.
Gostaria de alguma rotina, macro ou código que me avisasse que eu estou alterando um registro existente, permitindo que eu altere somente após confirmar que é isso que eu quero. Ou então com a edição bloqueada e só liberada após acionar algum botão de "edição".
Alguém pode me ajudar? Sabe como resolver isso ou conhece algum tópico relacionado à esse assunto? por que eu pesquisei mas não encontrei nada sobre isso.
Desde já agradeço à quem se dispuser a me ajudar.

Olá! Tente isso:
No evento antes de atualizar do seu formulário, ponha:

Código:

If Me.NewRecord = False Then
    If MsgBox("Confirmar as alterações realizadas?", vbQuestion + vbYesNo, "Confirme") = vbNo Then
        Cancel = True
        Me.Undo
    End If
End If

Desabilita Alteração dos Dados de Todos os Campos do Formulário.

No evento do Formulario, No Atual coloque:

Código:


'DESABILITA ALTERAÇÃO em TODOS OS CAMPOS QUE COLOCAR NO FORMULARIO
Dim ctl As Control
Dim StrName As String

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
StrName = ctl.Name
Me(StrName).Locked = True
End Select
Next ctl



No Botão Novo Registro ou Botão Pra liberar Edição, (apos o comando que insere novo registro) Coloque:

Código:


'LIBERA A EDIÇÃO DE TODOS OS CAMPOS.
Dim ctl As Control
Dim StrName As String

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
StrName = ctl.Name
Me(StrName).Locked = False
End Select
Next ctl


fabiopaes, seu código funciona muito bem, mas apenas a nível didático...

Todos os formulário do access tem a propriedade AllowEdits

Dessa forma, poderiamos "enxugar" o cógigo do sistema para apenas duas linha, veja:

Evento No atual

me.AllowEdits = False


Para editar ou adicionar registro:

me.AllowEdits = True


Ainda a nível informativo, podemos controlar a adição de novos reristros:

Me.AllowAdditions

E o apagar registros:

AllowDeletions

Marcelo David e fabiopaes, muito obrigado,
ambas as soluções funcionaram perfeitamente, inclusive combinadas.

Bacana Marcelo David, fica o Aprendizado pra mim!!!!

Opa, gratos pelo retorno!