访问表单在屏幕底部打开

时间:2017-09-29 21:13:44

标签: vba ms-access ms-access-2010

我有一个访问表单,上面有大约7个标签。 当我单击其中一个选项卡时,由于某种原因,窗口会自动打开到页面的最底部。

我真的不确定导致这种情况的原因......没有VBA代码声明这样做。

我尝试实现此代码:

Private Sub Incident_Information_Click()
     Forms![PIR Form].[Claim Number].SetFocus
End Sub

Private Sub TabCtl0_Click()
If Me.TabCtl0.Value = 2 Then
    Forms![PIR Form 2].[Claim Number].SetFocus
End If
End Sub

我希望当用户进入"事件信息"选项卡,窗口将自动设置为第一个控件(在本例中为文本框,名为"声明编号")。

有时候这种方法有效,有时候却没有。大多数情况下,屏幕仍会向下滚动到表单的底部。

有人可以帮忙吗?我不知道造成这个问题的原因以及如何纠正它。

0 个答案:

没有答案