Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3693 / 9994

←次へ　｜　前へ→


	【9559】Re:フォームでの抽出データをテーブルに出力

小僧 - 07/6/10(日) 22:44 -


	引用なし

	パスワード

▼メイ子さん：
こんばんは。

> ちなみに名簿一覧はフォームのテキストボックスから
> 抽出条件を設定しているクエリーです。

このクエリをそのまま使うとなると
ADODB.Command　オブジェクトを使い
パラメータを指定してからレコードセットを開く事になると思います。

Dim CN As ADODB.Connection
Dim CMD As New ADODB.Command
Dim RS As New ADODB.Recordset
　
　　Set CN = CurrentProject.Connection

　　With CMD
　　　　.ActiveConnection = CN
　　　　.CommandText = "SELECT * FROM 名簿一覧 " _
　　　　　　　　　　 & "WHERE クラス ='" & Me.クラス選択 & "' " _
　　　　　　　　　　　 & "AND 曜日='" & Me.曜日選択 & "'"
　　　　.CommandType = adCmdText
　　　　.Parameters(0) = Forms![フォーム名]![コントロール名]
　　End With
　　　　
　　Set RS = CMD.Execute

　　Do Until RS.EOF
・
・
・

クエリ：名簿一覧にいくつパラメータがあるのかが解りませんが、
上記の様にパラメータをセットしてから開けば
お望みのような操作ができるかと思われます。

1,671 hits

▼

【9556】フォームでの抽出データをテーブルに出力 メイ子 07/6/10(日) 18:22