Thema Datum  Von Nutzer Rating
Antwort
Rot Suchfunktion in VB
 21.08.2007 08:19:55 Severin
NotSolved
21.08.2007 09:38:00 Sozu
NotSolved
21.08.2007 09:45:01 Severin
NotSolved
21.08.2007 11:34:51 Sozu
NotSolved
21.08.2007 14:16:07 Severin
NotSolved

Ansicht des Beitrags:
Von:
Severin		 Datum:
21.08.2007 08:19:55		 Views:
2448		 Rating:
     
Antwort:
  Ja
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########

Ihre Antwort
  • 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: Name: Email:



  • 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
Rot Suchfunktion in VB
 21.08.2007 08:19:55 Severin
NotSolved
21.08.2007 09:38:00 Sozu
NotSolved
21.08.2007 09:45:01 Severin
NotSolved
21.08.2007 11:34:51 Sozu
NotSolved
21.08.2007 14:16:07 Severin
NotSolved