Access VBA質問箱 IV

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

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


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

2516 / 9994

←次へ　｜　前へ→


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

波 - 08/11/19(水) 16:21 -


	引用なし

	パスワード

Private Sub cmd1_Click()
On Error GoTo e
　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

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

stSQL = stSQL & stList
Me.RecordSource = stSQL
e:
Exit Sub
End Sub

-----------------------------------------------------
今はこのような状態です。
Visual Basic Editor についてよくわからないのでそのままコピペしてあげてしまいましたが、お分かりになりますでしょうか...。

474 hits

▼

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