0

こんにちは、次のようなアクセスに関するフォームを作成しました。http://imgur.com/XS0vE08

Year フィルターと Length フィルターを除くすべてのフィルターが機能するようにすることができます。Year ボックスはバインドされておらず、左側はYear1と呼ばれ、右側はYear2と呼ばれます。Me.Filterコードを使用しようとしましたが、機能しません。エラーは発生しません。データがフィルタリングされないだけです。したがって、ユーザーがYear1とYear2に年を入力できるようにする必要があり、これら 2 つの年の間のデータをフィルター処理します。たとえば、 Year1 に 2000 、Year2に 2010 を入力すると、クエリを実行すると、2000 から 2010 までのデータのみが表示されます。

これは私が現在使用しているコードです:

 Private Sub Year2_AfterUpdate()
 Me.Filter = "[Year] BETWEEN #" & Me.Year1 & "# AND #" &  Me.Year2 & "#"
 Me.Filteron = true

どんな助けでも大歓迎です！:) (どのコードが何をするのかを説明できれば、それも非常にありがたいです。そうすれば、自分でそれを書くことを学ぶことができ、よりよく理解できるようになります!ありがとう!)

4

2 に答える 2

1

フィルターで日付リテラルを使用している場合は、 「#」文字のみを使用します。それが単なる数値の場合は、次を使用します。

 Me.Filter = "[Year] BETWEEN " & Me.Year1 & " AND " &  Me.Year2

[Year] が実際に日付である場合は、次を使用する必要があります。

 Me.Filter = "[Year] BETWEEN #01/01/" & Me.Year1 & "# AND #12/31/" &  Me.Year2 & "#"

[Year] BETWEEN #01/01/2010# AND #12/31/2011#年テキストボックスに 2010 年と 2011 年を入力すると、これは と評価されます。

于 2013-02-28T23:43:22.087 に答える
0

フォーム (frmAufträge) ではなく、クエリの名前 (frmAufträgeQuery) を使用する必要があります。

エラー時再開次へ

FromDate = "01.01.2021"

ToDate = "01.04.2021"

Me.Filter = "([frmAufträgeQuery].[Administrativ abgeschlossen] Between #" & Format(FromDate, "yyyy-mm-dd") & "# AND #" & Format(ToDate, "yyyy-mm-dd") & 「#)」

Me.FilterOn = True

于 2021-03-25T11:46:05.193 に答える