Ｐａｇｅ 649 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼自動入力？説明が難しいのですが・・・ ひごもっこす 04/5/31(月) 15:15 ┗Re:自動入力？説明が難しいのですが・・・ クロ 04/5/31(月) 16:46 ┗Re:自動入力？説明が難しいのですが・・・ ひごもっこす 04/5/31(月) 21:18 ┗Re:自動入力？説明が難しいのですが・・・ しろくろやぎ 04/6/1(火) 14:15 ┗Re:自動入力？説明が難しいのですが・・・ ひごもっこす 04/6/1(火) 16:12 ─────────────────────────────────────── ■題名 ： 自動入力？説明が難しいのですが・・・ ■名前 ： ひごもっこす ■日付 ： 04/5/31(月) 15:15 -------------------------------------------------------------------------
| 初心者なので、質問の意味自体がわからないかもしれませんがよろしくお願い致します。 テーブル；参加者（フィールド:「参加者名」「肩書き」※いずれもテキスト型） フォーム(デザインビューより作成)；席次表(テキストボックス:「txt_name1（1〜70）」「txt_status1（1〜70）」 ※出席者数は70名です) まず、結婚式の座席を整理するのに、「席次表」フォームのテキストボックス「txt_name1」に参加者名を手入力すれば、テキストボックス｢txt_status｣に肩書きが自動的に入力されるようにしたいんです。 どうすればよいでしょうか？教えてください。 |
| txt_name1(1〜70)の更新後処理のイベントに Me.txt_status1 = DLookup("[肩書き]", "参加者", "[参加者名] = '" & Me.txt_name1 & "'") では如何でしょうか？当然70個書きます。 |
| クロさんへ。 ありがとうございます。なるほど〜、できました！ ちょっと地道な作業ですけど、これをあと69回繰り返します。 勉強になりました。 |
| ▼ひごもっこす さんWrote： >ちょっと地道な作業ですけど、これをあと69回繰り返します。 後の祭りかもしれませんが.... txt_name1(1〜70)の更新後処理のイベントに Call SetStatus(1) ' この番号を1〜70でそれぞれ変更 としておき、SetStatus()関数を以下のようにしておけば、 メンテナンスがやりやすいかと。 Private Sub SetStatus(i As Integer) Me.Controls("txt_status" & CStr(i)) = _ DLookup("[肩書き]", "参加者", _ "[参加者名] = '" & Me.Controls("txt_name" & cstr(i)) & "'") End Sub |
| しろくろやぎ さんへ。 アドバイスありがとうございます。 さっそく今からそれを試してみたいと思います。 なんといっても初心者なので、ちょっと時間かかると思うので、取り急ぎお礼のお言葉 を伝えときたかったもので。 ありがとうございました。 |