关于焦点的问题，请各位老大指点一下。

zhen1022

Private Sub 身份证件编号_LostFocus()

Dim bb As Integer

Dim aa As String

aa = Left([身份证件种类], 1)

bb = Len([身份证件编号])

If aa = "1" Then

If bb <> 15 And bb <> 18 Then

MsgBox "身份证件编号必须为15或18位"

Forms!b3570!身份证件编号.SetFocus

      

  End If

  End If

End Sub

用ACCESS做一个东西，，我想当身份证件种类为1时，判断身份证件编号的位数，如果不为15或18时做出提示，并且那焦点返回到身份证件编号。所以就做了这段代码。不过在实际运行中只是出现MSGBOX的提示窗口，但焦点自动到了下一项。SETFOCUS这一句似乎没有起作用。我实在是搞不懂为什么，请各位高手给指点一下。

海狸先生

用更新前事件

zhen1022

忘了说明,身份证件编号项要求手工录入后再判断位数.