[Resolvido]Caixa de Mensagem

Boa tarde

Tenho num formulário um campo texto com o nome "Assunto", e um Campo "TxtTexto"

Preenchimento obrigatório "Não", para todos os campos.

Queria ao sair do campo, se ele estivesse nulo, uma MsgBox("Não quer preencher o Campo Assunto ?", vbYesNo, "Aviso")

Se eu escolher "Sim" o foco vai para o Campo "Me.assunto.setfocus"

Se eu escolher "Não" o foco vai para o Campo "Me.TxtTexto.setfocus"
Obrigado

Tente assim:

If IsNull(Me.NomeCampo) Or Me.NomeCampo.Value = "" Then
If MsgBox("Não quer preencher o Campo Assunto?", vbYesNo, "Aviso") = vbYes Then
Cancel = True
Me.NomeCampo.SetFocus
Else
Me.NomeOutroCampo.SetFocus
End If
End If

Pode ser feito tambem com Select Case

Obrigado Criquio

Perfeito