文本框不能再次获得焦点

kent_73

需求：在按下回车后，Txtsl失去焦点，以便保存数据，然后Txtsl再次获得焦点。
结果：使用下面这段语句，Txtsl未再次获得焦点，那么问题出在哪里？
谢谢

Private Sub Txtsl_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
                    Text1.SetFocus                   ''''Txtsl失去焦点
                    ……                                      ''''保存数据
                    Txtsl.SetFocus                     ''''Txtsl重新获得焦点
End If
End Sub

kent_73

记录保存了，只是文本框Txtsl不能重新获得焦点

盗梦

docmd.RunCommand acCmdSaveRecord '保存记录