TextBox.ColumnHidden プロパティ (Access)

ColumnHidden プロパティを使用すると、データシート ビューで指定した列を表示または非表示にできます。 値の取得と設定が可能なブール型 (Boolean) の値です。

構文

式。ColumnHidden

式TextBox オブジェクトを表す変数。

解説

たとえば、[得意先名] フィールドと [電話番号] フィールドを表示できるように、幅が広すぎる [得意先住所] フィールドを非表示にしたい場合があります。

[!メモ] ColumnHidden プロパティは、データシート ビューのすべてのフィールドに適用されます。フォームがデータシート ビューで開かれている場合は、フォーム コントロールに適用されます。

データシート ビューで ColumnHidden プロパティを使って列を表示しないようにしても、フォーム ビューの同じ列にあるフィールドは表示されます。 同様に、フォーム ビューでコントロールの " Visible /可視" プロパティを False に設定しても、データシート ビューの対応する列は表示されます。

テーブルのデータシート ビューでフィールドの列が非表示であっても、クエリにフィールドを表示できます。 非表示の列の値を、フィルター適用後に非表示のままであっても、フィルターの条件として使用します。

フィールドの ColumnWidth プロパティを 0 に設定したり、データシート ビューでフィールドの幅を 0 に変更すると、その列の ColumnHidden プロパティは True に設定されます。 列を再表示すると、 ColumnWidth プロパティの値はフィールドが非表示にされる前の値に戻ります。

ColumnHidden プロパティは、デザイン ビューでは使うことができません。

例

次の例では、[製品] フォームのデータシート ビューで [製品コード] フィールドを非表示にします。

Forms!Products!ProductID.ColumnHidden = -1

次の例では、[製品] テーブルのデータシート ビューで [製品コード] フィールドを非表示にします。

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 のサポートおよびフィードバックを参照してください。