| |
▼Gin_II さん：
ご指導本当にありがとうございます。
早速試してみたのですが、Categoryフィールド（データ元のテーブル）は固定で、テキストボックス1〜6に入力した値はすべて、Categoryフィールドを参照したいのですが、このVBAを実行するとCategory1,Category2と1〜6の数字が入ってしまい、構文エラーになってしまいます。
下のように変更をしてみましたがうまくいきません。
変数「IngIdx」をCategoryの後に付けなくても自動的に1〜6が入ってしまうのでしょうか？
For lngIdx = 1 To 6
If Not IsNull(Me("カテゴリ" & lngIdx)) Then
strWhere = strWhere & " OR Category Like '" & Me("カテゴリ" & lngIdx) & "*'"
End If
Next lngIdx
もうひとつ疑問点なのですが、Mid(strWhere, 5)はどのような意味でしょうか？
If Len(strWhere) > 0 Then
Me.Filter = Mid(strWhere, 5)
Me.FilterOn = True
何度も申し訳ありません。
>> strWhere = strWhere & " OR Category" & lngIdx & " Like '" _
> ~~~~~
>全角スペースになっていますが、半角スペース×2 にしてください。
|
|
こまったちゃん
- 06/7/23(日) 18:55 -
