ListCount プロパティを使用して、コンボ ボックスのリスト ボックス部分の行数を決定します。 読み取り/書き込みが可能な Long です。
構文
式。ListCount
式ComboBox オブジェクトを表す変数。
注釈
Microsoft Access では、 ListCount プロパティがリスト ボックス内の行数またはコンボ ボックスのリスト ボックス部分に設定されます。 ListCount プロパティの値は読み取り専用であり、ユーザーが設定することはできません。
このプロパティは、マクロまたは Visual Basic を使用することによってのみ使用できます。 また、フォーム ビューとデータシート ビューでのみ値を取得できます。
ListCount プロパティの設定には、コントロールの RowSource プロパティと RowSourceType プロパティによって決定される、コンボ ボックス リストまたはリスト ボックスの行の総数が含まれます。 コントロールがテーブルまたはクエリに基づいている場合 ( RowSourceType プロパティがテーブル/クエリに設定され、 RowSource プロパティが特定のテーブルまたはクエリに設定されている場合)、 ListCount プロパティの設定には、テーブルまたはクエリ結果セット内のレコード数が含まれます。 RowSourceType プロパティが値リストに設定されている場合、ListCount プロパティの設定には、RowSource プロパティで指定された値リストの結果として生成される行数が含まれます (これは、値リストと、ColumnCount プロパティで設定されたリスト ボックスまたはコンボ ボックス リストの列数によって異なります)。
ColumnHeads プロパティを Yes に設定している場合、列見出しの行は ListCount プロパティによって返される行数に含まれます。 テーブルまたはクエリに基づくコンボ ボックスとリスト ボックスの場合、列見出しを追加すると行が 1 つ追加されます。 値リストに基づくコンボ ボックスとリスト ボックスの場合、列見出しを追加しても行数は変更されません (値の最初の行が列見出しになります)。
ListCount プロパティと ListRows プロパティを使用して、コンボ ボックスのリスト ボックス部分に表示する行数を指定します。
例
次の例では、ListCount プロパティを使用して、[顧客] フォームの [得意先リスト] コンボ ボックスのリスト ボックス部分の行数を検索します。 次に、" ListRows /リスト行数" プロパティを使用して、表示する行数を指定します。
Public Sub SizeCustomerList()
Dim ListControl As Control
Set ListControl = Forms!Customers!CustomerList
With ListControl
If .ListCount < 8 Then
.ListRows = .ListCount
Else
.ListRows = 8
End If
End With
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。