在ACCESS数据库中的一个窗体的“激活”事件中写入如下代码，但达不到打开窗体时才显示我的自定义菜单的目的，如何修改？盼指教。
Private Sub Form_Activate()
Dim I As Byte, J As Byte
    With CommandBars("我的菜单")
        For I = 1 To .Controls.Count
            .Controls(I).Enabled = False
            For J = 1 To .Controls(I).Controls.Count
                .Controls(I).Controls(J).Enabled = True
            
            Next
        Next
    End With
End Sub