Formular records låses ved hjælp af checkbox

Jeg har en Formular med flere underformularer som jeg gerne vil låse efter efter jeg har afkrydset min checkbox.
Min checkbox er oprettet i den tabel som er postkilde for hovedformularen. Jeg har prøvet med følgende kode men uden held.

Option Compare Database
Option Explicit
Dim ChckBool As Boolean


Private Sub Form_BeforeUpdate(Cancel As Integer)
If ChckBool = False And Me.FakturaPrint = True Then
MsgBox "Before attempting changes please verify that the verified contents check box is unchecked.", vbCritical
Cancel = True
Me.Undo
Else
ChckBool = False
End If
End Sub


Private Sub FakturaPrint_AfterUpdate()
ChckBool = True
DoCmd.RunCommand acCmdSelectRecord
End Sub