从页面本身更新页面标题

Question

我需要更新Access中一个Tab控件的页面标题。我尝试了以下代码。

Private Sub tabName_AfterUpdate()
  MyTabControl.Pages(Me.MyTabControl.Value).Caption = Me.tabName
End Sub

这对设置标题很有效，但在使用Tab或Enter字段和执行上述代码后，我在下一条记录上结束了。我该怎么做才能保持在同一页面上？

Private Sub tabName_AfterUpdate()
  MyTabControl.Pages(Me.MyTabControl.Value).Caption = Me.tabName
  Forms!frmMailing.Controls!MyTabControl = Me.MyTabControl.Value
End Sub

也会导致下一条记录，而

Private Sub tabName_AfterUpdate()
  MyTabControl.Pages(Me.MyTabControl.Value).Caption = Me.tabName
  Forms!frmMailing.Controls!MyTabControl = Me.MyTabControl.Value-1
End Sub

会跳转到同一记录的上一页（如预期的那样）！我需要更新Access中Tab控件的页面标题。

Answer 1

请尝试以下代码示例。

Forms("dataimport").Command8.Caption = "test"
DoEvents

command8=控件在表单 "dataimport "处也要打开表单。