Impedir cerrar formularo o access

   Hola, de tanto confinamiento creo que estoy espeso....me suena que alguna vez lo he hecho pero en estos momentos estoy atascado.Quiero que una serie de campos sean obligatorios y lo quiero hacer por vba, para que me saque un mensaje pesonalizado y me mande el foco al campo que es necesario. Tengo esto y si que me saca el aviso pero despues me cierra el formulario cuando no deberia.... a ver si me iluminais...

Private Sub Form_BeforeUpdate(Cancel As Integer)

Dim strMsg As String

If IsNull(Me.TipoRevision) Or Me.TipoRevision = "" Then
strMsg = "Se debe rellenar TipoRevision, pulsa escape si quieres deshacer registro." & vbCrLf
Me.TipoRevision.SetFocus
Cancel = True
End If

If IsNull(Me.FechaRevision) Or Me.FechaRevision = "" Then
strMsg = "Se debe rellenar FechaRevision, pulsa escape si quieres deshacer registro." & vbCrLf
Me.FechaRevision.SetFocus
Cancel = True
End if

If strMsg <> "" Then MsgBox strMsg, vbExclamation

End Sub