[Resolvido]Cancelar Evento em subformulários

Boa tarde. Tenho um formulário com 1 sub-formulário sendo que neste tem mais 2 subformulários. Preciso impedir a abertura do principal e estou usando o evento CancelEvent. Não quer funcionar.

If Form.RecordsetClone.RecordCount = 0 Then
MsgBox "Os dados de consumo do mês ainda não foram cadastrados.", vbExclamation, "Dados ausentes!"
DoCmd.CancelEvent
End If
End Sub

Alguém tem uma luz?
Segue uma captura do modo estrutura.

Bom dia. Obrigado pela dica.
Fiz uma reformulação no formulário reduzindo o número de subformulários e no principal coloquei em 'ao abrir" o seguinte código:

Private Sub Form_Open(Cancel As Integer)
If Form.RecordsetClone.RecordCount = 0 Then
MsgBox "Os dados de consumo do mês ainda não foram cadastrados.", vbExclamation, " Dados ausentes"
Cancel = True
Exit Sub
End If
End Sub

Agora deu certo. O subformulário de cálculos se estiver em branco, não abre o formulário.
Obrigado.