CheckBox.ColumnHidden 屬性 (Access)

使用 ColumnHidden 屬性可在 [資料工作表檢視] 中顯示或隱藏指定的資料行。 可讀寫的 Boolean。

語法

運算式。ColumnHidden

表達 代表 CheckBox 物件的變數。

註解

例如，您可能想要隱藏太寬的 CustomerAddress 欄位，以便檢視 CustomerName 和 PhoneNumber 字 段。

[!注意事項] 當表單處於資料工作表檢視 ColumnHidden 屬性可套用於 [資料工作表檢視中的全部欄位和表單控制項。

隱藏欄中的使用 ColumnHidden 屬性在資料工作表檢視中不會隱藏表單檢視中的相同欄欄位。 同樣地，在表單檢視中將控制項的 Visible 屬性設定為 False 也不會隱藏相對應的資料行中資料工作表檢視。

注意事項

[!注意事項] 若要設定或變更此屬性對於資料表或查詢使用 Visual Basic，您必須使用資料行的 Properties 集合。 如需使用 Properties 集合的詳細資訊，請參閱 屬性。

即使欄位的資料行隱藏在資料表資料工作表檢視中，您還是可以在查詢中顯示欄位。 即使套用篩選之後資料行仍會保持隱藏，仍使用隱藏資料行中的值作為篩選準則。

將欄位的 ColumnWidth 屬性設定為 0，或調整為零寬度資料工作表檢視] 欄位會導致 Microsoft Access 將對應的 ColumnHidden 屬性設 為 True 。 取消隱藏欄還原 ColumnWidth 屬性欄位已隱藏之前的值。

[!注意事項] 無法在設計檢視中使用 ColumnHidden 屬性。

範例

下列範例會隱藏Products表單之 [資料工作表檢視] 中的[ProductID] 欄位。

Forms!Products!ProductID.ColumnHidden = -1

下一個範例會隱藏Products資料表之資料工作表檢視中的ProductID欄位。

Public Sub SetColumnHidden() 
 
 Dim dbs As DAO.Database 
 Dim fld As DAO.Field 
 Dim prp As DAO.Property 
 Const conErrPropertyNotFound = 3270 
 
 ' Turn off error trapping. 
 On Error Resume Next 
 
 Set dbs = CurrentDb 
 
 ' Set field property. 
 Set fld = dbs.TableDefs!Products.Fields!ProductID 
 fld.Properties("ColumnHidden") = True 
 
 ' Error may have occurred when value was set. 
 If Err.Number <> 0 Then 
 If Err.Number <> conErrPropertyNotFound Then 
 On Error GoTo 0 
 MsgBox "Couldn't set property 'ColumnHidden' " & _ 
 "on field '" & fld.Name & "'", vbCritical 
 Else 
 On Error GoTo 0 
 Set prp = fld.CreateProperty("ColumnHidden", dbLong, True) 
 fld.Properties.Append prp 
 End If 
 End If 
 
 Set prp = Nothing 
 Set fld = Nothing 
 Set dbs = Nothing 
 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。