Datensätze werden nicht verglichen

[subara]

Ich habe eine Suchfunktion erstellt, welche das Suchkriterium (Maschine und Kategorie) aus je einem Dropdown menü für Maschine und eins für Kategorie in eine Tabelle speichert. Diese werden mit der Tabelle Parts_Projects verglichen und die übereinstimmenden in Temp_Find gespeichert.
Nun zu meinem Problem: Wenn ich mehr als nur 1 Suchkriterium hinzufüge(Mehrere Maschinen und Kategorien) geht er nur das erste hinzugefügte Suchkriterium durch. Die anderen werden garnicht verglichen. Warum?

Private Sub search_go_Click()

Dim rst As Recordset
Set rstTemp_Search = CurrentDb.OpenRecordset("temp_search")
Set rstParts_Projects = CurrentDb.OpenRecordset("parts_projects")

Do While Not rstTemp_Search.EOF
    Do While Not rstParts_Projects.EOF
      If rstTemp_Search!machines = rstParts_Projects!Machine And rstTemp_Search!category = rstParts_Projects!category Then
        'Verbindung zur Tabelle "temp_find"
        Dim rstInsert As Recordset
        Set rstInsert = CurrentDb.OpenRecordset("temp_find")
        'Daten einfügen
        With rstInsert
            If .Updatable Then
                .AddNew
                !Machine = rstParts_Projects!Machine
                !category = rstParts_Projects!category
                !part = rstParts_Projects!part
                .Update
            End If
        End With
        rstInsert.MoveFirst
       End If
    rstParts_Projects.MoveNext
    Loop

rstTemp_Search.MoveNext
Loop

rstParts_Projects.Close
rstTemp_Search.Close
End Sub

 

[subara]

wollte mal hoch posten, da es schon ne weile her ist, und das problem noch immer nicht gelöst wurde.