I'm not currently on a machine with Access, so can't test, but I believe that;
Private Sub AssetNum_BeforeUpdate(Cancel As Integer)
Me.AssetNum = CLng(Right(Me.AsstNum, Len(Me.AssetNum) - 1))
End Sub
Should do what you are after.
Your other option is to have an unbound field and use a...