Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Suchfunktion in VB |
21.08.2007 08:19:55 |
Severin |
|
|
|
21.08.2007 09:38:00 |
Sozu |
|
|
|
21.08.2007 09:45:01 |
Severin |
|
|
|
21.08.2007 11:34:51 |
Sozu |
|
|
|
21.08.2007 14:16:07 |
Severin |
|
|
Von:
Severin |
Datum:
21.08.2007 08:19:55 |
Views:
2054 |
Rating:
|
Antwort:
|
Thema:
Suchfunktion in VB |
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######## |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Suchfunktion in VB |
21.08.2007 08:19:55 |
Severin |
|
|
|
21.08.2007 09:38:00 |
Sozu |
|
|
|
21.08.2007 09:45:01 |
Severin |
|
|
|
21.08.2007 11:34:51 |
Sozu |
|
|
|
21.08.2007 14:16:07 |
Severin |
|
|