[Resolvido]campo com preenchimento obrigatório

Boa tarde
Quero tornar um campo, de um subformulário, em preenchimento obrigatório, e não consigo. Alterei na tabela o item"necessário" para sim e não deu resultado. Agradeço a ajuda do Forum Obrigado

Coloque no evento ao sair do seu campo:

If IsNull(Me.ActiveControl) Then
MsgBox "Campo Obrigatório"
DoCmd.CancelEvent
End If

gilberlanio não consegui a msgBox aparece logo no primeiro campo do formulário mesmo que eu preencha o campo em causa do subformulário.
obrigado pela tua colaboração

Olá veja se consegue da seguinte forma:
Neste exemplo não deixa colocar nulo e só permite de 1 a 9

ahteixeira obrigado pelo teu contributo mas não deu. Eu fecho o formulário e não diz nada

Olá de novo, então pode tentar assim:

Código:

Private Sub Form_Unload(Cancel As Integer)
    If Len(Me.Campo1 & "") = 0 Or Me.Campo1 < 1 And Me.Campo1 > 10 Then
        MsgBox "Campo obrigatório, Deve preencher este campo de 1 a 10."
        Me.Campo1.SetFocus
        Cancel = True
    End If
End Sub

Abaixo exemplo

OK funciona com um formulário mas eu tenho este campo num subformulário é assim:
Tenho um formulário "aparelho novo" com um subformulário "colocação " que tem o campo "onde"
obrigado

Olá, é só mais uns ajustes.
Uma pesquisa aqui no forum tem sempre uma ajuda, no entanto veja o link do nosso grande Mestre Avelino
http://www.usandoaccess.com.br/tutoriais/referenciar-formularios-e-relatorios-propriedades.asp
Abraço

ahteixeira obrigado pela tua ajuda já consegui resolver.
Obrigado ao forum