年を条件にデータを抽出するには？

質問

フィールド1
2012/01/01
2012/01/02
2011/01/01
2011/01/02
2010/01/01
2010/01/02
と言うデータがあり、それをもとに表形式でフォームを作りました。

フォームヘッダーにコンボボックス（名前：コンボ3）を作り、
値集合タイプ：値リスト
値集合ソース："2012";"2011";"2010"
にしました。

コンボボックスのAfterUpdateイベントでコンボ3に表示されている値を年を抽出したいのですが
ｖｂａでどうやればいいのでしょうか？
クエリは作りません。

Private Sub コンボ3_AfterUpdate()
Me.Form.Filter = "フィールド１ Between #" & Me.コンボ3.Value & "# And #" & Me.コンボ3.Value & "#" & "'"
Me.Form.FilterOn = True
End Sub
や
Private Sub コンボ3_AfterUpdate()
Me.Form.Filter = "フィールド１ Between #" & Me.コンボ3.Value & "/01/01" & "# And #" & Me.コンボ3.Value & "/12/31" & "#" & "'"
Me.Form.FilterOn = True
End Sub
にすると

実行時エラー
クエリ式 <式> の <メッセージ> (エラー 3075)
入力した式が、メッセージに示されている原因によって無効です。フィールド名と区切り記号を正しく入力していることを確認してから、もう一度実行してください。

となってしまいます。

2010/01/01と2010/01/02を抽出させたいです。
ご回答よろしくお願いします。

回答No.1

piroin654 · ベストアンサー

Me.Form.Filter = "フィールド１ Between #" & Me.コンボ3.Value & "# And #" & Me.コンボ3.Value & "#" & "'"

たとえば、最初のプロシージャの上記の最後のあたりの、
　　 & "'"
これだけが不要ではないですか？
したがって、最後のあたりは、

・・・・・・Me.コンボ3.Value & "#"

では？

お礼

！！！
こんな簡単な事だったんですね。
気付けませんでした。

回答No.2

nicotinism

>Me.Form.Filter = "フィールド１ Between #" & Me.コンボ3.Value & "# And #" & Me.コンボ3.Value & "#" & "'"
は、最後の & "'" は余計です。
そして、日付時刻型のフィールド１とテキスト型のコンボ3を直接比較するには無理が有ります。
フィールド１から、年 に相当する部分を抜き出す必要があります。
なので
Me.Filter = "year(フィールド１) = " & val(me!コンボ3）
でしょうね。

Me.Form.Filter = "フィールド１ Between #" & Me.コンボ3.Value & "/01/01" & "# And #" & Me.コンボ3.Value & "/12/31" & "#" & "'"
も同じく、最後の & "'" は余計です。
こちらは全社とは逆にフィールド１はそのままにして年月日での比較ですから
Me.Filter = "フィールド１ Between #" & Me.コンボ3.Value & "/01/01" & "# And #" & Me.コンボ3.Value & "/12/31#"
です。
一般には前者のパターンで済ます場合が多いかと思います。

なお、蛇足ですが後者で、以前はまったオバカなパターン。
日付時刻型は年月日＋時刻の部分も含まれます。
今日の日付を入れるのに何を血迷ったか、VBA で、=date ではなく =now にしてしまっていた部分がありました
当然、2012/12/31 15:30:23 のように格納されます。
で、書式設定では、yyyy/mm/dd にしてしまっていました。パッと見ではわかりません。
後者のパターンでは、1/1の零時から12/31の零時までのが抽出されます。
2012/12/31 15:30:23 > 2012/12/31 0:00:00 なので対象外ですから抽出されません。
時刻の部分にもデータが有る場合は
ご注意を。

お礼

いろんなパターン、ありがとうございました！