タブコントロールのページをVBAから変更する: Access




BackHome BackTips Backメニュー

1ページ目ならば、TabPageMove 0 になります。

■ Access VBA 実行コード

Private Sub TabPageMove(nPg As Integer)
    Dim tTab As Control
    Dim tPage As Page

'タブコントロール名はタブ2としています
    Set tTab = Me!タブ2
    Set tPage = tTab.Pages(nPg)
    tPage.SetFocus
    Set tTab = Nothing
    Set tPage = Nothing
End Sub

ソースコード等を使用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい。

BackHome BackTips Backメニュー

Copyright(C) FeedSoft