タブコントロールのページを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