Dim ctl As Control
For i = 1 to 10
Set ctl = Me.Controls("lbl" + Format(i,"00"))
ctl.caption = Nz(DLookup("フィールド1", "テーブル名", "フィールド2='Data" & Format(i, "00") & "'"), "")
Next
このような感じで、ラベルにキャプションをつけたかったのですが、ctlには.captionプロパティが対応しないのですね。
どうすれば、よいのでしょうか。
こう判断したのはなぜ？
回答ありがとうございます。
自動メンバー表示が出なかったうえ、何らかのエラーが出たために、captionのところでエラーが出ていると勘違いしてしまいました。現在は、エラーを修正して使えています。
そのコードで問題なく動作すると思いますが、
コード入力中に自動メンバー表示のリストに出てこないという話だったら、
ctlをControlではなくLabelで宣言すればいいでしょう。
回答ありがとうございます。
自動メンバー表示が出なかったうえ、何らかのエラーが出たために、captionのところでエラーが出ていると勘違いしてしまいました。現在は、エラーを修正して使えています。
Labelで宣言すれば、自動メンバー表示に出るのですね。
自動メンバー表示のヒントがないと、私には不便で不安になってしまいます。今回のように、ラベル用の時はLabelで変数宣言するようにします。
ありがとうございました。
コントロールにはCaptionがあるもの(Label, CommandButton等)とないもの(TextBox, ComboBoxなど)がありますので、Controlだとないものがあるプロパティは出てこないですね。
１種類のコントロールを対象にするなら、そのコントロール種で宣言する方がいいですね。