使用 Tab 跨多个子窗体从一个字段移动到另一个字段

Question

我有一个包含 9continuous SubFormsunbound mainForm。我使用SubForm1作为代理父级，并将mainForm上的一个文本框链接到SubForm1ID。然后将此ID用作其他 8 个child subForms的parentField。这种安排效果很好，并且在跨记录移动以进行数据输入/数据编辑方面非常快。但是，当我想使用TAB按钮从一个textBox in SubForm1移动到另一个textBox in 'SubForm2时，我遇到了挑战。目前，我必须使用Ctl + Tab来跨表单移动。我知道这是由于多个SubForms而发生的，但对于我的用户来说，我想给人一种感觉，就好像它只是一个屏幕一样。我的用户希望类似 Web 的体验仅使用Tab按钮跨控件移动。有什么方法可以在不使用Ctl按钮的情况下实现它？

Answer 1

例如，如果您知道何时会出现在子窗体1的最后一条记录上，则可以检查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