this code makes my access stop working!

[behedwin]

Every time i run below code and the If statement is true, my access freezes up.

'count characthers in textbox
If Len(Me.txtpersonnummer.Text) = 10 Then
Me.WarningPersonnummer.Visible = False
Me.txtpersonnummer.BackColor = vbWhite
Exit Sub
Else
Me.WarningPersonnummer.Visible = True
Me.txtpersonnummer.BackColor = vbBlue
End If

If i remove so i have 9 numbers in the textbox called txtpersonnummer.
Then it all works.
But if i then put back 10 charachters in the textbox. My access locks up and i need to restart it.

Anyone got any idea of why?

 

[behedwin]

Well i have tried to remove both the echo and the painting code.
It did not do any difference for me.

Edit: wrong by me.
i tested it again and removed echo code.
then the error dissapeard.
so it was all allong the
Application.Echo False
and
Application.Echo True
that froze access.

 

[xenou]

Yes, it makes sense now that I think of it. Are you sure you need these things? I haven't had to use echo or painting except in extremely rare cases.

 

[behedwin]

No im not sure. I pretty much ad them on All my subs as rule.