アクセス小僧:VBAでクエリを変更(3) [コンピューター]
アクセス小僧:VBAでクエリを変更
http://cheese999.blog.so-net.ne.jp/2017-08-16-1
で紹介した正規表現によるクエリの変更ですが、変更したい項目が増え、変更していました。
一番苦労したのは、SQLの検索パタンでしょうか。。
' パターン=「HAVING (((T_医療費.日付)>=#10/1/2017# And (T_医療費.日付)<#11/1/2017#)
' AND ((T_医療費.除外)=False Or (T_医療費.除外)=True))」
という文字列を検索するのに、
MyStr1 = "HAVING\s\(\(\(T_医療費\.日付\)>=#[0-9]+/[0-9]+/[0-9]+#\sAnd\s\(T_医療費\.日付\)<#[0-9]+/[0-9]+/[0-9]+#\)"
MyStr1 = MyStr1 & "\sAND\s\(\(T_医療費\.除外\)=[A-Za-z]+\sOr\s\(T_医療費\.除外\)=[A-Za-z]+\)\)"
という検索パタンを作りました。。
http://cheese999.blog.so-net.ne.jp/2017-08-16-1
で紹介した正規表現によるクエリの変更ですが、変更したい項目が増え、変更していました。
一番苦労したのは、SQLの検索パタンでしょうか。。
' パターン=「HAVING (((T_医療費.日付)>=#10/1/2017# And (T_医療費.日付)<#11/1/2017#)
' AND ((T_医療費.除外)=False Or (T_医療費.除外)=True))」
という文字列を検索するのに、
MyStr1 = "HAVING\s\(\(\(T_医療費\.日付\)>=#[0-9]+/[0-9]+/[0-9]+#\sAnd\s\(T_医療費\.日付\)<#[0-9]+/[0-9]+/[0-9]+#\)"
MyStr1 = MyStr1 & "\sAND\s\(\(T_医療費\.除外\)=[A-Za-z]+\sOr\s\(T_医療費\.除外\)=[A-Za-z]+\)\)"
という検索パタンを作りました。。
ヤバイぜ! ありがとうございます[__猫]
by cheese999 (2017-11-25 00:13)