Office中国论坛/Access中国论坛

标题: 关于焦点的问题，请各位老大指点一下。 [打印本页]

作者: zhen1022 时间: 2005-9-27 20:34
标题: 关于焦点的问题，请各位老大指点一下。
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这一句似乎没有起作用。我实在是搞不懂为什么，请各位高手给指点一下。

作者: 海狸先生 时间: 2005-9-28 00:43
用更新前事件

作者: zhen1022 时间: 2005-9-28 01:12
忘了说明,身份证件编号项要求手工录入后再判断位数.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)