| |
▼Gin_II さん：
ご指導ありがとうございます。
VBAはよく理解していない為、教えて頂いた文をどのように書いて良いか解りません。Webで「フォームFilter」で検索してみたのですが自分のやりたい文に置き換えることが出来ません。
申し訳ありませんが、全体の文か参考になるURLを教えていただけないでしょうか？
お手数をお掛けします。宜しくお願いします。
>> 上のSQL文で「Category」の抽出を「Category1」or「Category2」or
>> 「Category3」・・・と6つの条件指定をするように変えたいと思っています。
>> ただ、6つのうちいくつ指定するかはその都度違います。
>> あいまい検索の為「Category1〜6」のどれかがブランクだとすべてのレコードを
>> 抽出していまします。
>> IIF関数とISNULL関数で出来るのではと調べてみたのですが、6の6乗分の式を
>> 書かなくてならないようで実用的ではありません。
>> どのようにSQL文を変えればうまく動作するでしょうか？
>
>フォームの Filter プロパティを使って抽出しては？
>
>Dim lngIdx As Long
>Dim strWhere As String
>
>For lngIdx = 1 To 6
> If Not IsNull(Me("カテゴリ" & lngIdx)) Then
> strWhere = strWhere & " OR Category" & lngIdx & " Like '" _
> & Me("カテゴリ" & lngIdx) & "*'"
> End If
>Next lngIdx
>
>If Len(strWhere) > 0 Then
> Me.Filter = Mid(strWhere, 5)
> Me.FilterOn = True
>End If
>
>とかのように。
|
|
こまったちゃん
- 06/7/23(日) 1:57 -
