ACCESS的文本框中输入18位数，但是我只想保存后9位数怎么做

[alexlcd2]

ACCESS的文本框中输入18位数，但是我只想保存后9位数
我写的
Private Sub 条形码号1_Exit(Cancel As Integer)
条形码号1.Text = Right(条形码号1.Text, 9)
End Sub

但是运行后，光标没办法移开文本框，是为什么啊
应该怎么写，谢谢指教

[wwwwb]

1、用UPDATE直接替换；
2、设置CONTROLSOURCE

[alexlcd2]

我这样写好像就可以了
Private Sub 条形码号1_LOSTFOUCS(Cancel As Integer)
条形码号1.Text = Right(条形码号1.Text, 9)
End Sub

谢谢楼上