access2010 ナビゲーションフォーム その3

• 移動コントロール：ナビゲーションコントロール：NavigationControl
• 移動ボタン：ナビゲーションボタン:NavigationButton

の関連ってどうなってるのか確認してみた。

NavigationControl.Properties("NavigationParent") String
NavigationControl.Properties("NavigationChild") String

NavigationButton.Properties("NavigationParentButton") String
NavigationButton.Properties("DefaultInsertButton")  Integer

ってことらしい。常時に触れることないプロパティではあるけれどもCreateControlとかで使うのかもしれんね。 移動コントロール/移動ボタンいずれもVisible/Enabledつかえるから実行時に制御可能と。
でもって、NavigationControlに配置されているNavigationButtonの列挙

    Dim Frm As Access.Form
    Dim naviCtr As Access.NavigationControl
    Dim naviBtn As Access.NavigationButton
    Set naviCtr = Frm.移動コントロール0
    
    For Each naviBtn In naviCtr.Controls
        If naviBtn.Properties("DefaultInsertButton") = 0 Then
            Debug.Print naviBtn.Name
        End If
    Next