Manter subformulário bloqueado até que o formulário esteja preenchido

Boa tarde pessoal, como mantenho subformulário bloqueado para inclusão até que o formulário mestre esteja preenchido?

Boa tarde

Tente assim:

Ao entrar no SubFormulário

Private Sub NomeSeuSubFormulário_Enter()
On Error Resume Next
Dim Cancel As Integer
If IsNull(Me!SeuCampoNoForm) Or Me!SeuCampoNoForm = "" Then
MsgBox "Falta o ............", vbExclamation, "Aviso"
Cancel = True 'Cancela o evento
Me.SeuCampoNoForm.SetFocus
Else
If IsNull(Me!OutroCampoNoForm) Or Me!OutroCampoNoForm = "" Then
MsgBox "Falta o ............", vbExclamation, "Aviso"
Cancel = True 'Cancela o evento
Me.OutroCampoNoForm.SetFocus
End If
End If
 
End Sub

Boa noite Assis, analisando o código a condição Else me parece que vai repetir a mesma verificação anterior, porém noutro campo do formulário mestre esta certo? No Else não teria que liberar adição de registro no subform?

No formulário mestre tenho 13 campos de preenchimento alternativos, ou seja, por não serem de preenchimento obrigatório, verificar todos os campos torna o  código extenso. Tem alguma solução alternativa para liberar o subform se houver ao menos um campo preenchido ou registro pai criado?

Claudemir

Não tenho outra solução , é assim que uso e não tenho tido problemas.
Quanto ao código ser extenso, tudo tem o seu trabalho a fazer.
Cumprimentos