Modülden boşmu denetimi yapmak icin

Public Function EsyaCinsiBos()
If IsNull(EsyaCinsi) Or EsyaCinsi = Empty Then
MsgBox ("Esya Cinsini Seciniz..."), 16, "HATA"
Screen.ActiveForm.ActiveControl.SetFocus
End If
End Function

şeklinde bir fonksiyon yazdım ve denetimin çıkıldığında olayına =EsyaCinsiBos() yazdım. Denetimi yapıyor ama mesajdan bir sonraki denetime gidiyor. Setfocus olayını nasıl çözerim?

2.satırda IsNull ile zaten boş olduğunu kontrol ediyorsunuz,
Yani;


yerine


yazmanız gerekiyor denetime odaklamayı istemiyorsanız, Screen ile başlayan satırı kaldırmalısınız.

Ekteki dosyada denetim formu üzerindeki sayi kutusundan çıktığında boşsa modulden kontrolu yapıyor mesajda tamam. ama sonrasında toplam kutusuna geçiyor. Ben Kontrolden sonra sayi kutusuna odaklansın istiyorum. (Modulde fonksiyon yerine public sub kullanmak daha iyi galiba.)
Teşekkürler

If IsNull(EsyaCinsi) Or IsNull(EsyaCinsi) Then bu kodu yaptıgımda Empty oldugu için kontrol çalışmıyor.
If IsNull(EsyaCinsi) Or IsEmpty(EsyaCinsi) Then yaptım. daha şık oldu.

Acaba bir çözüm yok mu?

denetimin çıktığında olayına yazarsanız öncelikle başka bir denetime setfocus yapıp daha sonra istediğiniz denetime setfocus yapmalısınız. sonuçta hala o denetimde sayılırsınız.

metin1 çıktığında olayına yazarsanız

...
...
metin2.setfocus
metin1.setfocus
...
...

ile tekrar metin1 denetimine dönersiniz.

[undefined=undefined]
Private Sub Sicilno_Exit(Cancel As Integer)
If IsNull(Metin13) Or IsEmpty(Metin13) Then

GoTo son
End If

MESAJ = "GİRDİĞİNİZ SİCİL NOLU ÇALIŞAN MEVCUT"
MsgBox (MESAJ)

Undo
Me.Adı.SetFocus
Me.Sicilno.SetFocus

son:

End Sub
[/undefined]