No.1ベストアンサー
- 回答日時:
こんにちは。
一覧表フォームで左クリックでのその行のある項目値をある変数に取りたいということでいいでしょうか。
フォーム編集と表編集切り替えて確認してみてください。左クリックでレコード位置はその行に移動しています。ということは、[氏名]を &STRに取りたいのなら、[氏名]をソースにしているオブジェクトが t氏名だとして、t氏名のオブジェクト属性のイベントタブ マウス左クリックにチェックいれて、KEVに
手続き定義開始 t氏名::マウス左クリック(長整数 &マウス位置[2],長整数 &明細番号,長整数 &フラグ,参照 長整数 &処理中止)
代入 &STR=[氏名]
手続き定義終了
これだけでいいのです。(マウス・クリックは全角表記にしています。)
ただ、これでは t氏名以外のオブジェクトをクリックしても反応してくれません。それには、一覧表オブジェクトのその行の全オブジェクトに同様に設定すればよいのですが、「ファミリ」を使えば、もうちょっとスマートに処理できます。
書式→ファミリパレット 新規作成を2回クリックすれば「ファミリ_1」ができます。
書式→オブジェクトリスト→ファミリ→ファミリ_1 右クリックして両方を選びます。イベントのタブでマウス左クリックにチェック。点3つ並んだビルダボタンをクリック。KEV名はフォーム名と同じにします。KEVの記述は次。
手続き定義開始 ファミリ_1::マウス左クリック(長整数 &マウス位置[2],長整数 &明細番号,長整数 &フラグ,参照 長整数 &処理中止)
代入 &STR=[氏名]
手続き定義終了
あとは各オブジェクトへの設定。1レコードあたり1行とします。フォーム定義で行の一番左のオブジェクトクリック、Shift押しながら一番右のオブジェクトクリック。これでその行の全オブジェクト選択できているはずなので、書式→オブジェクトの属性→イベントのタブ。右下のファミリ名のところでファミリ_1選択。
これで、その行のどの項目を左クリックしても、&STRに[氏名]を代入するイベントが発生することになります。試してみてください。
(書式→定義画面の設定で「詳細プロパティを使用する」にチェックをお忘れなく。操作ナビも消去したほうがいいでしょう。)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでオブジェクトを小数点で位...
-
VBA エンターキーでイベントに...
-
コードでオブジェクトを最前面に
-
カッコ付けのオブジェクト名を...
-
桐V9での値の取得
-
現在アクティブになっているオ...
-
アクセスVBAのMe!と[ ]
-
Excel VBAでマウスの左クリック...
-
LoadImage関数について(VC++)
-
エクセルで、日付を入力すると...
-
「ご処理進めて頂きますようお...
-
iD
-
インタラクティブの反対語は?
-
Excelシート上のマクロを登録し...
-
メルカリのメルカードで買い物...
-
Access サブフォームに連番を...
-
Excel ラジオボタンのリセット...
-
ユーザーフォームをショートカ...
-
「PC Helpsoft Driver Updated...
-
EXCEL VBA マクロ 実行する度に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA エンターキーでイベントに...
-
アクセスVBAのMe!と[ ]
-
Excel2007 でのチェックボック...
-
Access からオブジェクトとして...
-
エクセルVBAでセル番地を指定し...
-
Excel VBAでマウスの左クリック...
-
【エクセルのマクロ】クリップ...
-
日本語の文字化けを直す方法
-
現在アクティブになっているオ...
-
Accessのフォーム上にエクセル...
-
文字列で小数点以下の0を削除し...
-
【エクセル】複数のTextBoxに共...
-
ユーザーフォームのインポート...
-
Excelを閉じるときVBAプロジェ...
-
コードでオブジェクトを最前面に
-
PowerpointVBAで指定のShapeオ...
-
Imageコントロールにグラフを表...
-
VBAで選択範囲外の図形(オブジ...
-
C#で画像をクリップボードへの...
-
WSH or VBの質問
おすすめ情報