Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1791 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【5074】リストのデータの移動 Y.K 05/5/20(金) 20:56 質問[未読]
【5075】Re:リストのデータの移動 Y.K 05/5/20(金) 21:01 質問[未読]
【5081】Re:リストのデータの移動 小僧 05/5/22(日) 1:11 回答[未読]
【5243】Re:リストのデータの移動 隆志 05/6/3(金) 16:38 質問[未読]
【5259】Re:リストのデータの移動 小僧 05/6/6(月) 9:33 回答[未読]
【5074】リストのデータの移動
質問  Y.K  - 05/5/20(金) 20:56 -
引用なし
パスワード
   Form1にテキストボックス1,2,3があり（1がWBC、2がTP、3がTG）
Form2にリストボックスAがあり（複数選択の設定、クエリからデータを引っ張っている）
Form2のリストボックスの検査名がWBCの時の検査数値のデータ
　　　　　　　　　　　　　　　がTPの時の検査数値のデータ
　　　　　　　　　　　　　　　がTGの時の検査数値のデータ
を複数選択しコマンドボタンでｸﾘｯｸした時にそのデータが一回でForm1のそれぞれのテキストボックスに移動する方法を教えて下さい。
【5075】Re:リストのデータの移動
質問  Y.K  - 05/5/20(金) 21:01 -
引用なし
パスワード
   先ほどの質問の追加をします。
リストボックスの中のColumn1に検査名、Column2に結果が表示されています。
どうかお願いします。
【5081】Re:リストのデータの移動
回答  小僧  - 05/5/22(日) 1:11 -
引用なし
パスワード
   ▼Y.K さん：
こんばんは。
あまりきれいなコードになりませんでしたが、こんな感じでしょうか？

Private Sub 実行_Click()
Dim MyList As ListBox
Dim mybox As TextBox
Dim Cnt As Long
　　Set MyList = Me.選択リスト
　　
　　For Cnt = 0 To MyList.ListCount - 1
　　　　If MyList.Selected(Cnt) Then
　　　　　　Call Frm1探し(MyList.Column(0, Cnt), MyList.Column(1, Cnt))
　　　　End If
　　Next
　
　　Set MyList = Nothing
End Sub
　　
Function Frm1探し(CName As String, CVal)
Dim C As Control
On Error Resume Next
　　For Each C In Forms![Form1].Controls
　　　　If C.Name = CName Then C.Value = CVal: Exit For
　　Next
End Function
【5243】Re:リストのデータの移動
質問  隆志  - 05/6/3(金) 16:38 -
引用なし
パスワード
   これをしても出来ませんでした。
もう少し詳しく教えていただけると幸いです。
Frm1探しの所がわかりません？
【5259】Re:リストのデータの移動
回答  小僧  - 05/6/6(月) 9:33 -
引用なし
パスワード
   ▼隆志 さん：
おはようございます。

>これをしても出来ませんでした。

何がどう出来なかったのか説明がありますと有難いです。
・コンパイルエラー
・実行するとｘｘｘの所でエラー
・エラーはでないが反応がない
　　　　　　　　　　　　　　etc…

>Frm1探しの所がわかりません？

実行_Click では、リストボックスで選択された値があった時、
「Column1」、「Column2」の値を引数として Frm1探し を呼び出しています。

Frm1探し では受け取った「Column1」の値を（ここでは検査名になっているはずです）
「Form1」のコントロール名から探し、見つかった場合に「Column2」の値を代入
しています。
コントロールには Valueプロパティ がないもの（ラベルとか）がありますので
「On Error Resume Next」と記述してエラーを飛ばしています。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1791 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1081092
(SS)C-BOARD v3.8 is Free