Access VBA質問箱 IV

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

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


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

2525 / 9994

←次へ　｜　前へ→


	【10742】Re:複数条件からのデータ抽出について

Gin_II - 08/11/19(水) 11:31 -


	引用なし

	パスワード

>　　　　 stList = "[アルファベット]='" & Combo & "'"

ここで設定した内容を、

>　　　　　　 stList = "[数値]>=" & kazu3 & "And[数値]<=" & kazu4

上書きしているので、

> 数値だけは抽出できるのですが、ABC別に抽出することが出来ません。

当然そうなりますね。
ちなみに、書かれているものは、スペースがなかったりするのでエラーに
なると思いますが、実際に使っているものは、きちんと書いているという
ことですよね？

Dim strSql As String
Dim strWhere As String

strSQL = "SELECT * from Sheet1_2クエリ "

If Not IsNull(Me!combo) Then
　　strWhere = strWhere & " AND アルファベット = '" & Me!combo & "'"
End If

If Not IsNull(Me!kazu3) Then
　　If Not IsNull(Me!kazu4) Then
　　　　strWhere = strWhere & " AND 数値 BETWEEN " & Me!kazu3 & " AND " & Me!kazu4
　　Else
　　　　strWhere = strWhere & " AND 数値 =" & Me!kazu3
　　End If
End If

If Len(strWhere) > 0 Then
　　Me.RecordSource = stSql & "WHERE " & Mid(strWhere, 5)
Else
　　Me.RecordSource = stSql
End If

443 hits

▼

【10741】複数条件からのデータ抽出について 波 08/11/19(水) 10:33