Properties プロパティ

対象

AccessObject オブジェクト

Control オブジェクト

Label オブジェクト

Page オブジェクト

SubForm オブジェクト

BoundObjectFrame オブジェクト

CurrentProject オブジェクト

Line オブジェクト

PageBreak オブジェクト

TabControl コレクション

CheckBox オブジェクト

CustomControl オブジェクト

ListBox オブジェクト

Rectangle オブジェクト

TextBox オブジェクト

CodeProject オブジェクト

Form オブジェクト

ObjectFrame オブジェクト

Report オブジェクト

ToggleButton オブジェクト

ComboBox オブジェクト

GroupLevel オブジェクト

OptionButton オブジェクト

Section オブジェクト

CommandButton オブジェクト

Image オブジェクト

OptionGroup オブジェクト

SmartTag オブジェクト

AccessObject オブジェクト、CodeProject オブジェクト、および CurrentProject オブジェクトの Properties プロパティ

AccessObject オブジェクト、CurrentProject オブジェクト、または CodeProject オブジェクトの AccessObjectProperties コレクションへの参照を取得します。

expression.Properties

expression 必ず指定します。このトピックの [対象] の一覧のオブジェクトのうちの 1 つを返すオブジェクト式を指定します。

解説

AccessObjectProperties コレクション オブジェクトは、AccessObject オブジェクト、CurrentProject オブジェクト、または CodeProject オブジェクトに関連するすべてのプロパティのコレクションです。そのメンバ オブジェクトのインデックスまたはメンバ オブジェクトの名前を示す文字列式を使って、コレクションの各メンバを参照できます。コレクション内の最初のメンバ オブジェクトのインデックスの値は 0 で、コレクション内のオブジェクトの数は、AccessObjectProperties コレクションの Count プロパティの値から 1 を引いた値です。

Properties プロパティを使用して、CurrentData オブジェクトからアクセスされるコレクションのメンバーである AccessObject オブジェクトのプロパティを取得することはできません。

SmartTag オブジェクトの Properties プロパティ

特定のスマート タグのプロパティのコレクションを表す SmartTagProperties コレクションを取得します。

expression.Properties()

expression 必ず指定します。SmartTag オブジェクトを返す式を指定します。

[対象] の一覧の、他のすべてのオブジェクトの Properties プロパティ

コントロールの Properties コレクション オブジェクトへの参照を取得します。

expression.Properties

expression 必ず指定します。このトピックの [対象] の一覧のオブジェクトのうちの 1 つを返すオブジェクト式を指定します。

解説

Properties コレクション オブジェクトは、コントロールに関連するすべてのプロパティのコレクションです。そのメンバ オブジェクトのインデックスまたはメンバ オブジェクトの名前を示す文字列式を使って、コレクションの各メンバを参照できます。コレクション内の最初のメンバ オブジェクトのインデックスの値は 0 で、コレクション内のオブジェクトの数は、Properties コレクションの Count プロパティの値から 1 を引いた値です。

使用例

次の使用例では、Properties プロパティを使って、フォームのコントロールに関連するプロパティを [イミディエイト] ウィンドウに表示しています。このコードを実行するには、フォームに cmdListProperties という名前のコマンド ボタンを配置し、以下のコードをフォームの宣言セクションに貼り付けます。コマンド ボタンをクリックして、プロパティの一覧を [イミディエイト] ウィンドウに表示します。

Private Sub cmdListProperties_Click()
ListControlProps Me
End Sub
Public Sub ListControlProps(ByRef frm As Form)
Dim ctl As Control
Dim prp As Property
On Error GoTo props_err
For Each ctl In frm.Controls
Debug.Print ctl.Properties("Name")
For Each prp In ctl.Properties
Debug.Print vbTab & prp.Name & _
" = " & prp.Value
Next prp
Next ctl
props_exit:
Set ctl = Nothing
Set prp = Nothing
Exit Sub
props_err:
If Err = 2187 Then
Debug.Print vbTab & prp.Name & _
" = Only available at design time."
Resume Next
Else
Debug.Print vbTab & prp.Name & _
" = Error Occurred: " & Err.Description
Resume Next
End If
End Sub
スキルを磨く
トレーニングの探索
新機能を最初に入手
Office Insider に参加する

この情報は役に立ちましたか?

ご意見をいただきありがとうございます。

フィードバックをお寄せいただき、ありがとうございます。Office サポートの担当者におつなぎいたします。

×