【Access】フォームの非連結コンボボックスからＳＱＬで抽出する時の「’」「”」「＆」などの使い方

帳票フォームに非連結のコンボボックスを設置して、その選択した値によって帳票フォームのソースを抽出表示したいという事がある。

今回は、ＶＢＡコードでＳＱＬを使って抽出しているのですが、「’」「”」「＆」の使い方が今一つ分からず色々とやった結果を備忘録としてまとめておこうと思います。

コンボボックス１個でレコードソースを抽出

これはなんとなくすぐにできました。

Public Sub 抽出ボタン_Click()

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

On Error GoTo Err_Handler

    Set cn = CurrentProject.AccessConnection
    Set rs = New ADODB.Recordset

            With rs
            Set .ActiveConnection = cn
            .Source = "SELECT * FROM orderdata_sorting_nsys WHERE shipper ='" & Me!search_mado & "'"
            .LockType = adLockOptimistic
            .CursorType = adOpenKeyset
            .Open
            End With

        Set Me.Recordset = rs
        rs.Close: Set rs = Nothing
        cn.Close: Set cn = Nothing

ExitErr_Handler:
        Exit Sub

Err_Handler:
        MsgBox "エラー： " & Err.description
        rs.Close: Set rs = Nothing
        cn.Close: Set cn = Nothing
End Sub

つまり、ＳＱＬで抽出している部分が下記の部分になるわけだが１個だけなら「’」「”」「＆」の使い方は下記のような法則で記述すればいいようです。

コンボボックス２個でＡＮＤ抽出

２個になると一気に難易度があがりエラーが出たり思ったデータが抽出されなかったりと大変な事になりました。

様々なパターンの「’」「”」「＆」を試してようやく抽出できるようになったコードが下記のようになります。

ＶＢＡコード内でＳＱＬを使う場合は、

「”」SELECT * FROM table_name WHERE field1 =「’」「”」「＆」combo1「＆」「”」「’」And field2 =「’」「”」「＆」combo2「＆」「”」「’」「”」

と言うふうになるようです。

なにかと忘れた頃に使うので備忘録にしたいと思います。

更に日付範囲の抽出をＡＮＤ

更に、日付範囲にて、抽出したい場合はどうしたらいいでしょうか！？

これも色々と試した結果下記のようになりました。

未だに「’」「”」「＆」の使い方が曖昧ですが、何とかできるようになったので、なんとなくこんな感じの組み合わせでＡＮＤもできるんだなって思えておけば何とかなりますね。