Bloquear formulário para edição após salvar

Boa tarde a todos, tenho um banco onde é cadastrado a manutenção de vários equipamentos. No formuário tem alguns campos para marcar a situação da manutenção (em andamento, cancelado, concluido).

Como eu bloqueio o formulário para edição quando estiver marcado a opção concluido?

Eu coloquei esse código mas ta dando erro...
Option Compare Database

Private Sub Form_Current()
Situação.SetFocus
situacao = Situação.Text
If situacao = 1 Then
MsgBox "Trabalho concluido, formulário bloqueado para edição."
DoCmd.Save
Me.Form.blocked = True
Else
DoCmd.Save
Me.Form.blocked = False
End If

Boa tarde.

Veja este:

Private Sub NomeComboSituação_AfterUpdate()
Select Case Me.NomeComboSituação
Case Is = "Concluido"
Me.SeuCampobloqueado.Enabled = false
Me.SeuCampobloqueado1.Enabled = false
Case Else
Me.SeuCampobloqueado.Enabled = true
Me.SeuCampobloqueado1.Enabled = false
End Select
End Sub

Observe que há "SeuCampobloqueado1" se houver mais campos escreva abaixo deste.

Eu quero bloquar o formulário inteiro, terei que fazer essa condição para cada item?

Utilizando o código do amigo CAFPR e misturanddo-o com um códdigo do amigo e mestre AVELINO, você pode usar assim para reduzir trabalho:

Private Sub NomeComboSituação_AfterUpdate()
Dim ctl As Control
Select Case Me.NomeComboSituação
Case Is = "Concluido"

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acOptionGroup, acComboBox, acTextBox ', acListBox
If ctl.Name <> "PARTEDONOME" Then
ctl.Enabled = False
ctl.Locked = True
End If
End Select
Next

Case Else

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acOptionGroup, acComboBox, acTextBox ', acListBox
If ctl.Name <> "PARTEDONOME" Then
ctl.Enabled = True
ctl.Locked = False
End If
End Select
Next

End Select
End Sub

Tente:
"Me.AllowEdits = False" 'Boqueia a edição de todo o formulário.

Boa sorte.
Daniel R.

Deu certo.
Gente muito obrigado...

Bom dia a todos,
Gente gostaria de aproveitar que o Tópico está aberto para tirar uma dúvida.

Eu coloquei o código que vcs me ensinaram acima:

Private Sub Form_Load()
If Situação = 1 Then
DoCmd.Save
Me.AllowEdits = False
Else
DoCmd.Save
Me.AllowEdits = True
End If
End Sub

Funciona direitinho, mas eu não consigo editar o formulário se a sitiação é falsa, melhor, eu apaguei o código todo e não consigo editar o formulário.

O formulário é "Formulário Manutenção".
Só mais uma coisa, nem no novo formulário eu consigo usar as outras duas guias "componentes" e "histórico de manutenção".

O banco está em anexo.

Gente muito obrigado.

Não sei se ajuda, mas eu coloquei o código e ele funcionou perfeitamente por algum tempo, mas depois, do nada ficou assim.
Gente preciso muito da ajuda de vcs.