[Resolvido]Usar somente um botão salvar no formulário e subformulário

Galera,

Antes de informar minha dúvida, só vou esclarecer a história por traz de tudo para o melhor entendimento.

Tenho um formulário principal e um subformulário dentro do formulário principal. No formulário principal tenho um botão Salvar que servirá para salvar as alterações feitas no formulário principal e no subformulário.

Só que no Subformulário existem campos Obrigatórios a serem preenchidos caso um campo dele for preenchido. Neste subformulário tem 4 campos com os nomes: Tipo de ligação, Responsável, Data e Resultado.

A dúvida é o seguinte, ao Clicar no botão Salvar do formulário principal quero que ele verifique se o campo Tipo de Ligação do subformulário esteja preenchida com "Ativo" ou "Receptivo", caso não tiver com o preenchimento "Ativo" ou "Receptivo" o botão salva normalmente os 2 formulários, porém caso for preenchido com "Ativo" ou "Receptivo", quero que os campos Responsável, Data e Resultado do subformulário seja preenchido também de forma Obrigatória, assim impedindo que seja Salvo.

If IsNull(Forms!NomeDoForm.NomeDoSubForm.Form!Caixatxt) = True or Forms!NomeDoForm.NomeDoSubForm.Form!Caixatxt = "" Then
   MsgBox "Esta campo está em branco!", VbCritical,"ATENÇÃO"
   Exit Sub
Else
Seu Código
End If


Cumprimentos.

Cara, tentei aqui, mas não deu certo.

Ta aparecendo o erro de compilação: 'Sub' ou 'Function' não definida.

O código ta um pouco extenso, postei no DropBox, segue o link abaixo:

Link aqui

Estive prestando mais atenção a tua dúvida no início do tópico...
Ë um subformulário com vários registros correto?

Neste caso creio que deverá carregar um recordset com os dados do subformulário e através de um loop checar se há campos preenchidos.. caso positvo emite mensagem e evita fechar o formulário.

Algo assim

Dim Rs as Dao.Recordset
Dim StrSQL as Sting

StrSQL = "SELECT * From SuaTabela WHERE " & Me.SuaCaixaTextoCódigoNoForm & ""
Set rs = CurrentDb.OpenRecordset(StrSQL)

Do While Not Rs.Eof
    If Rs!NomeDoCampo = "Ativo" or Rs!NomeDoCampo = "Receptivo" Then
       MsgBox "Existem Campos Preenchidos",VbInformation, "ATENÇÃO"
       Exit Do
    Else
       Seu Código
    End If
Rs.MoveNext
Loop



Cumprimentos.