以下是一个示例代码，用于遍历MS Access子窗体并获取列的可见性：

Sub TraverseSubForms()
    Dim frm As Form
    Dim ctl As Control
    
    ' 遍历所有子窗体
    For Each frm In Forms
        ' 检查是否为子窗体
        If frm.CurrentView = acFormViewDatasheet And Not frm.IsLoaded Then
            ' 遍历子窗体上的所有控件
            For Each ctl In frm.Controls
                ' 检查是否为列控件
                If ctl.ControlType = acTextBox Then
                    ' 检查列的可见性
                    If ctl.Visible Then
                        Debug.Print "列 " & ctl.Name & " 可见"
                    Else
                        Debug.Print "列 " & ctl.Name & " 不可见"
                    End If
                End If
            Next ctl
        End If
    Next frm
End Sub

此代码使用VBA编写，可以在MS Access中的任何模块中执行。它首先遍历当前数据库中的所有窗体，然后检查每个窗体是否为子窗体并处于数据表视图。如果是子窗体，它将遍历子窗体上的所有控件，并检查每个控件是否为列控件（类型为文本框）。然后，它将打印出每个列的可见性状态（可见或不可见）。

您可以根据自己的需求进行修改和扩展此代码。