Uma vez incluído o campo Bloqueado (tipo sim/não) na tabela, há várias formas de aplicar:
Pode incluir este campo no form OS, e no evento No atual do form colocar um código assim:
Private Sub Form_Current()
If Me.Bloqueado = True Then
Me.AllowEdits = False
Else
Me.AllowEdits = True
End If
End Sub
Claro que precisa impedir que qualquer usuário possa marcar/desmarcar o campo. Eu uso um controle de usuários, e atribuo nele a permissão para isso:
No evento Ao carregar do form vai o código:
Private Sub Form_Load()
'verifica na tabela tUsuario se o usuário atual tem permissão para bloquear/desbloquear
If DLookup("Bloqueio", "tUsuario", "[login] = getUsuarioAtual()") = True Then
Me.Bloqueado.Locked = False
Else: Me.Bloqueado.Locked = True: End If
End Sub
Outra forma de uso seria bloquer o form após imprimir um relatório. Neste caso, o evento Ao imprimir da seção Detalhe do relatório, leva um código para marcar o registro do form como Locked = True
Também pode optar por não incluir o campo no form OS, e sim criar outro form só para bloquer/desbloquear, este com permissão de acesso restrita.