サブフォームのコントロール名について

Question

大変お世話になります。

サブフォームのコントロール名について教えて下さい。

Forms!フォーム名!サブフォーム名.Form!コントロール名

で、コントロールの値は指定できるのですが、

サブフォームレコードの１番目、２番目の指定の仕方が解りません。

コンボックス.Clumn(2) といったような指定がないのでしょうか？

コンボックスを「隠して」設定すれば可能かなーなどと思っています。

添付ファイルを付けました。

最下段の商品名（３つのテキストボックス）に、商品名を表示したいのです。

宜しく、お願いします。

Answer 1

というのは、図にあるように、

「氏名・住所」のある名簿をメインにして、サブが「商品」になります。

名簿と商品は、「一対多」のクエリを設定しています。

サブフォームコントロールの親リンクフィールド/子リンクフィールドを設定して、

関連したデータのみ表示しているとことですよね。

前回までの回答の方法でも、抽出条件を適切に設定して、親フォームのレコード移動のたびに再度実行するか、

リストボックスを再クエリすれば可能です。

サブフォームを使用する場合は、下記のコードになります。

Dim rs As DAO.Recordset

Set rs = Me.売上.Form.RecordsetClone

For i = 1 To 5

   If rs.EOF Then Exit For

   Me("テキスト" & i) = rs!商品

   rs.MoveNext

Next

rs.Close

前の回答の Set rs = ・・・・ の部分を変更するだけです。

Answer 2

VBAを使わない別案

リストボックスを配置して下記のように設定します。

値集合ソース　クエリ名

名前　リスト1

可視　いいえ

テキスト1のコントロールソース

=[リスト1].ItemData(0)

テキスト2のコントロールソース

=[リスト1].ItemData(1)

テキスト3のコントロールソース

=[リスト1].ItemData(2)

テキスト4のコントロールソース

=[リスト1].ItemData(3)

テキスト5のコントロールソース

=[リスト1].ItemData(4)

Answer 3

サブフォームは使用しなくてもいいのですね。

テーブル（または、クエリ）のデータを自由な位置に表示したいということですね。

下記のコードを適切なイベントで実行すればいいでしょう。

Dim rs As DAO.Recordset

Set rs = CurrentDB.OpenRecordset("SELECT * FROM テーブル名 WHERE 抽出条件")

For i = 1 To 5

   If rs.EOF Then Exit For

   Me("テキスト" & i) = rs!商品

    rs.MoveNext

Next

rs.Close

※

テーブル名や抽出条件は適切に変更してください。

フォーム上に、テキスト1,  テキスト2,  テキスト3,  テキスト4,  テキスト5 の５つのテキストボックスを配置。

Answer 4

お世話になります。

＞それぞれ１番目のレコードの値、２番めのレコードの値、３番目のレコードの値

＞を表示したいということでしょうか。

はい、その通りです。

添付した画は、テスト用です。

サブデータシートは確認用で、実際には、使いません。

サブデータシートやレポートのグループでは、

思った場所に、別々に商品名を表示できないので、困っているのです。

実際には、クエリで５件以内でデータを選択して、使用するつもりです。

宜しくお願いします。

Answer 5

テキストボックスのコントロールソースを

=Forms!フォーム名!サブフォーム名.Form!コントロール名

とした場合、カレントレコードの値が表示されます。

で、メインフォームにテキストボックスが３つありますが、

それぞれ１番目のレコードの値、２番めのレコードの値、３番目のレコードの値を表示したいということでしょうか。

すでにサブフォームに表示されているのと同じものをメインフォームに表示する目的はなんでしょうか。

テキストボックスは３つですが、サブフォームのレコード数が４以上の場合はどうするのでしょうか。