Hallo,
ich möchte eine Suchfunktion programmieren.
Der User soll im Dropdownmenü die Kriterien auswählen und durch das Klicken des Buttons "Hinzufügen", soll das Kriterium angezeigt werden. Dem User sollte es auch möglich sein mehrere Kriterien hinzuzufügen und durch das Klicken auf den Button "Suchen", soll in der Datenbank nach den Kriterien gesucht werden und die Ausgabe statt finden.
Danke
Code:
------------------------------------------------------------
Option Compare Database
'####################### Dropdown Maschinen füllen ##########'
Private Sub search_machine_Enter()
'Verbindung zur Tabelle "machines"'
Dim rstMachine As Recordset
Set rstMachine = CurrentDb.OpenRecordset("machines")
'Dropdown zuerst ganz leeren'
Me.search_machine.RowSource = ""
strTemp = ""
'Schleife um Name jeder Maschine ins DD zu schreiben'
Do While Not rstMachine.EOF
strTemp = rstMachine!Name
search_machine.AddItem strTemp
rstMachine.MoveNext
Loop
'Verbindung schliessen
rstMachine.Close
End Sub
'##################### Dropdown Kategorie füllen #################
Private Sub search_category_Enter()
'Verbindung zur Tabelle "categories"
Dim rstCat As Recordset
Set rstCat = CurrentDb.OpenRecordset("categories")
'Dropdown zuerst ganz leeren
Me.search_category.RowSource = ""
'Schleife um Name jeder Kategorie ins DD zu schreiben
Do While Not rstCat.EOF
strTemp = rstCat!Name
search_category.AddItem strTemp
rstCat.MoveNext
Loop
'Verbindung schliessen
rstCat.Close
End Sub
'#################Dropdown Parts füllen##################
Private Sub search_part_Enter()
'Kategorie in Variable schreiben
strCategory = search_category.Value
'Verbindung zur Tabelle "subs"
Dim rstPart As Recordset
Set rstPart = CurrentDb.OpenRecordset("subs")
'DD zuerst ganz leeren
Me.search_part.RowSource = ""
strTemp = ""
'Überprüfen, ob schon Kategorie ausgewählt wurde
If strCategory <> "" Then
'Schleife um Name jeden Part mit der gewählten Kategorie ins DD zu schreiben
Do While Not rstPart.EOF
'Überprüfen ob der aktuelle Part die ausgewählte kategorie hat
If strCategory = rstPart!Category Then
'Falls ja dann in DD einfügen
strTemp = rstPart!Name
search_part.AddItem strTemp
End If
'Zum nächsten Datensatz springen
rstPart.MoveNext
Loop
'Falls keine Kategorie gewählt, Meldung ausgeben
Else
MsgBox "Bitte wählen Sie zuerst eine Kategorie !"
End If
'Verbindung schliessen
rstPart.Close
End Sub
######Hier sollte jetz die suchfunktion kommen######## |