Microsoft Access 掲示板

Microsoft Access 掲示板

サブクエリをVBAで実行したい / 8

11 コメント
views
4 フォロー
8
kitasue 2020/07/23 (木) 18:07:07 ce705@e9d43

    Dim strSQL As String
    strSQL = ""
    strSQL = strSQL & "SELECT * FROM テーブル1 WHERE 地域 IN(SELECT 地域 FROM テーブル1" & vbNewLine
    strSQL = strSQL & "WHERE (ID = 1 And 収入 >= 100)" & vbNewLine
    strSQL = strSQL & "Or (ID = 2 And 収入 >= 60)" & vbNewLine
    strSQL = strSQL & "Or (ID = 3 And 収入 >= 20)" & vbNewLine
    strSQL = strSQL & "GROUP BY 地域" & vbNewLine
    strSQL = strSQL & "HAVING Count(1) = 3" & vbNewLine
    strSQL = strSQL & ");"
でいかがでしょうか。

通報 ...
  • 9
    hatena 2020/07/23 (木) 18:18:28 >> 8

    あるいは、

    Dim strSQL As String
strSQL = "SELECT * FROM テーブル1 WHERE 地域 IN(SELECT 地域 FROM テーブル1 " _
       & "WHERE (ID = 1 And 収入 >= 100) " _
       & "Or (ID = 2 And 収入 >= 60) " _
       & "Or (ID = 3 And 収入 >= 20) " _
       & "GROUP BY 地域 " _
       & "HAVING Count(1) = 3" _
       & ");"

    とか。