Botón alternar para modificar/bloquear registros

Partamos de que el control se llama altEdit. Si no está pulsado (False) es la opción 1 --> Edición bloqueada. Si está pulsado (True), opción 2 --> Edición activada
Anotación: no puedes utilizar la propiedad AllowEdits (permitir ediciones) ya que bloquea cualquier cosa al estar en False... incluso este botón de alternar. Deberás utilizar la propiedad Locked de cada control.
Tengamos entonces una función en el formulario para realizar las acciones solicitadas.
Private Function fntEdita(blnPermiteEdicion As Boolean)
' Empezamos bloqueando o no los controles
Me!uncontrol.Locked = blnPermiteEdicion
' .... toda la lista de controles igual
Me.AllowDeletions = blnPermiteEdicion
Me.AllowAdditions = blnPermiteEdicion
Me!altEdit.Caption = IIf(blnPermiteEdicion, "Edición activada", "Edición bloqueada")
End If
En el evento Después de actualizar del botón de alternar llamaremos a la función pasando como argumento el valor del control:
Private Sub altEdit_AfterUpdate()
fntEdita Me!altEdit
End Sub
Finalmente, en cada cambio de registro, desactivamos:
Private Sub Form_Current()
Me!altEdit = False
fntEdita Me!altEdit
End Sub
Indicarte asimismo que, al cerrar un formulario, así como al cambiar de registro, los cambios de guardan automáticamente.

Lo primero una cuestión, Si predeterminado quieres que no se pueda añadir nada en el formulario... ¿Por qué un botón alternar?. Me explico, me parece más fácil poner en las propiedades del formulario que no se pueda añadir, modificar, ni eliminar ningún registro y luego en un botón de comando hacer que se pueda una vez el usuario haya hecho click
Me.AllowAdditions = True
Me.AllowEdits = True
Un saludo y ya comentas.
Mi Foro
Mi web