Hallo,
Ich habe ein Formular, das Datensätze aus Tabelle Artikel bezieht. Ich möchte das Formular nach den Datensätzen in einer Abfrage, Monate, filtern. Um anzugeben welche Datensätze gefiltert werden sollen, verwende ich zwei Kombinationsboxen, Startmonat und Endmonat, um einen Range zu definieren. Um sicherzugehen, dass die Datensätze aus der Abfrage Monate sind, werden die Werte der Jahre verglichen. Mir wird aber immer nur der erste Datensatz auf den der folgende Code zutrifft angezeigt obwohl es mehr sind.
Das ist der Code:
Private Sub Endmonat_AfterUpdate()
Dim strSQL As String
strSQL = "SELECT * FROM Jahr WHERE Monat='" & Startmonat.Value & "' And '" & Endmonat.Value & "' And Jahrvalue IN (SELECT Jahrvalue FROM Monate)"
Me.RecordSource = strSQL
Me.Refresh
End Sub
End Sub
Gibt es Lösungsmöglichkeiten?
Ich habe ein Formular, das Datensätze aus Tabelle Artikel bezieht. Ich möchte das Formular nach den Datensätzen in einer Abfrage, Monate, filtern. Um anzugeben welche Datensätze gefiltert werden sollen, verwende ich zwei Kombinationsboxen, Startmonat und Endmonat, um einen Range zu definieren. Um sicherzugehen, dass die Datensätze aus der Abfrage Monate sind, werden die Werte der Jahre verglichen. Mir wird aber immer nur der erste Datensatz auf den der folgende Code zutrifft angezeigt obwohl es mehr sind.
Das ist der Code:
Private Sub Endmonat_AfterUpdate()
Dim strSQL As String
strSQL = "SELECT * FROM Jahr WHERE Monat='" & Startmonat.Value & "' And '" & Endmonat.Value & "' And Jahrvalue IN (SELECT Jahrvalue FROM Monate)"
Me.RecordSource = strSQL
Me.Refresh
End Sub
End Sub
Gibt es Lösungsmöglichkeiten?