请问我这代码问题出在哪?

mzjlgjf

Private Sub 级别编号_AfterUpdate()
Dim var As Variant
var = DLookup("级别", "级别", "id=" & Me.级别编号)
If IsNull(var) = True Then

MsgBox "无此记录,请重新输入", vbOKOnly, "提示"
Me![级别编号] = Null
Me![级别编号].SetFocus
Else
Me![级别] = var
End If
End Sub

为什么这样当查不到记录的时候,它不会把焦点返回"级别编号"那?麻烦各位解决一下,谢谢

一点通

在Me![级别编号].SetFocus这句前增加一句将焦点先移到别的控件上

mzjlgjf

难道不能就回到级别编号那吗?

一点通

你可能不明我说什么?

Private Sub 级别编号_AfterUpdate()
Dim var As Variant
var = DLookup("级别", "级别", "id=" & Me.级别编号)
If IsNull(var) = True Then



MsgBox "无此记录,请重新输入", vbOKOnly, "提示"
Me![级别编号] = Null
Me![其它控件].SetFocus

Me![级别编号].SetFocus
Else
Me![级别] = var
End If
End Sub

mzjlgjf

哦,谢谢了