[Resolvido]Campo obrigatorio no Subform, não esta correspondendedo

Olá

Estou com um pequeno problema
Tenho um formulário principal com um subform.
No subform, tenho um campo que é de preenchimento obrigatório. estou utilizando o código abaixo:
No caso deste campo ficar em branco:
Enquanto estou dentro do subform funciona perfeitamente, mas se clico, por exemplo em um campo do form principal, aparece a mensagem que o campo
códigoloja é obrigatorio, clico no ok mas não retorna para o preenchimento e sim posiciona no campo clicado no form principal.
e o campo obrigatorio acaba ficando em branco

PRECISO QUE NÃO SAIA DO SUBFORM EM HIPOTESE ALGUMA COM O CAMPO CÓDIGOLOJA EM BRANCO

Private Sub CódigoLoja_Change()
If IsNull(Me.CódigoLoja) = True Then
MsgBox "Selecione a Loja - Campo obrigatório", vbInformation, "Aviso"
Cancel = True
CódigoLoja.SetFocus
End If
End Sub

Bom dia.
Será que resolve?

Código:

Private Sub CódigoLoja_Change()
If IsNull(Me.CódigoLoja) = True Then
MsgBox "Selecione a Loja - Campo obrigatório", vbInformation, "Aviso"
Cancel = True
Me."Qualquer outro campo do seu subform".setfocus
Me.CódigoLoja.SetFocus
End If
End Sub

Acontece a mesma coisa

Clicando no form principal aceita ficar em branco o campo obrigatorio no subform

Obrigado Avelino

Deu certo

Grato