使用Tab跨多个SubForms从一个字段移动到另一个字段

Question

我有一个包含9个continuous SubForms的unbound mainForm。我使用SubForm1作为代理父对象，并将mainForm上的一个文本框链接到SubForm1的ID。然后，此ID用作其他8个child subForms的parentField。这种排列效果很好，并且在数据输入/数据编辑时跨记录移动的速度非常快。然而，当我想要使用TAB按钮从一个textBox in SubForm1移动到另一个textBox in 'SubForm2时，我遇到了一个挑战。目前，我必须使用Ctl + Tab在表单之间移动。我知道这是因为有多个SubForms，但我想给我的用户一种感觉，就像它只是一个屏幕。我的用户希望类似web的体验只使用Tab按钮在控件之间移动。有没有办法不用Ctl按钮就能实现？

Answer 1

例如，如果您知道何时会在subform1中的最后一条记录上，则可以检查keyDown事件并将焦点放在下一个子窗体上。

如下所示：

Private Sub last_control_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If Shift  = 0 Then ' this is tab , then go to next subform
subForm2.setFocus
End If
End Sub