Question

access 在文本框输入内容在按tab键触发更新后，在某些情况下需要把焦点留在这个文本框

我在更新后事件设置了把焦点留下啦，但是不行，焦点还是按tab的顺序离开了，代码如下，请高手帮忙，看看要怎样才能做到，谢谢
Private Sub 学员编号_AfterUpdate()
If IsNull(Me!学员编号) = True Then
Me.学员姓名 = Null
Me.学校 = Null
Me.年级 = Null
Me.班级 = Null
ElseIf IsNull(DLookup("[学员编号]", "学员表", "[学员编号]=[Forms]![课时消耗登记]![学员编号]")) = True Then
MsgBox "输入的教师编号不存在，请重新输入，如果是新学员请先登记学员资料", , "提示"
Me![学员编号].SetFocus
Else
Me.学员姓名 = DLookup("学员姓名", "学员表", "学员编号='" & Me.学员编号 & "'")
Me.学校 = DLookup("学校", "学员表", "学员编号='" & Me.学员编号 & "'")
Me.年级 = DLookup("年级", "学员表", "学员编号='" & Me.学员编号 & "'")
Me.班级 = DLookup("班级", "学员表", "学员编号='" & Me.学员编号 & "'")
End If
End Sub

Answer 1

执行完更新代码后，才按照定义的TAB键顺序把焦点跳转到下一个控件。
所以，在执行更新代码时，当前的焦点仍然是[学员编号]。
因此，你在代码中直接用Me![学员编号].SetFocus会发生错误！
知道了错误的原因，就不难更改了。更正如下：
在 Me![学员编号].SetFocus 的上面加上一句 Me![学员姓名].SetFocus
这样，先让焦点转移到 Me![学员姓名].SetFocus ，然后再转移回当前控件即可。。