Access VBA質問箱 IV

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

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


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

3696 / 9994

←次へ　｜　前へ→


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

メイ子 - 07/6/10(日) 18:22 -


	引用なし

	パスワード

こんにちは、メイ子と申します。
あちこち探して、下記のようなコードを作りましたが、
「1つ以上の必要なパラメータの値が設定されていません」とエラーが出ます。
どなたがご教示お願いいたします。
ちなみに名簿一覧はフォームのテキストボックスから抽出条件を設定しているクエリーです。

　 Dim CN As ADODB.Connection
　 Dim rs As ADODB.Recordset
　 Dim rs2 As ADODB.Recordset
　 Dim SQL As String
　
　 Set CN = CurrentProject.Connection
　　
　 Set rs = New ADODB.Recordset
　 SQL = "SELECT * FROM 名簿一覧 WHERE クラス ='" & Me.クラス選択 & "'and 曜日='" & Me.曜日選択 & "'"
　 rs.Open SQL, CN, adOpenKeyset, adLockOptimistic
　　　　
　 Do Until rs.EOF

　　　　If rs!出欠 = -1 Then
　　　　　　rs2!生徒番号 = rs!生徒番号
　　　　　　rs2!氏名 = rs!氏名
　　　　　　rs2!クラス = rs!クラス
　　　　　　rs2!曜日 = rs!曜日
　　　　　　rs2!出席日 = Date
　　　　　　rs2!出欠 = -1

　　　　Else
　　　　　　rs2!生徒番号 = rs!生徒番号
　　　　　　rs2!氏名 = rs!氏名
　　　　　　rs2!クラス = rs!クラス
　　　　　　rs2!曜日 = rs!曜日
　　　　　　rs2!出席日 = Null
　　　　　　rs2!出欠 = 1
　　　　End If

　　　　rs.MoveNext
　　Loop

1,637 hits

▼

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