Mensagem de erro - Campo em branco e apenas numeros

E ai pessoal, e ai criquio!
Como faço um tratamento de erro para exibir uma menssagem de erro caso o campo esteja em branco e para que seja digitado apenas numeros. Eu estou usando a propriedade "AfterUpdate" na caixa de texto. Qual a sequencia lógica pois, estou tentando mas a mensagem para campo em branco aparece sempre depois da menssagem "digite apenas numeros e quando inicio o sistema. Desde já agradeço o apoio.[size=7]
[/size][size=7][/size]

Seria algo assim?

If IsNull(Me.SuaCaixa) Or Me.SuaCaixa.Value = "" Then
MsgBox "Campo não pode ser nulo",,""
ElseIf NotIsNumeric(Me.SuaCaixa) Then
MsgBox "Insira apenas número",,""
Me.SuaCaixa = Null
Else
Exit Sub
End If

Já agora estude este artigo da MIcrosoft sobre tratamento de erros. Aqui vai aprender bastante.

http://support.microsoft.com/kb/101324/pt-br

Oi! Então, deu certo, porém só funciona após a primeira consulta bem sucedida, se eu testar com o campo em branco na primeira vez após iniciado o sistema ou após um registro não encontrado, não acontece nada, deu pra entender? Outra coisa, qual diferença de nulo para vazio (If IsNull(Me.txt_rf.Value) Or Me.txt_rf.Value = "")? Desculpa é que eu preciso entender o que está acontecendo. Até mais!

Segue código abaixo:



Private Sub txt_rf_AfterUpdate()



If IsNull(Me.txt_rf.Value) Or Me.txt_rf.Value = "" Then



MsgBox "O campo RF está vazio!", vbCritical + vbOKOnly, "Atenção!"



Me.txt_aviso.Visible = False

Me.txt_aviso.BorderStyle = 0

Me.txt_aviso.Caption = ""

Me.foto.Visible = False

Me.foto = ""



ElseIf Not IsNumeric(Me.txt_rf.Value) Then



MsgBox "Insira apenas números!", vbCritical + vbOKOnly, "Atenção!"

Me.txt_rf.Value = Null

Me.txt_aviso.Visible = False

Me.txt_aviso.BorderStyle = 0

Me.txt_aviso.Caption = ""

Me.foto.Visible = False

Me.foto = ""



Else



Dim sql As String

Dim Banco As Database

Dim funcionario As Recordset



sql = "SELECT cd, rf_funcionario, nm_funcionario, foto FROM funcionario WHERE cd=" & txt_rf.Value & ""



Set Banco = CurrentDb

Set funcionario = Banco.OpenRecordset(sql)





If IsNull(DLookup("cd", "funcionario", "cd=" & Me!txt_rf)) Then

MsgBox "Registro não encontrado !", vbOKOnly + vbCritical, "Atenção"

txt_rf.Value = ""



Else



Me.txt_aviso.Visible = True

Me.txt_aviso.BorderStyle = 0

Me.txt_aviso.Caption = funcionario!nm_funcionario

Me.foto.Visible = True

Me.foto = funcionario!foto

End If

End If



Set Banco = Nothing

Set funcionario = Nothing

End Sub

Nulo previne o facto do campo ser nulo mas ter referência na memória e vazio por não conter dados, ou seja, não conter qualquer referência.