ステータスバーのテキストは、現在のフィールドのDescription
プロパティです。
Description
VBAから、フォームのレコードセットのフィールドにアクセスできます。
Debug.Print Me.Recordset.fields("id").Properties("Description")
したがって、という名前のラベルコントロールがある場合は、lblDescription
その.Caption
値をフィールドのに設定できますDescription
。
Me.lblDescription.Caption = Me.Recordset.fields("id").Properties("Description")
ただし、これはもっと複雑になる可能性があります。 Description
はユーザーが作成したプロパティです。つまり、値を指定するまで存在しません。また、セットが1つあるが、後でその値を削除すると、プロパティ自体は存在しなくなります。
Description
存在しないときに取得しようとすると、VBAはエラー#3270「プロパティが見つかりません」をスローします。そのエラーをトラップして、それが発生したときに設定Me.lblDescription.Caption
することができvbNullString
ます。
また、いつ変更するかについての戦略も必要ですMe.lblDescription.Caption
。現在アクティブなコントロールに基づいて設定するプロシージャを作成できます。次に、フォームの各コントロールのフォーカスイベントからそのプロシージャを呼び出します。これにはもっと良いアプローチがあるかもしれませんが、私は今それを見ていません。